;;;; -*- scheme -*- ;;;; GNU Mailutils -- a suite of utilities for electronic mail ;;;; Copyright (C) 2002, 2003, 2004, 2006, 2007 Free Software Foundation, Inc. ;;;; ;;;; GNU Mailutils is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by ;;;; the Free Software Foundation; either version 3, or (at your option) ;;;; any later version. ;;;; ;;;; GNU Mailutils is distributed in the hope that it will be useful, ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; GNU General Public License for more details. ;;;; ;;;; You should have received a copy of the GNU General Public License along ;;;; with GNU Mailutils; if not, write to the Free Software Foundation, ;;;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; changequote([,])dnl (define-module (mailutils mailutils) #:use-module (ice-9 documentation)) (set! documentation-files (append documentation-files (list "SITEDIR/guile-procedures.txt"))) (define mu-libs (list "libmailutils" "libmuauth" "libmu_mbox" "libmu_mh" "libmu_maildir" "libmu_pop" "libmu_imap")) (let ((lib-path "LIBDIR/")) (for-each (lambda (lib) (dynamic-link (string-append lib-path lib))) mu-libs) (cond ((or (string=? (version) "1.4") (string=? (version) "1.4.1")) (dynamic-call "mu_scm_init" (dynamic-link (string-append lib-path "libguile-mailutils-v-VERSION")))) (else (load-extension (string-append lib-path "libguile-mailutils-v-VERSION") "mu_scm_init")))) (export mu-package) (export mu-package-string) (export mu-version) (export mu-mailer) (export mu-debug) (export mu-path-maildir) (export mu-path-folder-dir) (export MU-ATTRIBUTE-ANSWERED) (export MU-ATTRIBUTE-FLAGGED) (export MU-ATTRIBUTE-DELETED) (export MU-ATTRIBUTE-DRAFT) (export MU-ATTRIBUTE-SEEN) (export MU-ATTRIBUTE-READ) (export MU-ATTRIBUTE-MODIFIED) (export MU-ATTRIBUTE-RECENT) (export LOG_USER) (export LOG_DAEMON) (export LOG_AUTH) (export LOG_LOCAL0) (export LOG_LOCAL1) (export LOG_LOCAL2) (export LOG_LOCAL3) (export LOG_LOCAL4) (export LOG_LOCAL5) (export LOG_LOCAL6) (export LOG_LOCAL7) (export LOG_EMERG) (export LOG_ALERT) (export LOG_CRIT) (export LOG_ERR) (export LOG_WARNING) (export LOG_NOTICE) (export LOG_INFO) (export LOG_DEBUG) (export LOG_CONS) (export LOG_NDELAY) (export LOG_PID) include(BUILDDIR/mu_address.inc) include(BUILDDIR/mu_body.inc) include(BUILDDIR/mu_guimb.inc) include(BUILDDIR/mu_mailbox.inc) include(BUILDDIR/mu_message.inc) include(BUILDDIR/mu_mime.inc) include(BUILDDIR/mu_logger.inc) include(BUILDDIR/mu_port.inc) include(BUILDDIR/mu_scm.inc) include(BUILDDIR/mu_util.inc) ;;;; End of mailutils.scm