gnu/packages/mail.scm

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