From a661e420250ed063c79296a214f4f2298dc11a7f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 13 Jan 2013 15:37:32 +0100
Subject: [PATCH] distro: Add GNU Mailutils.

* distro/packages/mailutils.scm: New file.
* Makefile.am (MODULES): Add it.
---
 Makefile.am                   |   1 +
 distro/packages/mailutils.scm | 106 ++++++++++++++++++++++++++++++++++
 2 files changed, 107 insertions(+)
 create mode 100644 distro/packages/mailutils.scm

diff --git a/Makefile.am b/Makefile.am
index eee6139f25..dd08050641 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -85,6 +85,7 @@ MODULES =					\
   distro/packages/lout.scm			\
   distro/packages/lsh.scm			\
   distro/packages/m4.scm			\
+  distro/packages/mailutils.scm			\
   distro/packages/make-bootstrap.scm		\
   distro/packages/mit-krb5.scm			\
   distro/packages/multiprecision.scm		\
diff --git a/distro/packages/mailutils.scm b/distro/packages/mailutils.scm
new file mode 100644
index 0000000000..55b40f5974
--- /dev/null
+++ b/distro/packages/mailutils.scm
@@ -0,0 +1,106 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix 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 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix 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 Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (distro packages mailutils)
+  #:use-module (distro)
+  #:use-module (distro packages linux)
+  #:use-module (distro packages gnutls)
+  #:use-module (distro packages gdbm)
+  #:use-module (distro packages guile)
+  #:use-module (distro packages ncurses)
+  #:use-module (distro packages readline)
+  #:use-module (distro packages dejagnu)
+  #:use-module (distro packages m4)
+  #:use-module (distro packages texinfo)
+  #:use-module (distro packages mysql)
+  #:use-module (distro packages autotools)
+  #:use-module (guix licenses)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu))
+
+(define-public mailutils
+  (package
+    (name "mailutils")
+    (version "2.2")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append "mirror://gnu/mailutils/mailutils-"
+                                 version ".tar.bz2"))
+             (sha256
+              (base32
+               "0szbqa12zqzldqyw97lxqax3ja2adis83i7brdfsxmrfw68iaf65"))))
+    (build-system gnu-build-system)
+    (arguments
+     '(;; TODO: Add `--with-sql'.
+       #:patches (list (assoc-ref %build-inputs
+                                  "patch/gets-undeclared"))
+       #:phases (alist-cons-before
+                 'build 'pre-build
+                 (lambda _
+                   ;; Use Guile 2.0's public API.
+                   (substitute* "libmu_scm/mu_message.c"
+                     (("scm_i_string_length")
+                      "scm_c_string_length"))
+
+                   ;; This file should be generated to use the right
+                   ;; value of $(libdir) et al.
+                   (delete-file "libmu_scm/mailutils.scm")
+
+                   ;; Use the right file name for `cat'.
+                   (substitute* "testsuite/lib/mailutils.exp"
+                     (("/bin/cat")
+                      (which "cat"))))
+                 %standard-phases)
+       #:parallel-tests? #f))
+    (inputs
+     `(("dejagnu" ,dejagnu)
+       ("m4" ,m4)
+       ("texinfo" ,texinfo)
+       ("guile" ,guile-2.0)
+       ("gnutls" ,gnutls)
+       ("ncurses" ,ncurses)
+       ("readline" ,readline)
+       ("linux-pam" ,linux-pam)
+       ("libtool" ,libtool)
+       ("gdbm" ,gdbm)
+       ("patch/gets-undeclared"
+        ,(search-patch "m4-gets-undeclared.patch"))))
+    (home-page "http://www.gnu.org/software/mailutils/")
+    (synopsis "A rich and powerful protocol-independent mail framework")
+    (description
+     "GNU Mailutils is a rich and powerful protocol-independent mail
+framework.  It contains a series of useful mail libraries, clients, and
+servers.  These are the primary mail utilities for the GNU system.  The
+central library is capable of handling electronic mail in various
+mailbox formats and protocols, both local and remote.  Specifically,
+this project contains a POP3 server, an IMAP4 server, and a Sieve mail
+filter.  It also provides a POSIX `mailx' client, and a collection of
+other handy tools.
+
+The GNU Mailutils libraries supply an ample set of primitives for
+handling electronic mail in programs written in C, C++, Python or
+Scheme.
+
+The utilities provided by Mailutils include imap4d and pop3d mail
+servers, mail reporting utility comsatd, general-purpose mail delivery
+agent maidag, mail filtering program sieve, and an implementation of MH
+message handling system.")
+    (license
+     ;; Libraries are under LGPLv3+, and programs under GPLv3+.
+     (list gpl3+ lgpl3+))))