diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-09-12 09:56:43 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-09-12 09:56:43 +0000 |
commit | 461a7383934004dbed8b66019976dd7027523a41 (patch) | |
tree | 1e53c86c869d85b5e22062c65c04871f0fccf377 /libmu_scm | |
parent | 011de7c8220790db66632e091e893cee4fc6aa2f (diff) | |
download | mailutils-461a7383934004dbed8b66019976dd7027523a41.tar.gz mailutils-461a7383934004dbed8b66019976dd7027523a41.tar.bz2 |
Source for mailutils.scm -- a module interface file for mailutils.
Diffstat (limited to 'libmu_scm')
-rw-r--r-- | libmu_scm/mailutils.scm.in | 83 |
1 files changed, 83 insertions, 0 deletions
diff --git a/libmu_scm/mailutils.scm.in b/libmu_scm/mailutils.scm.in new file mode 100644 index 000000000..ae673e656 --- /dev/null +++ b/libmu_scm/mailutils.scm.in | |||
@@ -0,0 +1,83 @@ | |||
1 | ;;;; -*- scheme -*- | ||
2 | ;;;; GNU mailutils - a suite of utilities for electronic mail | ||
3 | ;;;; Copyright (C) 2002 Free Software Foundation, Inc. | ||
4 | ;;;; | ||
5 | ;;;; This program is free software; you can redistribute it and/or modify | ||
6 | ;;;; it under the terms of the GNU General Public License as published by | ||
7 | ;;;; the Free Software Foundation; either version 2, or (at your option) | ||
8 | ;;;; any later version. | ||
9 | ;;;; | ||
10 | ;;;; This program is distributed in the hope that it will be useful, | ||
11 | ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
12 | ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
13 | ;;;; GNU General Public License for more details. | ||
14 | ;;;; | ||
15 | ;;;; You should have received a copy of the GNU General Public License | ||
16 | ;;;; along with this program; if not, write to the Free Software | ||
17 | ;;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. | ||
18 | ;;;; | ||
19 | changequote([,])dnl | ||
20 | |||
21 | (define-module (mailutils)) | ||
22 | |||
23 | (let ((lib-path "LIBDIR/")) | ||
24 | (cond | ||
25 | ((or (string=? (version) "1.4") | ||
26 | (string=? (version) "1.4.1")) | ||
27 | (dynamic-link (string-append lib-path "libmailbox")) | ||
28 | (dynamic-call "mu_scm_init" | ||
29 | (dynamic-link (string-append | ||
30 | lib-path | ||
31 | "libguile-mailutils-v-VERSION")))) | ||
32 | (else | ||
33 | (load-extension "libguile-mailutils-v-VERSION" "mu_scm_init")))) | ||
34 | |||
35 | (export mu-package) | ||
36 | (export mu-version) | ||
37 | (export mu-mailer) | ||
38 | (export mu-debug) | ||
39 | |||
40 | (export MU-ATTRIBUTE-ANSWERED) | ||
41 | (export MU-ATTRIBUTE-FLAGGED) | ||
42 | (export MU-ATTRIBUTE-DELETED) | ||
43 | (export MU-ATTRIBUTE-DRAFT) | ||
44 | (export MU-ATTRIBUTE-SEEN) | ||
45 | (export MU-ATTRIBUTE-READ) | ||
46 | (export MU-ATTRIBUTE-MODIFIED) | ||
47 | (export MU-ATTRIBUTE-RECENT) | ||
48 | |||
49 | (export LOG_USER) | ||
50 | (export LOG_DAEMON) | ||
51 | (export LOG_AUTH) | ||
52 | (export LOG_LOCAL0) | ||
53 | (export LOG_LOCAL1) | ||
54 | (export LOG_LOCAL2) | ||
55 | (export LOG_LOCAL3) | ||
56 | (export LOG_LOCAL4) | ||
57 | (export LOG_LOCAL5) | ||
58 | (export LOG_LOCAL6) | ||
59 | (export LOG_LOCAL7) | ||
60 | (export LOG_EMERG) | ||
61 | (export LOG_ALERT) | ||
62 | (export LOG_CRIT) | ||
63 | (export LOG_ERR) | ||
64 | (export LOG_WARNING) | ||
65 | (export LOG_NOTICE) | ||
66 | (export LOG_INFO) | ||
67 | (export LOG_DEBUG) | ||
68 | (export LOG_CONS) | ||
69 | (export LOG_NDELAY) | ||
70 | (export LOG_PID) | ||
71 | |||
72 | include(BUILDDIR/mu_address.inc) | ||
73 | include(BUILDDIR/mu_body.inc) | ||
74 | include(BUILDDIR/mu_guimb.inc) | ||
75 | include(BUILDDIR/mu_mailbox.inc) | ||
76 | include(BUILDDIR/mu_message.inc) | ||
77 | include(BUILDDIR/mu_mime.inc) | ||
78 | include(BUILDDIR/mu_logger.inc) | ||
79 | include(BUILDDIR/mu_port.inc) | ||
80 | include(BUILDDIR/mu_scm.inc) | ||
81 | include(BUILDDIR/mu_util.inc) | ||
82 | |||
83 | |||