The original "mailutil.scm"

mailutils.scm (text/x-scheme), 1.90 KB, created by Bastien Rissoan on 2024-01-27 12:47:38 UTC

;;;; -*- scheme -*-
;;;; GNU Mailutils -- a suite of utilities for electronic mail
;;;; Copyright (C) 2002-2022 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, see <http://www.gnu.org/licenses/>.
;;;;

(define-module (mailutils mailutils)
  #:use-module (ice-9 documentation))

(set! documentation-files (append documentation-files 
                                  (list "/usr/share/guile/site/2.2/mailutils/guile-procedures.txt")))

(define mu-libs (list (cons "libmailutils"     "libmailutils")
		      (cons "libmu_auth"       "libmu_auth")
		      (cons "libproto/mbox"    "libmu_mbox")
		      (cons "libproto/mh"      "libmu_mh")
		      (cons "libproto/maildir" "libmu_maildir")
		      (cons "libproto/pop"     "libmu_pop")
		      (cons "libproto/imap"    "libmu_imap")))

(cond
 ((getenv "MAILUTILS_SCM_LIBRARY_ROOT") =>
  (lambda (root)
    (for-each
     (lambda (lib)
       (dynamic-link (string-append root "/" (car lib) "/" (cdr lib))))
     mu-libs)
    (load-extension (string-append root "/libmu_scm/libmu_scm")
		    "mu_scm_init")))
 (else
  (let ((lib-path "/usr/lib64/"))
    (for-each
     (lambda (lib)
       (dynamic-link (string-append lib-path (cdr lib))))
     mu-libs)
    (load-extension (string-append
		     lib-path "libguile-mailutils-v-3.15")
		    "mu_scm_init"))))

;;;; End of mailutils.scm