gnu/packages/mail.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
   4 ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
   5 ;;; Copyright © 2014 Sou Bunnbu <iyzsong@gmail.com>
   6 ;;; Copyright © 2014 Julien Lepiller <julien@lepiller.eu>
   7 ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
   8 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
   9 ;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
  10 ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
  11 ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
  12 ;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
  13 ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
  14 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
  15 ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
  16 ;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
  17 ;;;
  18 ;;; This file is part of GNU Guix.
  19 ;;;
  20 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  21 ;;; under the terms of the GNU General Public License as published by
  22 ;;; the Free Software Foundation; either version 3 of the License, or (at
  23 ;;; your option) any later version.
  24 ;;;
  25 ;;; GNU Guix is distributed in the hope that it will be useful, but
  26 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  27 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  28 ;;; GNU General Public License for more details.
  29 ;;;
  30 ;;; You should have received a copy of the GNU General Public License
  31 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  32
  33 (define-module (gnu packages mail)
  34   #:use-module (gnu packages)
  35   #:use-module (gnu packages autotools)
  36   #:use-module (gnu packages base)
  37   #:use-module (gnu packages backup)
  38   #:use-module (gnu packages bash)
  39   #:use-module (gnu packages bison)
  40   #:use-module (gnu packages curl)
  41   #:use-module (gnu packages cyrus-sasl)
  42   #:use-module (gnu packages databases)
  43   #:use-module (gnu packages dejagnu)
  44   #:use-module (gnu packages emacs)
  45   #:use-module (gnu packages enchant)
  46   #:use-module (gnu packages ghostscript)
  47   #:use-module (gnu packages glib)
  48   #:use-module (gnu packages gnome)
  49   #:use-module (gnu packages gnupg)
  50   #:use-module (gnu packages gsasl)
  51   #:use-module (gnu packages gtk)
  52   #:use-module (gnu packages guile)
  53   #:use-module (gnu packages flex)
  54   #:use-module (gnu packages libcanberra)
  55   #:use-module (gnu packages libidn)
  56   #:use-module (gnu packages linux)
  57   #:use-module (gnu packages m4)
  58   #:use-module (gnu packages ncurses)
  59   #:use-module (gnu packages pcre)
  60   #:use-module (gnu packages perl)
  61   #:use-module (gnu packages python)
  62   #:use-module (gnu packages readline)
  63   #:use-module (gnu packages search)
  64   #:use-module (gnu packages texinfo)
  65   #:use-module (gnu packages compression)
  66   #:use-module (gnu packages glib)
  67   #:use-module (gnu packages pkg-config)
  68   #:use-module (gnu packages flex)
  69   #:use-module (gnu packages gdb)
  70   #:use-module (gnu packages samba)
  71   #:use-module (gnu packages tls)
  72   #:use-module (gnu packages xml)
  73   #:use-module (gnu packages xorg)
  74   #:use-module ((guix licenses)
  75                 #:select (gpl2 gpl2+ gpl3 gpl3+ lgpl2.1 lgpl2.1+ lgpl3+
  76                            non-copyleft (expat . license:expat)))
  77   #:use-module (guix packages)
  78   #:use-module (guix download)
  79   #:use-module (guix git-download)
  80   #:use-module (guix utils)
  81   #:use-module (guix build-system gnu)
  82   #:use-module (guix build-system perl)
  83   #:use-module (guix build-system python))
  84
  85 (define-public mailutils
  86   (package
  87     (name "mailutils")
  88     (version "2.2")
  89     (source (origin
  90              (method url-fetch)
  91              (uri (string-append "mirror://gnu/mailutils/mailutils-"
  92                                  version ".tar.bz2"))
  93              (sha256
  94               (base32
  95                "0szbqa12zqzldqyw97lxqax3ja2adis83i7brdfsxmrfw68iaf65"))
  96              (patches (search-patches "m4-gets-undeclared.patch"))))
  97     (build-system gnu-build-system)
  98     (arguments
  99      '(;; TODO: Add `--with-sql'.
 100        #:phases (alist-cons-before
 101                  'build 'pre-build
 102                  (lambda _
 103                    ;; Use Guile 2.0's public API.
 104                    (substitute* "libmu_scm/mu_message.c"
 105                      (("scm_i_string_length")
 106                       "scm_c_string_length"))
 107
 108                    ;; This file should be generated to use the right
 109                    ;; value of $(libdir) et al.
 110                    (delete-file "libmu_scm/mailutils.scm")
 111
 112                    ;; Use the right file name for `cat'.
 113                    (substitute* "testsuite/lib/mailutils.exp"
 114                      (("/bin/cat")
 115                       (which "cat"))))
 116                  %standard-phases)
 117        #:parallel-tests? #f))
 118     (inputs
 119      `(("dejagnu" ,dejagnu)
 120        ("m4" ,m4)
 121        ("texinfo" ,texinfo)
 122        ("guile" ,guile-2.0)
 123        ("gnutls" ,gnutls)
 124        ("ncurses" ,ncurses)
 125
 126        ;; With Readline 6.3, examples/pop3client.c fails to build because it
 127        ;; uses the now undefined 'CPPFunction' type.
 128        ("readline" ,readline-6.2)
 129
 130        ("linux-pam" ,linux-pam)
 131        ("libltdl" ,libltdl)
 132        ("gdbm" ,gdbm)))
 133     (home-page "http://www.gnu.org/software/mailutils/")
 134     (synopsis "Utilities and library for reading and serving mail")
 135     (description
 136      "GNU Mailutils is a collection of programs for managing, viewing and
 137 processing electronic mail.  It contains both utilities and server daemons
 138 and all operate in a protocol-agnostic way.  The underlying libraries are
 139 also available, simplifying the addition of mail capabilities to new
 140 software.")
 141     (license
 142      ;; Libraries are under LGPLv3+, and programs under GPLv3+.
 143      (list gpl3+ lgpl3+))))
 144
 145 (define-public fetchmail
 146   (package
 147     (name "fetchmail")
 148     (version "6.3.26")
 149     (source (origin
 150              (method url-fetch)
 151              (uri (string-append "mirror://sourceforge/fetchmail/branch_6.3/fetchmail-"
 152                                  version ".tar.xz"))
 153              (sha256
 154               (base32
 155                "0l78ayvi9dm8hd190gl139cs2xqsrf7r9ncilslw20mgvd6cbd3r"))))
 156     (build-system gnu-build-system)
 157     (inputs
 158      `(("openssl" ,openssl)))
 159     (arguments
 160      `(#:configure-flags (list (string-append "--with-ssl="
 161                                               (assoc-ref %build-inputs "openssl")))))
 162     (home-page "http://www.fetchmail.info/")
 163     (synopsis "Remote-mail retrieval and forwarding utility")
 164     (description
 165      "Fetchmail is a full-featured, robust, well-documented remote-mail
 166 retrieval and forwarding utility intended to be used over on-demand
 167 TCP/IP links (such as SLIP or PPP connections).  It supports every
 168 remote-mail protocol now in use on the Internet: POP2, POP3, RPOP, APOP,
 169 KPOP, all flavors of IMAP, ETRN, and ODMR.  It can even support IPv6
 170 and IPSEC.
 171
 172 Fetchmail retrieves mail from remote mail servers and forwards it via SMTP,
 173 so it can then be read by normal mail user agents such as mutt, elm
 174 or BSD Mail.  It allows all your system MTA's filtering, forwarding, and
 175 aliasing facilities to work just as they would on normal mail.")
 176     (license gpl2+))) ; most files are actually public domain or x11
 177
 178 (define-public mutt
 179   (package
 180     (name "mutt")
 181     (version "1.6.1")
 182     (source (origin
 183              (method url-fetch)
 184              (uri (string-append "ftp://ftp.mutt.org/pub/mutt/mutt-"
 185                                  version ".tar.gz"))
 186              (sha256
 187               (base32
 188                "087dz1y9qhl4ikhsnnb4xmyvs82w6kx480w8zj130wdiqvn6rclq"))
 189              (patches (search-patches "mutt-store-references.patch"))))
 190     (build-system gnu-build-system)
 191     (inputs
 192      `(("cyrus-sasl" ,cyrus-sasl)
 193        ("gdbm" ,gdbm)
 194        ("gpgme" ,gpgme)
 195        ("ncurses" ,ncurses)
 196        ("openssl" ,openssl)
 197        ("perl" ,perl)))
 198     (arguments
 199      `(#:configure-flags '("--enable-smtp"
 200                            "--enable-imap"
 201                            "--enable-pop"
 202                            "--enable-gpgme"
 203                            "--enable-hcache" ; for header caching
 204                            "--with-ssl"
 205                            "--with-sasl"
 206                            ;; so that mutt does not check whether the path
 207                            ;; exists, which it does not in the chroot
 208                            "--with-mailpath=/var/mail")))
 209     (home-page "http://www.mutt.org/")
 210     (synopsis "Mail client")
 211     (description
 212      "Mutt is a small but very powerful text-based mail client for Unix
 213 operating systems.")
 214     (license gpl2+)))
 215
 216 (define-public gmime
 217   (package
 218     (name "gmime")
 219     (version "2.6.20")
 220     (source (origin
 221               (method url-fetch)
 222               (uri (string-append "mirror://gnome/sources/gmime/"
 223                                   (version-major+minor version)
 224                                   "/gmime-" version ".tar.xz"))
 225               (sha256
 226                (base32
 227                 "0rfzbgsh8ira5p76kdghygl5i3fvmmx4wbw5rp7f8ajc4vxp18g0"))))
 228     (build-system gnu-build-system)
 229     (native-inputs
 230      `(("pkg-config" ,pkg-config)
 231        ("gnupg" ,gnupg)))               ; for tests only
 232     (inputs `(("glib" ,glib)
 233               ("gpgme" ,gpgme)
 234               ("zlib" ,zlib)))
 235     (arguments
 236      `(#:phases
 237        (modify-phases %standard-phases
 238          (add-after
 239           'unpack 'patch-paths-in-tests
 240           (lambda _
 241             ;; The test programs run several programs using 'system' with
 242             ;; hard-coded paths.  Here we patch them all.  We also change "gpg"
 243             ;; to "gpg2".  We use ISO-8859-1 here because test-iconv.c contains
 244             ;; raw byte sequences in several different encodings.
 245             (with-fluids ((%default-port-encoding #f))
 246               (substitute* (find-files "tests" "\\.c$")
 247                 (("(system *\\(\")(/[^ ]*)" all pre prog-path)
 248                  (let* ((base (basename prog-path))
 249                         (prog (which (if (string=? base "gpg") "gpg2" base))))
 250                    (string-append pre
 251                                   (or prog (error "not found: " base))))))))))))
 252     (home-page "http://spruce.sourceforge.net/gmime/")
 253     (synopsis "MIME message parser and creator library")
 254     (description
 255      "GMime provides a core library and set of utilities which may be used for
 256 the creation and parsing of messages using the Multipurpose Internet Mail
 257 Extension (MIME).")
 258     (license (list lgpl2.1+ gpl2+ gpl3+))))
 259
 260 (define-public bogofilter
 261   (package
 262     (name "bogofilter")
 263     (version "1.2.4")
 264     (source (origin
 265               (method url-fetch)
 266               (uri (string-append "mirror://sourceforge/bogofilter/bogofilter-"
 267                                   version "/bogofilter-"
 268                                   version ".tar.bz2"))
 269               (sha256
 270                (base32
 271                 "1d56n2m9inm8gnzm88aa27xl2a7sp7aff3484vmflpqkinjqf0p1"))))
 272     (build-system gnu-build-system)
 273     (arguments
 274      '(#:phases (alist-cons-before
 275                  'check 'pre-check
 276                  (lambda _
 277                    (substitute* "src/tests/t.frame"
 278                      (("GREP=/bin/grep")
 279                       (string-append "GREP=" (which "grep") "\n"))))
 280                  %standard-phases)))
 281     (native-inputs `(("flex" ,flex)))
 282     (inputs `(("bdb" ,bdb)))
 283     (home-page "http://bogofilter.sourceforge.net/")
 284     (synopsis "Mail classifier based on a Bayesian filter")
 285     (description
 286      "Bogofilter is a mail filter that classifies mail as spam or ham
 287  (non-spam) by a statistical analysis of the message's header and
 288 content (body).  The program is able to learn from the user's classifications
 289 and corrections.  It is based on a Bayesian filter.")
 290     (license gpl2)))
 291
 292 (define-public offlineimap
 293   (package
 294     (name "offlineimap")
 295     (version "6.7.0")
 296     (source (origin
 297               (method url-fetch)
 298               (uri (string-append "https://github.com/OfflineIMAP/offlineimap/"
 299                                   "archive/v" version ".tar.gz"))
 300               (file-name (string-append name "-" version ".tar.gz"))
 301               (sha256
 302                (base32
 303                 "0462mal2fxvavxhwjk1a6vsnspx07yniifa687dwg46aplqznin4"))))
 304     (build-system python-build-system)
 305     (native-inputs `(("python" ,python-2)))
 306     (inputs `(("python2-pysqlite" ,python2-pysqlite)))
 307     (arguments
 308      ;; The setup.py script expects python-2.
 309      `(#:python ,python-2
 310       ;; Tests require a modifiable IMAP account.
 311        #:tests? #f
 312        #:phases
 313        (modify-phases %standard-phases
 314          (add-after 'install 'wrap-binary
 315            (lambda* (#:key inputs outputs #:allow-other-keys)
 316              (let* ((out (assoc-ref outputs "out"))
 317                     (bin (string-append out "/bin/offlineimap")))
 318                (wrap-program bin
 319                  `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH"))))
 320                #t))))))
 321     (home-page "http://www.offlineimap.org")
 322     (synopsis "Sync emails between two repositories")
 323     (description
 324      "OfflineImap synchronizes emails between two repositories, so that you
 325 can read the same mailbox from multiple computers.  It supports IMAP as REMOTE
 326 repository and Maildir/IMAP as LOCAL repository.")
 327     (license gpl2+)))
 328
 329 (define %mu-gtester-patch
 330   ;; Ensure tests have unique names, to placate GLib 2.6's gtester.
 331   (origin
 332     (method url-fetch)
 333     (uri "https://github.com/djcb/mu/commit/b44039ed.patch")
 334     (sha256
 335      (base32
 336       "165hryqqhx3wah8a4f5jaq465azx1pm9r4jid7880pys9gd88qlv"))))
 337
 338 (define-public mu
 339   (package
 340     (name "mu")
 341     (version "0.9.13")
 342     (source (origin
 343               (method url-fetch)
 344               (uri (string-append "https://github.com/djcb/mu/archive/v"
 345                                   version ".tar.gz"))
 346               (file-name (string-append "mu-" version ".tar.gz"))
 347               (sha256
 348                (base32
 349                 "0wj33pma8xgjvn2akk7khzbycwn4c9sshxvzdph9dnpy7gyqxj51"))
 350               (patches (list %mu-gtester-patch))))
 351     (build-system gnu-build-system)
 352     (native-inputs
 353      `(("pkg-config" ,pkg-config)
 354        ("glib" ,glib "bin")             ; for gtester
 355        ("autoconf" ,autoconf)
 356        ("automake" ,automake)
 357        ("libtool" ,libtool)
 358        ("texinfo" ,texinfo)))
 359     ;; TODO: Add webkit and gtk to build the mug GUI.
 360     (inputs
 361      `(("xapian" ,xapian)
 362        ("emacs" ,emacs-no-x)
 363        ("guile" ,guile-2.0)
 364        ("glib" ,glib)
 365        ("gmime" ,gmime)
 366        ("tzdata" ,tzdata)))             ;for mu/test/test-mu-query.c
 367     (arguments
 368      '(#:phases
 369        (modify-phases %standard-phases
 370          (add-after 'unpack 'patch-configure.ac
 371            ;; By default, elisp code goes to "share/emacs/site-lisp/mu4e",
 372            ;; so our Emacs package can't find it.  Setting "--with-lispdir"
 373            ;; configure flag doesn't help because "mu4e" will be added to
 374            ;; the lispdir anyway, so we have to modify "configure.ac".
 375            (lambda _
 376              (substitute* "configure.ac"
 377                (("^ +lispdir=.*") ""))
 378              #t))
 379          (add-after 'patch-configure.ac 'autoreconf
 380            (lambda _
 381              (zero? (system* "autoreconf" "-vi"))))
 382          (add-before 'check 'check-tz-setup
 383            (lambda* (#:key inputs #:allow-other-keys)
 384              ;; For mu/test/test-mu-query.c
 385              (setenv "TZDIR"
 386                      (string-append (assoc-ref inputs "tzdata")
 387                                     "/share/zoneinfo"))
 388              #t)))))
 389     (home-page "http://www.djcbsoftware.nl/code/mu/")
 390     (synopsis "Quickly find emails")
 391     (description
 392      "Mu is a tool for dealing with e-mail messages stored in the
 393 Maildir-format.  Mu's purpose in life is to help you to quickly find the
 394 messages you need; in addition, it allows you to view messages, extract
 395 attachments, create new maildirs, and so on.")
 396     (license gpl3+)))
 397
 398 (define-public notmuch
 399   (package
 400     (name "notmuch")
 401     (version "0.21")
 402     (source (origin
 403               (method url-fetch)
 404               (uri (string-append "https://notmuchmail.org/releases/notmuch-"
 405                                   version ".tar.gz"))
 406               (sha256
 407                (base32
 408                 "1cr53rbpkcy3pvrmhbg2gq7sjpwb0c8xd7a4zhzxbiv8s7z8yvyh"))))
 409     (build-system gnu-build-system)
 410     (arguments
 411      '(#:tests? #f ;; FIXME: 662 tests; 168 fail and 99 are skipped
 412                    ;; with perl input: 50 fail and 99 are skipped
 413        #:phases (modify-phases %standard-phases
 414                   (replace 'configure
 415                     (lambda* (#:key outputs #:allow-other-keys)
 416                       (setenv "CC" "gcc")
 417                       (setenv "CONFIG_SHELL" (which "sh"))
 418
 419                       (let ((out (assoc-ref outputs "out")))
 420                         (zero? (system* "./configure"
 421                                         (string-append "--prefix=" out)))))))))
 422     (native-inputs
 423      `(("pkg-config" ,pkg-config)
 424        ("python" ,python-2)
 425        ("python-docutils" ,python2-docutils)
 426        ("python-sphinx" ,python2-sphinx)
 427        ("bash-completion" ,bash-completion)))
 428     (inputs
 429      `(("emacs" ,emacs)
 430        ("glib" ,glib)
 431        ("gmime" ,gmime)
 432        ("talloc" ,talloc)
 433        ("xapian" ,xapian)
 434        ("zlib" ,zlib)))
 435     (home-page "http://notmuchmail.org/")
 436     (synopsis "Thread-based email index, search, and tagging")
 437     (description
 438      "Notmuch is a command-line based program for indexing, searching, read-
 439 ing, and tagging large collections of email messages.")
 440     (license gpl3+)))
 441
 442 (define-public notmuch-addrlookup-c
 443   (package
 444     (name "notmuch-addrlookup-c")
 445     (version "7")
 446     (source (origin
 447               (method url-fetch)
 448               (uri (string-append
 449                     "https://github.com/aperezdc/" name "/archive/v"
 450                     version ".tar.gz"))
 451               (file-name (string-append name "-" version ".tar.gz"))
 452               (sha256
 453                (base32
 454                 "0rslg2ifgyhl6asv3yr1f62m9xjfcinv7i6qb07h2k217jqlmrri"))))
 455     (build-system gnu-build-system)
 456     (arguments
 457      '(#:tests? #f ; no tests
 458        #:make-flags (list "CC=gcc"
 459                           (string-append "PREFIX="
 460                                          (assoc-ref %outputs "out")))
 461        #:phases (modify-phases %standard-phases
 462                   (delete 'configure)
 463                   ;; Remove vim code completion config, it's not needed to
 464                   ;; build (or be patched).
 465                   (add-before 'patch-source-shebangs 'delete-ycm-file
 466                               (lambda _ (delete-file ".ycm_extra_conf.py")))
 467                   (replace 'install
 468                            (lambda* (#:key outputs #:allow-other-keys)
 469                              (let ((bin (string-append
 470                                          (assoc-ref outputs "out") "/bin")))
 471                                (install-file "notmuch-addrlookup" bin)))))))
 472     (native-inputs
 473      `(("pkg-config" ,pkg-config)))
 474     (inputs
 475      `(("glib" ,glib)
 476        ("notmuch" ,notmuch)))
 477     (home-page "https://github.com/aperezdc/notmuch-addrlookup-c")
 478     (synopsis "Address lookup tool for Notmuch")
 479     (description "This is an address lookup tool using a Notmuch database,
 480 useful for email address completion.")
 481     (license license:expat)))
 482
 483 (define-public python2-notmuch
 484   (package
 485     (name "python2-notmuch")
 486     (version "0.15.2")
 487     (source (origin
 488               (method url-fetch)
 489               (uri (string-append
 490                     "https://pypi.python.org/packages/source/n/notmuch/notmuch-"
 491                     version
 492                     ".tar.gz"))
 493               (sha256
 494                (base32
 495                 "18g8701ibr153ngsz258kgcd42wqnbf9ifpqig1bijy6b0zx9xn5"))))
 496     (build-system python-build-system)
 497     (inputs `(("notmuch" ,notmuch)))
 498     (arguments
 499      `(#:python ,python-2
 500        #:phases (modify-phases %standard-phases
 501                   (add-before
 502                    'build 'set-libnotmuch-file-name
 503                    (lambda* (#:key inputs #:allow-other-keys)
 504                      (let ((notmuch (assoc-ref inputs "notmuch")))
 505                        (substitute* "notmuch/globals.py"
 506                          (("libnotmuch\\.so\\.[0-9]")
 507                           (string-append notmuch "/lib/libnotmuch.so.4")))
 508                        #t))))
 509        #:tests? #f))                              ;no "test" target
 510     (home-page "http://notmuchmail.org/")
 511     (synopsis "Python bindings of the Notmuch mail indexing library")
 512     (description
 513      "This package provides Python bindings to use the Notmuch mail indexing
 514 and search library.")
 515     (license gpl3+)))
 516
 517 (define-public getmail
 518   (package
 519     (name "getmail")
 520     (version "4.48.0")
 521     (source
 522      (origin
 523        (method url-fetch)
 524        (uri (string-append "http://pyropus.ca/software/getmail/old-versions/"
 525                            name "-" version ".tar.gz"))
 526        (sha256
 527         (base32
 528          "0k5rm5kag14izng2ajcagvli9sns5mzvkyfa65ri4xymxs91wi29"))))
 529     (build-system python-build-system)
 530     (arguments
 531      `(#:tests? #f ; no tests
 532        #:python ,python-2))
 533     (home-page "http://pyropus.ca/software/getmail/")
 534     (synopsis "Mail retriever")
 535     (description
 536      "A flexible, extensible mail retrieval system with support for
 537 POP3, IMAP4, SSL variants of both, maildirs, mboxrd files, external MDAs,
 538 arbitrary message filtering, single-user and domain-mailboxes, and many other
 539 useful features.")
 540
 541     ;; License is specified in file '__init__.py'.
 542     (license gpl2)))
 543
 544 (define-public libetpan
 545   (package
 546     (name "libetpan")
 547     (version "1.6")
 548     (source (origin
 549              (method url-fetch)
 550              (uri (string-append "https://github.com/dinhviethoa/" name
 551                    "/archive/" version ".tar.gz"))
 552              (file-name (string-append name "-" version ".tar.gz"))
 553              (sha256
 554                (base32 "05qyqx2c1ppb1jnrs3m52i60f9xlxfxdmb9dnwg4vqjv8kwv2qkr"))))
 555     (build-system gnu-build-system)
 556     (native-inputs `(("autoconf" ,(autoconf-wrapper))
 557                      ("automake" ,automake)
 558                      ("libtool" ,libtool)
 559                      ("pkg-config" ,pkg-config)))
 560     (propagated-inputs
 561      ;; 'libetpan-config --libs' returns '-lssl -lcrypto -lsasl2', so these
 562      ;; libraries need to be propagated.
 563      `(("cyrus-sasl" ,cyrus-sasl)
 564        ("openssl" ,openssl)))
 565     (inputs
 566      `(("curl" ,curl)
 567        ("expat" ,expat)))
 568     (arguments
 569       '(#:phases (alist-cons-after
 570                   'unpack 'autogen
 571                   (lambda _
 572                     (setenv "NOCONFIGURE" "true")
 573                     (zero? (system* "sh" "autogen.sh")))
 574                   %standard-phases)
 575         #:configure-flags
 576         '("--disable-static" "--disable-db")))
 577     (home-page "http://www.etpan.org/libetpan.html")
 578     (synopsis "Portable middleware for email access")
 579     (description
 580      "The purpose of this mail library is to provide a portable, efficient
 581 framework for different kinds of mail access: IMAP, SMTP, POP and NNTP.  It
 582 provides an API for C language.  It's the low-level API used by MailCore and
 583 MailCore 2.")
 584     (license (non-copyleft "file://COPYING"))))
 585
 586 (define-public claws-mail
 587   (package
 588     (name "claws-mail")
 589     (version "3.13.2")
 590     (source (origin
 591               (method url-fetch)
 592               (uri (string-append
 593                     "http://www.claws-mail.org/releases/" name "-" version
 594                     ".tar.xz"))
 595               (sha256
 596                (base32
 597                 "1l8ankx0qpq1ix1an8viphcf11ksh53jsrm1xjmq8cjbh5910wva"))))
 598     (build-system gnu-build-system)
 599     (native-inputs `(("pkg-config" ,pkg-config)))
 600     (inputs `(("bogofilter" ,bogofilter)
 601               ("curl" ,curl)
 602               ("dbus-glib" ,dbus-glib)
 603               ("enchant" ,enchant)
 604               ("expat" ,expat)
 605               ("ghostscript" ,ghostscript)
 606               ("hicolor-icon-theme" ,hicolor-icon-theme)
 607               ("gnupg" ,gnupg)
 608               ("gnutls" ,gnutls)
 609               ("gpgme" ,gpgme)
 610               ("gtk" ,gtk+-2)
 611               ("libarchive" ,libarchive)
 612               ("libcanberra" ,libcanberra)
 613               ("libetpan" ,libetpan)
 614               ("libnotify" ,libnotify)
 615               ("libsm" ,libsm)
 616               ("libxml2" ,libxml2)
 617               ("perl" ,perl)
 618               ("python-2" ,python-2)
 619               ("mime-info" ,shared-mime-info)))
 620     (arguments
 621       '(#:configure-flags
 622         '("--enable-gnutls" "--enable-pgpmime-plugin" "--enable-enchant")
 623         #:phases (modify-phases %standard-phases
 624                    (add-before 'build 'patch-mime
 625                      (lambda* (#:key inputs #:allow-other-keys)
 626                        (substitute* "src/procmime.c"
 627                          (("/usr/share/mime/globs")
 628                           (string-append (assoc-ref inputs "mime-info")
 629                                          "/share/mime/globs"))))))))
 630     (synopsis "GTK-based Email client")
 631     (description
 632      "Claws-Mail is an email client (and news reader) based on GTK+.  The
 633 appearance and interface are designed to be familiar to new users coming from
 634 other popular email clients, as well as experienced users.  Almost all commands
 635 are accessible with the keyboard.  Plus, Claws-Mail is extensible via addons
 636 which can add many functionalities to the base client.")
 637     (home-page "http://www.claws-mail.org/")
 638     (license gpl3+))) ; most files are actually public domain or x11
 639
 640 (define-public msmtp
 641   (package
 642     (name "msmtp")
 643     (version "1.6.4")
 644     (source
 645      (origin
 646        (method url-fetch)
 647        (uri (string-append
 648              "mirror://sourceforge/msmtp/msmtp-" version ".tar.xz"))
 649        (sha256 (base32
 650                 "1kfihblm769s4hv8iah5mqynqd6hfwlyz5rcg2v423a4llic0jcv"))))
 651     (build-system gnu-build-system)
 652     (inputs
 653      `(("libidn" ,libidn)
 654        ("libsecret" ,libsecret)
 655        ("gnutls" ,gnutls)
 656        ("zlib" ,zlib)
 657        ("gsasl" ,gsasl)))
 658     (native-inputs
 659      `(("pkg-config" ,pkg-config)))
 660     (home-page "http://msmtp.sourceforge.net/")
 661     (arguments
 662      `(#:configure-flags (list "--with-libgsasl"
 663                                "--with-libidn"
 664                                "--with-tls=gnutls")
 665        #:phases
 666        (modify-phases %standard-phases
 667          (add-after 'install 'install-msmtpq
 668            (lambda* (#:key outputs #:allow-other-keys)
 669              (let* ((out (assoc-ref outputs "out"))
 670                     (bin (string-append out "/bin"))
 671                     (doc (string-append out "/share/doc/msmtp"))
 672                     (msmtpq (string-append "scripts/msmtpq")))
 673                (install-file (string-append msmtpq "/msmtpq") bin)
 674                (install-file (string-append msmtpq "/msmtp-queue") bin)
 675                (install-file (string-append msmtpq "/README.msmtpq") doc)
 676                #t))))))
 677     (synopsis
 678      "Simple and easy to use SMTP client with decent sendmail compatibility")
 679     (description
 680      "msmtp is an SMTP client.  In the default mode, it transmits a mail to
 681 an SMTP server (for example at a free mail provider) which takes care of further
 682 delivery.")
 683     (license gpl3+)))
 684
 685 (define-public exim
 686   (package
 687     (name "exim")
 688     (version "4.87")
 689     (source
 690      (origin
 691        (method url-fetch)
 692        (uri (list (string-append "ftp://ftp.exim.org/pub/exim/exim4/exim-"
 693                                  version ".tar.bz2")
 694                   (string-append "ftp://ftp.exim.org/pub/exim/exim4/old/exim-"
 695                                  version ".tar.bz2")))
 696        (sha256
 697         (base32
 698          "1jbxn13shq90kpn0s73qpjnx5xm8jrpwhcwwgqw5s6sdzw6iwsbl"))))
 699     (build-system gnu-build-system)
 700     (inputs
 701      `(("bdb" ,bdb)
 702        ("gnutls" ,gnutls)
 703        ("gzip" ,gzip)
 704        ("bzip2" ,bzip2)
 705        ("xz" ,xz)
 706        ("pcre" ,pcre)
 707        ("perl" ,perl)
 708        ("libxt" ,libxt)
 709        ("libxaw" ,libxaw)))
 710     (native-inputs
 711      `(("perl" ,perl)))
 712     (arguments
 713      '(#:phases
 714        (alist-replace
 715         'configure
 716         ;; We'd use #:make-flags but the top-level Makefile calls others
 717         ;; recursively, so just set all variables this way.
 718         (lambda* (#:key outputs inputs #:allow-other-keys)
 719           (substitute* '("Makefile" "OS/Makefile-Default")
 720             (("(RM_COMMAND=).*" all var)
 721              (string-append var "rm\n")))
 722           (copy-file "src/EDITME" "Local/Makefile")
 723           (copy-file "exim_monitor/EDITME" "Local/eximon.conf")
 724           (let ((out (assoc-ref outputs "out"))
 725                 (gzip (assoc-ref inputs "gzip"))
 726                 (bzip2 (assoc-ref inputs "bzip2"))
 727                 (xz (assoc-ref inputs "xz")))
 728             (substitute* '("Local/Makefile")
 729               (("(BIN_DIRECTORY=).*" all var)
 730                (string-append var out "/bin\n"))
 731               (("(CONFIGURE_FILE=).*" all var)
 732                (string-append var out "/etc/exim.conf\n"))
 733               (("(EXIM_USER=).*" all var)
 734                (string-append var "nobody\n"))
 735               (("(FIXED_NEVER_USERS=).*" all var)
 736                (string-append var "\n"))  ;XXX no root in build environment
 737               (("(COMPRESS_COMMAND=).*" all var)
 738                (string-append var gzip "/bin/gzip\n"))
 739               (("(ZCAT_COMMAND=).*" all var)
 740                (string-append var gzip "/bin/zcat\n")))
 741             ;; This file has hardcoded names for tools despite the zcat
 742             ;; configuration above.
 743             (substitute* '("src/exigrep.src")
 744               (("'zcat'") (string-append "'" gzip "/bin/zcat'"))
 745               (("'bzcat'") (string-append "'" bzip2 "/bin/bzcat'"))
 746               (("'xzcat'") (string-append "'" xz "/bin/xzcat'"))
 747               (("'lzma'") (string-append "'" xz "/bin/lzma'")))))
 748         (alist-cons-before
 749          'build 'fix-sh-paths
 750          (lambda* (#:key inputs #:allow-other-keys)
 751            (substitute* '("scripts/lookups-Makefile" "scripts/reversion")
 752              (("SHELL=/bin/sh") "SHELL=sh"))
 753            (substitute* '("scripts/Configure-config.h")
 754              (("\\| /bin/sh") "| sh"))
 755            (let ((bash (assoc-ref inputs "bash")))
 756              (substitute* '("scripts/Configure-eximon")
 757                (("#!/bin/sh") (string-append "#!" bash "/bin/sh")))))
 758          %standard-phases))
 759        #:make-flags '("INSTALL_ARG=-no_chown")
 760        ;; No 'check' target.
 761        #:tests? #f))
 762     (home-page "http://www.exim.org/")
 763     (synopsis
 764      "Message Transfer Agent (MTA) developed at the University of Cambridge")
 765     (description
 766      "Exim is a message transfer agent (MTA) developed at the University of
 767 Cambridge for use on Unix systems connected to the Internet.  In style it is
 768 similar to Smail 3, but its facilities are more general.  There is a great
 769 deal of flexibility in the way mail can be routed, and there are extensive
 770 facilities for checking incoming mail.")
 771     (license gpl2+)))
 772
 773 (define-public dovecot
 774   (package
 775     (name "dovecot")
 776     (version "2.2.19")
 777     (source
 778      (origin
 779        (method url-fetch)
 780        (uri (string-append "http://www.dovecot.org/releases/"
 781                            (version-major+minor version) "/"
 782                            name "-" version ".tar.gz"))
 783        (sha256 (base32
 784                 "17sf5aancad4pg1vx1606k99389wg76blpqzmnmxlz4hklzix7km"))))
 785     (build-system gnu-build-system)
 786     (native-inputs
 787      `(("pkg-config" ,pkg-config)))
 788     (inputs
 789      `(("openssl" ,openssl)
 790        ("zlib" ,zlib)
 791        ("bzip2" ,bzip2)
 792        ("sqlite" ,sqlite)
 793        ("linux-pam" ,linux-pam)))
 794     (arguments
 795      `(#:configure-flags '("--sysconfdir=/etc"
 796                            "--localstatedir=/var")
 797        #:phases (modify-phases %standard-phases
 798                   (add-before
 799                    'configure 'pre-configure
 800                    (lambda _
 801                      ;; Simple hack to avoid installing in /etc
 802                      (substitute* '("doc/Makefile.in"
 803                                     "doc/example-config/Makefile.in")
 804                        (("pkgsysconfdir = .*")
 805                         "pkgsysconfdir = /tmp/etc"))
 806                      #t)))))
 807     (home-page "http://www.dovecot.org")
 808     (synopsis "Secure POP3/IMAP server")
 809     (description
 810      "Dovecot is a mail server whose major goals are security and reliability.
 811 It supports mbox/Maildir and its own dbox/mdbox formats.")
 812     ;; Most source files are covered by either lgpl2.1 or expat.  The SHA code
 813     ;; is covered by a variant of BSD-3, and UnicodeData.txt is covered by the
 814     ;; Unicode, Inc. License Agreement for Data Files and Software.
 815     (license (list lgpl2.1 license:expat (non-copyleft "file://COPYING")))))
 816
 817 (define-public isync
 818   (package
 819     (name "isync")
 820     (version "1.2.1")
 821     (source
 822      (origin
 823        (method url-fetch)
 824        (uri (string-append "mirror://sourceforge/isync/isync/"
 825                            version "/isync-" version ".tar.gz"))
 826        (sha256 (base32
 827                 "1bij6nm06ghkg98n2pdyacam2fyg5y8f7ajw0d5653m0r4ldw5p7"))))
 828     (build-system gnu-build-system)
 829     (inputs
 830      `(("bdb" ,bdb)
 831        ("openssl" ,openssl)))
 832     (home-page "http://isync.sourceforge.net/")
 833     (synopsis "Mailbox synchronization program")
 834     (description
 835      "isync/mbsync is command line tool for two-way synchronization of
 836 mailboxes.  Currently Maildir and IMAP are supported types.")
 837     (license gpl2+)))
 838
 839 (define-public perl-email-abstract
 840   (package
 841     (name "perl-email-abstract")
 842     (version "3.008")
 843     (source
 844      (origin
 845        (method url-fetch)
 846        (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
 847                            "Email-Abstract-" version ".tar.gz"))
 848        (sha256
 849         (base32
 850          "0h42rhvp769wb421cpbbg6v6xjp8iv86mvz70pqgfgf4nsn6jwgw"))))
 851     (build-system perl-build-system)
 852     (propagated-inputs
 853      `(("perl-email-simple" ,perl-email-simple)
 854        ("perl-module-pluggable" ,perl-module-pluggable)
 855        ("perl-mro-compat" ,perl-mro-compat)))
 856     (home-page "http://search.cpan.org/dist/Email-Abstract")
 857     (synopsis "Interface to mail representations")
 858     (description "Email::Abstract provides module writers with the ability to
 859 write simple, representation-independent mail handling code.")
 860     (license (package-license perl))))
 861
 862 (define-public perl-email-address
 863   (package
 864     (name "perl-email-address")
 865     (version "1.907")
 866     (source
 867      (origin
 868        (method url-fetch)
 869        (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
 870                            "Email-Address-" version ".tar.gz"))
 871        (sha256
 872         (base32
 873          "1ai4r149pzjv9dc2vddir8zylj0z1pii93rm4g591lx7avim71hx"))))
 874     (build-system perl-build-system)
 875     (home-page "http://search.cpan.org/dist/Email-Address")
 876     (synopsis "Email address parsing and creation")
 877     (description "Email::Address implements a regex-based RFC 2822 parser that
 878 locates email addresses in strings and returns a list of Email::Address
 879 objects found.  Alternatively you may construct objects manually.")
 880     (license (package-license perl))))
 881
 882 (define-public perl-email-date-format
 883   (package
 884     (name "perl-email-date-format")
 885     (version "1.005")
 886     (source
 887      (origin
 888        (method url-fetch)
 889        (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
 890                            "Email-Date-Format-" version ".tar.gz"))
 891        (sha256
 892         (base32
 893          "012ivfwpnbl3wr50f9c6f4azhdlxnm31pdn72528g79v61z6372p"))))
 894     (build-system perl-build-system)
 895     (home-page "http://search.cpan.org/dist/Email-Date-Format")
 896     (synopsis "Produce RFC 2822 date strings")
 897     (description "Email::Date::Format provides a means for generating an RFC
 898 2822 compliant datetime string.")
 899     (license (package-license perl))))
 900
 901 (define-public perl-email-messageid
 902   (package
 903     (name "perl-email-messageid")
 904     (version "1.405")
 905     (source
 906      (origin
 907        (method url-fetch)
 908        (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
 909                            "Email-MessageID-" version ".tar.gz"))
 910        (sha256
 911         (base32
 912          "09216naz21x99ff33wdm3j3zq1zhdbxhrsmx8bvavjrw3gjsvrq3"))))
 913     (build-system perl-build-system)
 914     (home-page "http://search.cpan.org/dist/Email-MessageID")
 915     (synopsis "Generate world unique message-ids")
 916     (description "Email::MessageID generates recommended message-ids to
 917 identify a message uniquely.")
 918     (license (package-license perl))))
 919
 920 (define-public perl-email-mime
 921   (package
 922     (name "perl-email-mime")
 923     (version "1.929")
 924     (source
 925      (origin
 926        (method url-fetch)
 927        (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
 928                            "Email-MIME-" version ".tar.gz"))
 929        (sha256
 930         (base32
 931          "1sf7dldg4dvicyw6dl1vx6s1gjq3fcppi0103ikl0vi6v5xjdjdh"))))
 932     (build-system perl-build-system)
 933     (propagated-inputs
 934      `(("perl-email-address" ,perl-email-address)
 935        ("perl-email-messageid" ,perl-email-messageid)
 936        ("perl-email-mime-contenttype" ,perl-email-mime-contenttype)
 937        ("perl-email-mime-encodings" ,perl-email-mime-encodings)
 938        ("perl-email-simple" ,perl-email-simple)
 939        ("perl-mime-types" ,perl-mime-types)))
 940     (home-page "http://search.cpan.org/dist/Email-MIME")
 941     (synopsis "MIME message handling")
 942     (description "Email::MIME is an extension of the Email::Simple module, to
 943 handle MIME encoded messages.  It takes a message as a string, splits it up
 944 into its constituent parts, and allows you access to various parts of the
 945 message.  Headers are decoded from MIME encoding.")
 946     (license (package-license perl))))
 947
 948 (define-public perl-email-mime-contenttype
 949   (package
 950     (name "perl-email-mime-contenttype")
 951     (version "1.017")
 952     (source
 953      (origin
 954        (method url-fetch)
 955        (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
 956                            "Email-MIME-ContentType-" version ".tar.gz"))
 957        (sha256
 958         (base32
 959          "1cl1l97lg690dh7i704hqi7yhxalq1chy7ylld5yc5v38jqa6gcn"))))
 960     (build-system perl-build-system)
 961     (native-inputs
 962      `(("perl-capture-tiny" ,perl-capture-tiny)))
 963     (home-page "http://search.cpan.org/dist/Email-MIME-ContentType")
 964     (synopsis "Parse MIME Content-Type headers")
 965     (description "Email::MIME::ContentType parses a MIME Content-Type
 966 header.")
 967     (license (package-license perl))))
 968
 969 (define-public perl-email-mime-encodings
 970   (package
 971     (name "perl-email-mime-encodings")
 972     (version "1.315")
 973     (source
 974      (origin
 975        (method url-fetch)
 976        (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
 977                            "Email-MIME-Encodings-" version ".tar.gz"))
 978        (sha256
 979         (base32
 980          "0p5b8g9gh35m8fqrpx60g4bp98rvwd02n5b0vm9wh7mk0xah8wac"))))
 981     (build-system perl-build-system)
 982     (native-inputs
 983      `(("perl-capture-tiny" ,perl-capture-tiny)))
 984     (home-page "http://search.cpan.org/dist/Email-MIME-Encodings")
 985     (synopsis "Unified interface to MIME encoding and decoding")
 986     (description "This module wraps MIME::Base64 and MIME::QuotedPrint.")
 987     (license (package-license perl))))
 988
 989 (define-public perl-email-sender
 990   (package
 991     (name "perl-email-sender")
 992     (version "1.300016")
 993     (source
 994      (origin
 995        (method url-fetch)
 996        (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
 997                            "Email-Sender-" version ".tar.gz"))
 998        (sha256
 999         (base32
1000          "18x26fjh399q3s2g8dajb9r10633c46jrnbvycpnpclgnzhjs100"))))
1001     (build-system perl-build-system)
1002     (native-inputs
1003      `(("perl-capture-tiny" ,perl-capture-tiny)))
1004     (propagated-inputs
1005      `(("perl-email-abstract" ,perl-email-abstract)
1006        ("perl-email-address" ,perl-email-address)
1007        ("perl-email-simple" ,perl-email-simple)
1008        ("perl-list-moreutils" ,perl-list-moreutils)
1009        ("perl-module-runtime" ,perl-module-runtime)
1010        ("perl-moo" ,perl-moo)
1011        ("perl-moox-types-mooselike" ,perl-moox-types-mooselike)
1012        ("perl-sub-exporter" ,perl-sub-exporter)
1013        ("perl-throwable" ,perl-throwable)
1014        ("perl-try-tiny" ,perl-try-tiny)))
1015     (home-page "http://search.cpan.org/dist/Email-Sender")
1016     (synopsis "Perl library for sending email")
1017     (description "Email::Sender replaces the old and sometimes problematic
1018 Email::Send library.")
1019     (license (package-license perl))))
1020
1021 (define-public perl-email-simple
1022   (package
1023     (name "perl-email-simple")
1024     (version "2.206")
1025     (source
1026      (origin
1027        (method url-fetch)
1028        (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
1029                            "Email-Simple-" version ".tar.gz"))
1030        (sha256
1031         (base32
1032          "19dpy3j5na2k9qw1jcpc8ia25038068r9j1bn34f9yyrisz7s522"))))
1033     (build-system perl-build-system)
1034     (propagated-inputs
1035      `(("perl-email-date-format" ,perl-email-date-format)))
1036     (home-page "http://search.cpan.org/dist/Email-Simple")
1037     (synopsis "Parsing of RFC 2822 messages")
1038     (description "Email::Simple provides simple parsing of RFC 2822 message
1039 format and headers.")
1040     (license (package-license perl))))
1041
1042 (define-public libesmtp
1043   (package
1044     (name "libesmtp")
1045     (version "1.0.6")
1046     (source
1047      (origin
1048        (method url-fetch)
1049        (uri (string-append "http://www.stafford.uklinux.net/libesmtp/libesmtp-"
1050                            version ".tar.bz2"))
1051        (sha256
1052         (base32
1053          "02zbniyz7qys1jmx3ghx21kxmns1wc3hmv80gp7ag7yra9f1m9nh"))))
1054     (build-system gnu-build-system)
1055     (propagated-inputs
1056      `(("openssl" ,openssl)))
1057     (home-page "http://www.stafford.uklinux.net/libesmtp/")
1058     (synopsis "Library for sending mail via remote hosts using SMTP")
1059     (description "libESMTP is an SMTP client which manages posting (or
1060 submission of) electronic mail via a preconfigured Mail Transport Agent (MTA).
1061 It may be used as part of a Mail User Agent (MUA) or other program that must
1062 be able to post electronic mail where mail functionality may not be that
1063 program's primary purpose.")
1064     (license (list lgpl2.1+ gpl2+))))
1065
1066 (define-public esmtp
1067   (package
1068     (name "esmtp")
1069     (version "1.2")
1070     (source
1071      (origin
1072        (method git-fetch)
1073        (uri (git-reference
1074              (url "https://github.com/andywingo/esmtp.git")
1075              (commit "01bf9fc")))
1076        (sha256
1077         (base32
1078          "1ay282rrl92h0m0m8z5zzjnwiiagi7c78aq2qvhia5mw7prwfyw2"))
1079        (file-name (string-append name "-" version "-checkout"))))
1080     (arguments
1081      `(#:phases (modify-phases %standard-phases
1082                   (add-before
1083                    'configure 'autoconf
1084                    (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
1085     (build-system gnu-build-system)
1086     (native-inputs
1087      `(("bison" ,bison)
1088        ("flex" ,flex)
1089        ("autoconf" ,autoconf)
1090        ("automake" ,automake)
1091        ("libtool" ,libtool)))
1092     (inputs
1093      `(("libesmtp" ,libesmtp)))
1094     (home-page "http://sourceforge.net/projects/esmtp/")
1095     (synopsis "Relay-only mail transfer agent (MTA)")
1096     (description "Esmtp is a simple relay-only mail transfer agent built using
1097 libESMTP.  It sends e-mail via a remote SMTP server using credentials from the
1098 user's @file{$HOME/.esmtprc} configuration file; see the @command{esmtprc} man
1099 page for more on configuration.  This package also provides minimal
1100 compatibility shims for the @command{sendmail}, @command{mailq}, and
1101 @command{newaliases} commands.")
1102     (license gpl2+)))
1103
1104 (define-public fdm
1105   (package
1106     (name "fdm")
1107     (version "1.9")
1108     (source (origin
1109              (method url-fetch)
1110              (uri (string-append "https://github.com/nicm/fdm/releases/download/"
1111                                  version "/fdm-"
1112                                  version ".tar.gz"))
1113              (file-name (string-append name "-" version ".tar.gz"))
1114              (sha256
1115                (base32 "054rscijahiza5f9qha79rg3siji3bk5mk10f8c2vqx7m4w6qh8n"))))
1116     (build-system gnu-build-system)
1117     (inputs
1118      `(("tdb" ,tdb)
1119        ("openssl" ,openssl)
1120        ("zlib" ,zlib)))
1121     (home-page "https://github.com/nicm/fdm")
1122     (synopsis "Mail Retrieval Agent (MRA) and Mail Delivery Agent (MDA)")
1123     (description "fdm is a program designed to fetch mail from POP3
1124 or IMAP servers, or receive local mail from stdin, and
1125 deliver it in various ways.")
1126     (license
1127      ;; Why point to a source file?  Well, all the individual files have a
1128      ;; copy of this license in their headers, but there's no seprate file
1129      ;; with that information.
1130      (non-copyleft "https://github.com/nicm/fdm/blob/master/command.c"))))
1131
1132
1133 (define-public procmail
1134   (package
1135     (name "procmail")
1136     (version "3.22")
1137     (source
1138      (origin
1139        (method url-fetch)
1140        (uri (string-append
1141              "ftp://ftp.fu-berlin.de/pub/unix/mail/procmail/procmail-"
1142              version
1143              ".tar.gz"))
1144        (sha256
1145         (base32
1146          "05z1c803n5cppkcq99vkyd5myff904lf9sdgynfqngfk9nrpaz08"))
1147        ;; The following patch fixes an ambiguous definition of
1148        ;; getline() in formail.c.  The patch is provided by Debian as
1149        ;; patch 24.
1150        (patches (search-patches "procmail-ambiguous-getline-debian.patch"))))
1151     (arguments
1152      `(#:phases (modify-phases %standard-phases
1153                   (replace 'configure
1154                     (lambda _
1155                       (substitute* "Makefile"
1156                         (("/bin/sh")
1157                          (which "sh"))
1158                         (("/usr")
1159                          (assoc-ref %outputs "out"))
1160                         (("/bin/rm")
1161                          (which "rm")))
1162                       #t)))
1163        #:tests? #f)) ;; There are no tests indicating a successful
1164     ;; build.  Some tests of basic locking mechanisms provided by the
1165     ;; filesystem are performed during 'make install'.  However, these
1166     ;; are performed before the actual build process.
1167     (build-system gnu-build-system)
1168     (inputs `(("glibc" ,glibc)
1169               ("exim" ,exim)))
1170     (home-page "http://www.procmail.org/")
1171     (synopsis "Versatile mail delivery agent (MDA)")
1172     (description "Procmail is a mail delivery agent (MDA) featuring support
1173 for a variety of mailbox formats such as mbox, mh and maildir.  Incoming mail
1174 can be sorted into separate files/directories and arbitrary commands can be
1175 executed on mail arrival.  Procmail is considered stable, but is no longer
1176 maintained.")
1177     (license gpl2+))) ;; procmail allows to choose the
1178                       ;; nonfree Artistic License 1.0
1179                       ;; as alternative to the GPL2+.
1180                       ;; This option is not listed here.
1181
1182 (define-public khard
1183   (package
1184     (name "khard")
1185     (version "0.9.0")
1186     (source (origin
1187               (method url-fetch)
1188               (uri (pypi-uri name version))
1189               (sha256
1190                (base32
1191                 "0y83rji4f270hbb41m4jpr0z3yzvpvbsl32mpg9d38hlydw8fk1s"))))
1192     (build-system python-build-system)
1193     (arguments
1194       `(#:python ,python-2 ; only python-2 is supported.
1195         #:phases
1196         (modify-phases %standard-phases
1197           (add-before 'build 'disable-egg-compression
1198             ;; Do not compress the egg.
1199             (lambda _
1200               (let ((port (open-file "setup.cfg" "a")))
1201                 (display "\n[easy_install]\nzip_ok = 0\n"
1202                          port)
1203                 (close-port port)
1204                 #t)))
1205           (add-after 'install 'install-doc
1206             (lambda* (#:key outputs #:allow-other-keys)
1207               (let* ((out (assoc-ref outputs "out"))
1208                      (doc (string-append out "/share/doc/khard")))
1209                 (copy-recursively "misc/khard" doc)))))))
1210     (native-inputs
1211      `(("python2-setuptools" ,python2-setuptools)))
1212     (propagated-inputs
1213      `(("python2-vobject" ,python2-vobject)
1214        ("python2-pyyaml" ,python2-pyyaml)
1215        ("python2-atomicwrites" ,python2-atomicwrites)
1216        ("python2-configobj" ,python2-configobj)))
1217     (synopsis "Console address book using CardDAV")
1218     (description "Khard is an address book for the console.  It creates, reads,
1219 modifies and removes CardDAV address book entries at your local machine.  For
1220 synchronizing with a remote address book, @command{vdirsyncer} is recommended.
1221 Khard can also be used from within the email client @command{mutt}.")
1222     (home-page "https://github.com/scheibler/khard")
1223     (license gpl3+)))