/usr/share/guile/site/mailutils/mailutils.scm is in mailutils-guile 1:2.99.99-1ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | ;;;; -*- scheme -*-
;;;; GNU Mailutils -- a suite of utilities for electronic mail
;;;; Copyright (C) 2002-2004, 2006-2007, 2009-2012, 2014-2015 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/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/lib/x86_64-linux-gnu/"))
(for-each
(lambda (lib)
(dynamic-link (string-append lib-path (cdr lib))))
mu-libs)
(load-extension (string-append
lib-path "libguile-mailutils-v-2.99.99")
"mu_scm_init"))))
;;;; End of mailutils.scm
|