My custom "mailutils.scm"

mail-utils.scm (text/x-scheme), 1.42 KB, created by Bastien Rissoan on 2024-01-27 12:46:36 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 (mail-utils)
  #: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 
            "libmailutils"
            "libmu_auth" 
            "libmu_mbox" 
            "libmu_mh"
		    "libmu_maildir"
		    "libmu_pop"
		    "libmu_imap"))

(let ((libpath "/usr/lib64/"))
  (for-each
     (lambda (lib) (dynamic-link (string-append libpath lib)))
     mu-libs)
  (load-extension (string-append libpath "libmu_scm")
		    "mu_scm_init"))

;;;; End of mailutils.scm