gnu: Use 'modify-phases' syntax.
[jackhill/guix/guix.git] / gnu / packages / mail.scm
CommitLineData
a661e420 1;;; GNU Guix --- Functional package management for GNU
05aa576b 2;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
ee2b2d2f 3;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org>
29a7c98a 4;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
98e9e22f 5;;; Copyright © 2014 Sou Bunnbu <iyzsong@gmail.com>
f58f767b 6;;; Copyright © 2014 Julien Lepiller <julien@lepiller.eu>
66cc3ab2 7;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
17dd4329 8;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
f6292baf 9;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
2e88d113 10;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
a047122c 11;;; Copyright © 2015, 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
34dd26af 12;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
8a75c589 13;;; Copyright © 2016 Al McElrath <hello@yrns.org>
823e2ed4 14;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
e90819c4 15;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
99404fff 16;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
a2cb16b0 17;;; Copyright © 2016 Troy Sankey <sankeytms@gmail.com>
32f9cc33 18;;; Copyright © 2016, 2017 ng0 <ng0@infotropique.org>
24262239 19;;; Copyright © 2016 Clément Lassieur <clement@lassieur.org>
ed428a58 20;;; Copyright © 2016, 2017 Arun Isaac <arunisaac@systemreboot.net>
5d87088c 21;;; Copyright © 2016 John Darrington <jmd@gnu.org>
7a6213cb 22;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
3e9750c3 23;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
6800c797 24;;; Copyright © 2017 Kyle Meyer <kyle@kyleam.com>
34529f8d 25;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
7c16151a 26;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org>
a661e420
LC
27;;;
28;;; This file is part of GNU Guix.
29;;;
30;;; GNU Guix is free software; you can redistribute it and/or modify it
31;;; under the terms of the GNU General Public License as published by
32;;; the Free Software Foundation; either version 3 of the License, or (at
33;;; your option) any later version.
34;;;
35;;; GNU Guix is distributed in the hope that it will be useful, but
36;;; WITHOUT ANY WARRANTY; without even the implied warranty of
37;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
38;;; GNU General Public License for more details.
39;;;
40;;; You should have received a copy of the GNU General Public License
41;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
42
1fdd3ee2 43(define-module (gnu packages mail)
59a43334 44 #:use-module (gnu packages)
b0eb2af2 45 #:use-module (gnu packages aspell)
d983a14f 46 #:use-module (gnu packages autotools)
d2938d59 47 #:use-module (gnu packages base)
e8435c4d 48 #:use-module (gnu packages backup)
ee886454 49 #:use-module (gnu packages bash)
f8ae32a2 50 #:use-module (gnu packages bison)
944a5cdd 51 #:use-module (gnu packages crypto)
f58f767b 52 #:use-module (gnu packages curl)
4fd6bf53 53 #:use-module (gnu packages cyrus-sasl)
81ce19f4 54 #:use-module (gnu packages databases)
d983a14f 55 #:use-module (gnu packages dejagnu)
8a3741e6 56 #:use-module (gnu packages django)
8b53366c 57 #:use-module (gnu packages dns)
7a6213cb 58 #:use-module (gnu packages documentation)
d2938d59 59 #:use-module (gnu packages emacs)
e8435c4d 60 #:use-module (gnu packages enchant)
e8435c4d 61 #:use-module (gnu packages ghostscript)
aa20b004 62 #:use-module (gnu packages gettext)
d2938d59 63 #:use-module (gnu packages glib)
e8435c4d 64 #:use-module (gnu packages gnome)
524e1df6 65 #:use-module (gnu packages gnupg)
152ffe7c 66 #:use-module (gnu packages groff)
d6e941bc 67 #:use-module (gnu packages gsasl)
e8435c4d 68 #:use-module (gnu packages gtk)
1ffa7090 69 #:use-module (gnu packages guile)
f8ae32a2 70 #:use-module (gnu packages flex)
b0eb2af2 71 #:use-module (gnu packages kerberos)
e8435c4d 72 #:use-module (gnu packages libcanberra)
8b53366c 73 #:use-module (gnu packages libevent)
d6e941bc 74 #:use-module (gnu packages libidn)
d983a14f 75 #:use-module (gnu packages linux)
152ffe7c 76 #:use-module (gnu packages lua)
d983a14f 77 #:use-module (gnu packages m4)
1ffa7090 78 #:use-module (gnu packages ncurses)
b0eb2af2 79 #:use-module (gnu packages openldap)
66cc3ab2 80 #:use-module (gnu packages pcre)
13f04f48 81 #:use-module (gnu packages perl)
3919a31a 82 #:use-module (gnu packages python)
1ffa7090 83 #:use-module (gnu packages readline)
d2938d59 84 #:use-module (gnu packages search)
1ffa7090 85 #:use-module (gnu packages texinfo)
681a6588
MW
86 #:use-module (gnu packages compression)
87 #:use-module (gnu packages glib)
88 #:use-module (gnu packages pkg-config)
a7e59c50 89 #:use-module (gnu packages flex)
1bd3f849 90 #:use-module (gnu packages gdb)
6cf27c89 91 #:use-module (gnu packages man)
3e9750c3 92 #:use-module (gnu packages ruby)
1bd3f849 93 #:use-module (gnu packages samba)
6cf27c89 94 #:use-module (gnu packages screen)
b0eb2af2 95 #:use-module (gnu packages tcl)
a7fd7b68 96 #:use-module (gnu packages tls)
be0c5733
DM
97 #:use-module (gnu packages networking)
98 #:use-module (gnu packages web)
7c16151a 99 #:use-module (gnu packages webkit)
f58f767b 100 #:use-module (gnu packages xml)
e8435c4d 101 #:use-module (gnu packages xorg)
7596ddf3 102 #:use-module (gnu packages docbook)
d983a14f 103 #:use-module ((guix licenses)
61c30e9d 104 #:select (gpl2 gpl2+ gpl3 gpl3+ lgpl2.1 lgpl2.1+ lgpl3+
24262239 105 non-copyleft (expat . license:expat) bsd-3
8b53366c 106 public-domain bsd-4 isc (openssl . license:openssl)
2f3108ad 107 bsd-2 x11-style agpl3 asl2.0 perl-license))
a661e420
LC
108 #:use-module (guix packages)
109 #:use-module (guix download)
f8ae32a2 110 #:use-module (guix git-download)
29a7c98a 111 #:use-module (guix utils)
681a6588 112 #:use-module (guix build-system gnu)
ebda902f 113 #:use-module (guix build-system perl)
24262239
CL
114 #:use-module (guix build-system python)
115 #:use-module (guix build-system trivial))
a661e420
LC
116
117(define-public mailutils
118 (package
119 (name "mailutils")
7ea52385 120 (version "3.2")
a661e420
LC
121 (source (origin
122 (method url-fetch)
123 (uri (string-append "mirror://gnu/mailutils/mailutils-"
124 version ".tar.bz2"))
125 (sha256
126 (base32
7ea52385 127 "0c06yj5hgqibi24ib9sx865kq6i1h18wn201g6iwcfbpi2a7psdm"))))
a661e420
LC
128 (build-system gnu-build-system)
129 (arguments
de75f0b1
EF
130 '(#:phases
131 (modify-phases %standard-phases
132 (add-before 'build 'pre-build
133 (lambda _
134 ;; Use the right file name for `cat'.
135 (substitute* "testsuite/lib/mailutils.exp"
136 (("/bin/cat")
137 (which "cat")))
14253017 138
de75f0b1
EF
139 ;; Tests try to invoke 'maidag' such that it looks up the
140 ;; 'root' user, which does not exist in the build
141 ;; environment.
142 (substitute* "maidag/tests/testsuite"
143 (("root <") "nobody <")
144 (("spool/root") "spool/nobody")
145 (("root@localhost") "nobody@localhost"))
14253017 146
de75f0b1
EF
147 ;; The 'pipeact.at' tests generate a shell script; make
148 ;; sure it uses the right shell.
149 (substitute* '("sieve/tests/testsuite"
150 "mh/tests/testsuite")
151 (("#! /bin/sh")
152 (string-append "#!" (which "sh"))))
14253017 153
de75f0b1
EF
154 (substitute* "mh/tests/testsuite"
155 (("moreproc: /bin/cat")
156 (string-append "moreproc: " (which "cat"))))
14253017 157
de75f0b1
EF
158 ;; XXX: The comsatd tests rely on being able to open
159 ;; /dev/tty, but that gives ENODEV in the build
160 ;; environment. Thus, ignore test failures here.
161 (substitute* "comsat/tests/Makefile.in"
162 (("\\$\\(SHELL\\) \\$\\(TESTSUITE\\)" all)
163 (string-append "-" all)))
14253017 164
de75f0b1
EF
165 #t)))
166 ;; TODO: Add `--with-sql'.
abe5d2dc 167 #:configure-flags '("--sysconfdir=/etc")
a661e420
LC
168 #:parallel-tests? #f))
169 (inputs
170 `(("dejagnu" ,dejagnu)
171 ("m4" ,m4)
172 ("texinfo" ,texinfo)
173 ("guile" ,guile-2.0)
174 ("gnutls" ,gnutls)
175 ("ncurses" ,ncurses)
abe5d2dc 176 ("readline" ,readline)
a661e420 177 ("linux-pam" ,linux-pam)
3246cc91 178 ("libltdl" ,libltdl)
01eafd38 179 ("gdbm" ,gdbm)))
6fd52309 180 (home-page "https://mailutils.org")
f50d2669 181 (synopsis "Utilities and library for reading and serving mail")
a661e420 182 (description
79c311b8
LC
183 "GNU Mailutils is a collection of programs for managing, viewing and
184processing electronic mail. It contains both utilities and server daemons
185and all operate in a protocol-agnostic way. The underlying libraries are
186also available, simplifying the addition of mail capabilities to new
187software.")
a661e420
LC
188 (license
189 ;; Libraries are under LGPLv3+, and programs under GPLv3+.
190 (list gpl3+ lgpl3+))))
d983a14f
AE
191
192(define-public fetchmail
193 (package
194 (name "fetchmail")
195 (version "6.3.26")
196 (source (origin
197 (method url-fetch)
198 (uri (string-append "mirror://sourceforge/fetchmail/branch_6.3/fetchmail-"
199 version ".tar.xz"))
200 (sha256
201 (base32
202 "0l78ayvi9dm8hd190gl139cs2xqsrf7r9ncilslw20mgvd6cbd3r"))))
203 (build-system gnu-build-system)
204 (inputs
205 `(("openssl" ,openssl)))
206 (arguments
207 `(#:configure-flags (list (string-append "--with-ssl="
208 (assoc-ref %build-inputs "openssl")))))
07af3e5e 209 (home-page "http://www.fetchmail.info/")
ae2189a9 210 (synopsis "Remote-mail retrieval and forwarding utility")
d983a14f
AE
211 (description
212 "Fetchmail is a full-featured, robust, well-documented remote-mail
213retrieval and forwarding utility intended to be used over on-demand
214TCP/IP links (such as SLIP or PPP connections). It supports every
215remote-mail protocol now in use on the Internet: POP2, POP3, RPOP, APOP,
216KPOP, all flavors of IMAP, ETRN, and ODMR. It can even support IPv6
217and IPSEC.
218
219Fetchmail retrieves mail from remote mail servers and forwards it via SMTP,
220so it can then be read by normal mail user agents such as mutt, elm
221or BSD Mail. It allows all your system MTA's filtering, forwarding, and
222aliasing facilities to work just as they would on normal mail.")
223 (license gpl2+))) ; most files are actually public domain or x11
13f04f48
AE
224
225(define-public mutt
226 (package
227 (name "mutt")
835a6582 228 (version "1.8.3")
13f04f48
AE
229 (source (origin
230 (method url-fetch)
7736bae9
LF
231 (uri (string-append "https://bitbucket.org/mutt/mutt/downloads/"
232 "mutt-" version ".tar.gz"))
13f04f48
AE
233 (sha256
234 (base32
835a6582 235 "0hpd896mw630sd6ps60hpka8cg691nvr627n8kmabv7zcxnp90cv"))
fc1adab1 236 (patches (search-patches "mutt-store-references.patch"))))
13f04f48
AE
237 (build-system gnu-build-system)
238 (inputs
4fd6bf53 239 `(("cyrus-sasl" ,cyrus-sasl)
b0bb0136 240 ("gdbm" ,gdbm)
524e1df6 241 ("gpgme" ,gpgme)
4fd6bf53 242 ("ncurses" ,ncurses)
13f04f48
AE
243 ("openssl" ,openssl)
244 ("perl" ,perl)))
245 (arguments
246 `(#:configure-flags '("--enable-smtp"
247 "--enable-imap"
248 "--enable-pop"
524e1df6 249 "--enable-gpgme"
b0bb0136 250 "--enable-hcache" ; for header caching
0323fe80 251 "--enable-sidebar"
13f04f48 252 "--with-ssl"
4fd6bf53 253 "--with-sasl"
13f04f48
AE
254 ;; so that mutt does not check whether the path
255 ;; exists, which it does not in the chroot
256 "--with-mailpath=/var/mail")))
257 (home-page "http://www.mutt.org/")
258 (synopsis "Mail client")
259 (description
260 "Mutt is a small but very powerful text-based mail client for Unix
261operating systems.")
262 (license gpl2+)))
681a6588 263
7596ddf3 264(define-public neomutt
265 (package
266 (inherit mutt)
267 (name "neomutt")
8b8702c9 268 (version "20170912")
7596ddf3 269 (source
270 (origin
271 (method url-fetch)
272 (uri (string-append "https://github.com/" name "/" name
273 "/archive/" name "-" version ".tar.gz"))
7596ddf3 274 (sha256
275 (base32
8b8702c9 276 "0mv60kii933hq52mhwrcz29diaajbs5ryqibgsvdvfyvx27i43cz"))))
7596ddf3 277 (inputs
278 `(("cyrus-sasl" ,cyrus-sasl)
279 ("gdbm" ,gdbm)
280 ("gpgme" ,gpgme)
281 ("ncurses" ,ncurses)
282 ("gnutls" ,gnutls)
283 ("openssl" ,openssl) ;For smime
284 ("perl" ,perl)
5c95465e 285 ("kyotocabinet" ,kyotocabinet)
7596ddf3 286 ("libxslt" ,libxslt)
287 ("libidn" ,libidn)
288 ("libxml2" ,libxml2)
5c95465e 289 ("lmdb" ,lmdb)
7596ddf3 290 ("docbook-xsl" ,docbook-xsl)
291 ("notmuch" ,notmuch)))
292 (native-inputs
293 `(("autoconf" ,autoconf)
294 ("automake" ,automake)
aa20b004 295 ("gettext-minimal" ,gettext-minimal)
7596ddf3 296 ("pkg-config" ,pkg-config)))
297 (arguments
298 `(#:configure-flags
9b134319 299 (list "--enable-gpgme"
7596ddf3 300
301 ;; database, implies header caching
91c87241 302 "--without-tokyocabinet"
7596ddf3 303 "--without-qdbm"
304 "--without-bdb"
5c95465e 305 "--with-lmdb"
306 (string-append "--with-kyotocabinet="
307 (assoc-ref %build-inputs "kyotocabinet"))
7596ddf3 308 "--with-gdbm"
309
310 "--with-gnutls"
311 "--without-ssl"
312 "--with-sasl"
313
314 "--with-regex"
315 "--enable-smime"
316 "--enable-notmuch"
317 "--with-idn"
318
319 ;; If we do not set this, neomutt wants to check
320 ;; whether the path exists, which it does not
321 ;; in the chroot. The workaround is this.
322 "--with-mailpath=/var/mail"
323
324 "--with-external-dotlock"
7596ddf3 325
326 (string-append "--with-curses="
327 (assoc-ref %build-inputs "ncurses")))
328 #:phases
329 (modify-phases %standard-phases
330 (add-after 'unpack 'autoconf
331 (lambda _
332 (zero? (system* "sh" "autoreconf" "-vfi")))))))
333 (home-page "https://www.neomutt.org/")
334 (synopsis "Command-line mail reader based on Mutt")
335 (description
336 "NeoMutt is a command-line mail reader which is based on mutt.
aa20b004 337It adds a large amount of new and improved features to mutt.")))
7596ddf3 338
681a6588
MW
339(define-public gmime
340 (package
341 (name "gmime")
25dee815 342 (version "2.6.23")
681a6588
MW
343 (source (origin
344 (method url-fetch)
75630043 345 (uri (string-append "mirror://gnome/sources/gmime/"
29a7c98a 346 (version-major+minor version)
681a6588
MW
347 "/gmime-" version ".tar.xz"))
348 (sha256
349 (base32
25dee815 350 "0slzlzcr3h8jikpz5a5amqd0csqh2m40gdk910ws2hnaf5m6hjbi"))))
681a6588
MW
351 (build-system gnu-build-system)
352 (native-inputs
353 `(("pkg-config" ,pkg-config)
354 ("gnupg" ,gnupg))) ; for tests only
355 (inputs `(("glib" ,glib)
356 ("gpgme" ,gpgme)
357 ("zlib" ,zlib)))
358 (arguments
359 `(#:phases
cc955356
EF
360 (modify-phases %standard-phases
361 (add-after
362 'unpack 'patch-paths-in-tests
363 (lambda _
364 ;; The test programs run several programs using 'system' with
ae83dcf6 365 ;; hard-coded paths. Here we patch them all.
366 ;; We use ISO-8859-1 here because test-iconv.c contains
cc955356
EF
367 ;; raw byte sequences in several different encodings.
368 (with-fluids ((%default-port-encoding #f))
369 (substitute* (find-files "tests" "\\.c$")
370 (("(system *\\(\")(/[^ ]*)" all pre prog-path)
371 (let* ((base (basename prog-path))
ae83dcf6 372 (prog (which base)))
cc955356
EF
373 (string-append pre
374 (or prog (error "not found: " base))))))))))))
681a6588
MW
375 (home-page "http://spruce.sourceforge.net/gmime/")
376 (synopsis "MIME message parser and creator library")
377 (description
378 "GMime provides a core library and set of utilities which may be used for
379the creation and parsing of messages using the Multipurpose Internet Mail
380Extension (MIME).")
381 (license (list lgpl2.1+ gpl2+ gpl3+))))
382
a7e59c50
LC
383(define-public bogofilter
384 (package
385 (name "bogofilter")
386 (version "1.2.4")
387 (source (origin
388 (method url-fetch)
389 (uri (string-append "mirror://sourceforge/bogofilter/bogofilter-"
390 version "/bogofilter-"
391 version ".tar.bz2"))
392 (sha256
393 (base32
394 "1d56n2m9inm8gnzm88aa27xl2a7sp7aff3484vmflpqkinjqf0p1"))))
395 (build-system gnu-build-system)
396 (arguments
c55fa42b
EF
397 '(#:phases
398 (modify-phases %standard-phases
399 (add-before 'check 'pre-check
400 (lambda _
401 (substitute* "src/tests/t.frame"
402 (("GREP=/bin/grep")
403 (string-append "GREP=" (which "grep") "\n")))
404 #t)))))
a7e59c50
LC
405 (native-inputs `(("flex" ,flex)))
406 (inputs `(("bdb" ,bdb)))
407 (home-page "http://bogofilter.sourceforge.net/")
408 (synopsis "Mail classifier based on a Bayesian filter")
409 (description
410 "Bogofilter is a mail filter that classifies mail as spam or ham
411 (non-spam) by a statistical analysis of the message's header and
412content (body). The program is able to learn from the user's classifications
413and corrections. It is based on a Bayesian filter.")
414 (license gpl2)))
415
3919a31a
EB
416(define-public offlineimap
417 (package
418 (name "offlineimap")
b612e54f 419 (version "7.1.2")
3919a31a
EB
420 (source (origin
421 (method url-fetch)
422 (uri (string-append "https://github.com/OfflineIMAP/offlineimap/"
423 "archive/v" version ".tar.gz"))
f586c877 424 (file-name (string-append name "-" version ".tar.gz"))
3919a31a
EB
425 (sha256
426 (base32
b612e54f 427 "0rnw7gpx3cp4irja5143haszgv4xhndc8wivhg8r0gpp6ig460vj"))))
3919a31a 428 (build-system python-build-system)
7a6213cb 429 (native-inputs
4b0e6367 430 `(("asciidoc" ,asciidoc)))
a4ea25d3
EF
431 (inputs `(("python2-pysqlite" ,python2-pysqlite)
432 ("python2-six" ,python2-six)))
3919a31a
EB
433 (arguments
434 ;; The setup.py script expects python-2.
435 `(#:python ,python-2
436 ;; Tests require a modifiable IMAP account.
42aa73b3
EF
437 #:tests? #f
438 #:phases
439 (modify-phases %standard-phases
7a6213cb
MB
440 (add-after 'build 'build-documentation
441 (lambda _
442 (substitute* "docs/Makefile"
443 ;; Prevent xmllint and xsltproc from downloading a DTD file.
444 (("a2x -v") "a2x --no-xmllint --xsltproc-opts=--nonet -v"))
445 (zero? (system* "make" "-C" "docs" "man"))))
446 (add-after 'install 'install-documentation
447 (lambda* (#:key outputs #:allow-other-keys)
448 (let* ((out (assoc-ref outputs "out"))
449 (man (string-append out "/share/man")))
450 (install-file "docs/offlineimap.1" (string-append man "/man1"))
451 (install-file "docs/offlineimapui.7" (string-append man "/man7"))
452 #t)))
453 (add-after 'install-documentation 'wrap-binary
454 (lambda* (#:key outputs #:allow-other-keys)
42aa73b3
EF
455 (let* ((out (assoc-ref outputs "out"))
456 (bin (string-append out "/bin/offlineimap")))
457 (wrap-program bin
458 `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH"))))
459 #t))))))
3919a31a 460 (home-page "http://www.offlineimap.org")
31e98ca6 461 (synopsis "Sync emails between two repositories")
3919a31a
EB
462 (description
463 "OfflineImap synchronizes emails between two repositories, so that you
464can read the same mailbox from multiple computers. It supports IMAP as REMOTE
465repository and Maildir/IMAP as LOCAL repository.")
7886e23b 466 (license gpl2+)))
3919a31a 467
3e9750c3
TD
468(define-public emacs-mew
469 (package
470 (name "emacs-mew")
471 (version "6.7")
472 (source (origin
473 (method url-fetch)
474 (uri (string-append "http://mew.org/Release/mew-"
475 version ".tar.gz"))
476 (sha256
477 (base32
478 "03fzky2kz73vgx4cbps2psbbnrgqgkk5q7jwfldisymkzr9iz03y"))))
479 (native-inputs
480 `(("emacs" ,emacs)))
481 (propagated-inputs
482 `(("ruby-sqlite3" ,ruby-sqlite3) ; optional for the database of messages
483 ("ruby" ,ruby))) ; to set GEM_PATH so ruby-sqlite3 is found at runtime
484 (build-system gnu-build-system)
485 (arguments
486 (let ((elisp-dir "/share/emacs/site-lisp/guix.d/mew")
487 (icon-dir "/share/mew"))
488 `(#:modules ((guix build gnu-build-system)
489 (guix build utils)
490 (guix build emacs-utils))
491 #:imported-modules (,@%gnu-build-system-modules
492 (guix build emacs-utils))
493 #:configure-flags
494 (list (string-append "--with-elispdir=" %output ,elisp-dir)
495 (string-append "--with-etcdir=" %output ,icon-dir))
496 #:phases
497 (modify-phases %standard-phases
498 (add-after 'configure 'patch-mew-icon-directory
499 (lambda* (#:key outputs #:allow-other-keys)
500 (emacs-substitute-sexps "mew-key.el"
501 ("(def.* mew-icon-directory"
502 `(progn
503 (add-to-list 'image-load-path 'mew-icon-directory)
504 ,(string-append (assoc-ref outputs "out") ,icon-dir))))
505 #t))
506 (add-after 'install 'generate-autoloads
507 (lambda* (#:key outputs #:allow-other-keys)
508 (emacs-generate-autoloads
509 "mew" (string-append (assoc-ref outputs "out") ,elisp-dir))
510 #t)))
511 #:tests? #f)))
512 (home-page "http://www.mew.org")
513 (synopsis "Emacs e-mail client")
514 (description "Mew (Messaging in the Emacs World) is a user interface
515for text messages, multimedia messages (MIME), news articles and
516security functionality including PGP, S/MIME, SSH, and SSL.")
517 (license bsd-3)))
518
d2938d59
EB
519(define-public mu
520 (package
521 (name "mu")
e7b9da24 522 (version "0.9.18")
d2938d59
EB
523 (source (origin
524 (method url-fetch)
e7b9da24
RW
525 (uri (string-append "https://github.com/djcb/mu/releases/"
526 "download/" version "/mu-"
d2938d59
EB
527 version ".tar.gz"))
528 (sha256
529 (base32
e7b9da24 530 "02g82zvxfgn17wzy846bfxj0izjj7yklhwdnhwxy1y2kin4fqnb5"))))
d2938d59
EB
531 (build-system gnu-build-system)
532 (native-inputs
533 `(("pkg-config" ,pkg-config)
9fd571a2 534 ("glib" ,glib "bin") ; for gtester
e62e975b 535 ("emacs" ,emacs-minimal)))
d2938d59
EB
536 ;; TODO: Add webkit and gtk to build the mug GUI.
537 (inputs
538 `(("xapian" ,xapian)
d2938d59
EB
539 ("guile" ,guile-2.0)
540 ("glib" ,glib)
541 ("gmime" ,gmime)
542 ("tzdata" ,tzdata))) ;for mu/test/test-mu-query.c
543 (arguments
704f2196
AK
544 `(#:modules ((guix build gnu-build-system)
545 (guix build utils)
546 (guix build emacs-utils))
547 #:imported-modules (,@%gnu-build-system-modules
548 (guix build emacs-utils))
549 #:phases
99404fff 550 (modify-phases %standard-phases
e62e975b 551 (add-after 'unpack 'patch-configure
789bda83
AK
552 ;; By default, elisp code goes to "share/emacs/site-lisp/mu4e",
553 ;; so our Emacs package can't find it. Setting "--with-lispdir"
554 ;; configure flag doesn't help because "mu4e" will be added to
555 ;; the lispdir anyway, so we have to modify "configure.ac".
556 (lambda _
e62e975b
RW
557 (substitute* "configure"
558 (("^ +lispdir=\"\\$\\{lispdir\\}/mu4e/\".*") ""))
789bda83 559 #t))
99404fff
AK
560 (add-before 'check 'check-tz-setup
561 (lambda* (#:key inputs #:allow-other-keys)
562 ;; For mu/test/test-mu-query.c
563 (setenv "TZDIR"
564 (string-append (assoc-ref inputs "tzdata")
565 "/share/zoneinfo"))
704f2196
AK
566 #t))
567 (add-after 'install 'install-emacs-autoloads
568 (lambda* (#:key outputs #:allow-other-keys)
569 (emacs-generate-autoloads
570 "mu4e"
571 (string-append (assoc-ref outputs "out")
572 "/share/emacs/site-lisp"))
99404fff 573 #t)))))
d2938d59
EB
574 (home-page "http://www.djcbsoftware.nl/code/mu/")
575 (synopsis "Quickly find emails")
576 (description
577 "Mu is a tool for dealing with e-mail messages stored in the
578Maildir-format. Mu's purpose in life is to help you to quickly find the
579messages you need; in addition, it allows you to view messages, extract
580attachments, create new maildirs, and so on.")
581 (license gpl3+)))
582
a2cb16b0
TS
583(define-public alot
584 (package
585 (name "alot")
fe3b8862 586 (version "0.4")
a2cb16b0
TS
587 (source (origin
588 (method url-fetch)
1b94f182
TS
589 ;; package author intends on distributing via github rather
590 ;; than pypi:
591 ;; https://github.com/pazz/alot/issues/877#issuecomment-230173331
a2cb16b0
TS
592 (uri (string-append "https://github.com/pazz/alot/archive/"
593 version ".tar.gz"))
594 (file-name (string-append "alot-" version ".tar.gz"))
595 (sha256
596 (base32
fe3b8862 597 "0sl1kl2fhkv208llnbny4blcvrfdk4vx6bcw5pnyh9ylwb0pipi2"))))
a2cb16b0
TS
598 (build-system python-build-system)
599 (arguments
600 `(#:tests? #f ; no tests
fe3b8862
MB
601 ;; python 3 is currently unsupported, more info:
602 ;; https://github.com/pazz/alot/blob/master/docs/source/faq.rst
a2cb16b0
TS
603 #:python ,python-2))
604 (inputs
605 `(("python2-magic" ,python2-magic)
606 ("python2-configobj" ,python2-configobj)
607 ("python2-twisted" ,python2-twisted)
608 ("python2-urwid" ,python2-urwid)
609 ("python2-urwidtrees" ,python2-urwidtrees)
610 ("python2-pygpgme" ,python2-pygpgme)
611 ("python2-notmuch" ,python2-notmuch)))
612 (home-page "https://github.com/pazz/alot")
613 (synopsis "Commandline MUA using notmuch")
614 (description
615 "Alot is an experimental terminal mail user agent (MUA) based on
616@code{notmuch} mail. It is written in Python using the @code{urwid} toolkit.")
617 (license gpl3+)))
618
0350a8bb
HG
619(define-public notifymuch
620 (let
621 ((commit "9d4aaf54599282ce80643b38195ff501120807f0")
622 (revision "1"))
623 (package
624 (name "notifymuch")
625 (version (string-append "0.1-" revision "." (string-take commit 7)))
626 (source
627 (origin
628 (method git-fetch)
629 (uri (git-reference
630 (url "https://github.com/kspi/notifymuch.git")
631 (commit commit)))
632 (sha256
633 (base32
634 "1lssr7iv43mp5v6nzrfbqlfzx8jcc7m636wlfyhhnd8ydd39n6k4"))
635 (file-name (string-append name "-" version "-checkout"))))
636 (build-system python-build-system)
637 (inputs
638 `(("python-notmuch" ,python-notmuch)
639 ("python-pygobject" ,python-pygobject)
640 ("gobject-introspection" ,gobject-introspection)
641 ("libnotify" ,libnotify)
642 ("gtk+" ,gtk+)))
643 (arguments
644 `(#:phases
645 (modify-phases %standard-phases
646 (add-after 'install 'wrap-binary
647 (lambda* (#:key outputs #:allow-other-keys)
648 (let* ((out (assoc-ref outputs "out"))
649 (bin (string-append out "/bin/notifymuch")))
650 (wrap-program bin
651 `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
652 `("GI_TYPELIB_PATH" ":" prefix
653 (,(getenv "GI_TYPELIB_PATH")
654 ,(string-append out "/lib/girepository-1.0")))))
655 #t)))))
656 (home-page "https://github.com/kspi/notifymuch")
657 (synopsis "Displays notifications for changes in the notmuch email database")
658 (description "notifymuch displays desktop notifications for messages in
659the notmuch database. The notifications are sent using libnotify to a
660notification daemon. The query to find messages to send a notification about
661is configurable, and a notification for the same message will not be send
662within a configurable period (defaults to 48 hours). To use notifymuch, run
663@command{notifymuch} after new mail is indexed, this can be automated by
664invoking @command{notifymuch} from the post-new hook.")
665 (license gpl3))))
666
1bd3f849
DT
667(define-public notmuch
668 (package
669 (name "notmuch")
493f2cbf 670 (version "0.25.1")
1bd3f849
DT
671 (source (origin
672 (method url-fetch)
866fade9 673 (uri (string-append "https://notmuchmail.org/releases/notmuch-"
1bd3f849
DT
674 version ".tar.gz"))
675 (sha256
676 (base32
493f2cbf 677 "0c98hzwc60nb6kd15y0fl2ji3yfmr9k6v8ps0h3ihr3vkgn0kgxl"))))
1bd3f849
DT
678 (build-system gnu-build-system)
679 (arguments
6cf27c89 680 '(#:make-flags (list "V=1") ; Verbose test output.
eb537f57 681 #:phases (modify-phases %standard-phases
6cf27c89
MB
682 (add-after 'unpack 'patch-notmuch-lib.el
683 (lambda _
684 (substitute* "emacs/notmuch-lib.el"
685 (("/bin/sh") (which "sh")))
686 #t))
eb537f57
DT
687 (replace 'configure
688 (lambda* (#:key outputs #:allow-other-keys)
689 (setenv "CC" "gcc")
690 (setenv "CONFIG_SHELL" (which "sh"))
ee886454 691
eb537f57
DT
692 (let ((out (assoc-ref outputs "out")))
693 (zero? (system* "./configure"
6cf27c89
MB
694 (string-append "--prefix=" out))))))
695 (add-before 'check 'prepare-test-environment
696 (lambda _
697 (setenv "TEST_CC" "gcc")
698 ;; Patch various inline shell invocations.
699 (substitute* (find-files "test" "\\.sh$")
700 (("/bin/sh") (which "sh")))
701 #t)))))
1bd3f849 702 (native-inputs
2c5b91dc 703 `(("bash-completion" ,bash-completion)
6cf27c89 704 ("emacs" ,emacs-no-x) ; Minimal lacks libxml, needed for some tests.
2c5b91dc 705 ("pkg-config" ,pkg-config)
ee886454 706 ("python" ,python-2)
eb537f57 707 ("python-docutils" ,python2-docutils)
6cf27c89
MB
708 ("python-sphinx" ,python2-sphinx)
709
710 ;; The following are required for tests only.
711 ("which" ,which)
712 ("dtach" ,dtach)
713 ("gnupg" ,gnupg)
714 ("man" ,man-db)
715 ("perl" ,perl)))
1bd3f849 716 (inputs
2c5b91dc 717 `(("glib" ,glib)
1bd3f849
DT
718 ("gmime" ,gmime)
719 ("talloc" ,talloc)
720 ("xapian" ,xapian)
721 ("zlib" ,zlib)))
540d6cc7 722 (home-page "https://notmuchmail.org/")
1bd3f849
DT
723 (synopsis "Thread-based email index, search, and tagging")
724 (description
725 "Notmuch is a command-line based program for indexing, searching, read-
726ing, and tagging large collections of email messages.")
727 (license gpl3+)))
728
8a75c589 729(define-public notmuch-addrlookup-c
a5d6b0a3
TS
730 ;; This commit includes a compatibility fix for notmuch-0.25, and is not
731 ;; currently part of any release. Please update this package when
732 ;; notmuch-addrlookup-c-9 is released.
733 (let ((commit "88f156d04990a71c6ad6fc2757b537b44e3c4d00")
734 (revision "1")) ;Guix package revision
735 (package
736 (name "notmuch-addrlookup-c")
737 (version (string-append "8-" revision "."
738 (string-take commit 7)))
739 (source (origin
740 (method git-fetch)
741 (uri (git-reference
742 (url "https://github.com/aperezdc/notmuch-addrlookup-c.git")
743 (commit commit)))
744 (file-name (string-append name "-" version "-checkout"))
745 (sha256
746 (base32
747 "0v0wzs7qzy4n1hbql8s10qrwgalcxdzbxf8pj6cii1pv2jwmkxbm"))))
748 (build-system gnu-build-system)
749 (arguments
750 '(#:tests? #f ; no tests
751 #:make-flags (list "CC=gcc"
752 (string-append "PREFIX="
753 (assoc-ref %outputs "out")))
754 #:phases (modify-phases %standard-phases
755 (delete 'configure)
756 ;; Remove vim code completion config, it's not needed to
757 ;; build (or be patched).
758 (add-before 'patch-source-shebangs 'delete-ycm-file
759 (lambda _ (delete-file ".ycm_extra_conf.py")))
760 (replace 'install
761 (lambda* (#:key outputs #:allow-other-keys)
762 (let ((bin (string-append
763 (assoc-ref outputs "out") "/bin")))
764 (install-file "notmuch-addrlookup" bin)))))))
765 (native-inputs
766 `(("pkg-config" ,pkg-config)))
767 (inputs
768 `(("glib" ,glib)
769 ("notmuch" ,notmuch)))
770 (home-page "https://github.com/aperezdc/notmuch-addrlookup-c")
771 (synopsis "Address lookup tool for Notmuch")
772 (description "This is an address lookup tool using a Notmuch database,
8a75c589 773useful for email address completion.")
a5d6b0a3 774 (license license:expat))))
8a75c589 775
4b6909bc
TS
776(define-public python-notmuch
777 (package
778 (name "python-notmuch")
540d6cc7 779 (version (package-version notmuch))
4b6909bc
TS
780 ;; Notmuch python bindings are now unavailable on pypi. The
781 ;; bindings are distributed via the notmuch release tarball.
782 (source (package-source notmuch))
783 (build-system python-build-system)
784 (inputs `(("notmuch" ,notmuch)))
785 (arguments
786 `(#:tests? #f ; no "test" target
787 #:phases
788 (modify-phases %standard-phases
789 ;; This python package lives in a subdirectory of the notmuch source
790 ;; tree, so chdir into it before building.
791 (add-after 'unpack 'enter-python-dir
792 (lambda _ (chdir "bindings/python") #t))
793 ;; Make sure the correct notmuch shared library gets loaded.
794 (add-before 'build 'set-libnotmuch-file-name
795 (lambda* (#:key inputs #:allow-other-keys)
796 (let ((notmuch (assoc-ref inputs "notmuch")))
797 (substitute* "notmuch/globals.py"
798 (("libnotmuch\\.so\\.")
799 (string-append notmuch "/lib/libnotmuch.so.")))
800 #t))))))
540d6cc7 801 (home-page (package-home-page notmuch))
4b6909bc
TS
802 (synopsis "Python bindings of the Notmuch mail indexing library")
803 (description
804 "This package provides Python bindings to use the Notmuch mail indexing
805and search library.")
806 (license gpl3+)))
807
1c74da21 808(define-public python2-notmuch
caa6fc89 809 (package-with-python2 python-notmuch))
1c74da21 810
98e9e22f
SB
811(define-public getmail
812 (package
813 (name "getmail")
9478c059 814 (version "5.1")
98e9e22f
SB
815 (source
816 (origin
817 (method url-fetch)
818 (uri (string-append "http://pyropus.ca/software/getmail/old-versions/"
819 name "-" version ".tar.gz"))
820 (sha256
821 (base32
9478c059 822 "0zh220vx10wi6x61qi0mjayjxgvllk9f6vd4hjrgzha1xbjj0vix"))))
98e9e22f
SB
823 (build-system python-build-system)
824 (arguments
825 `(#:tests? #f ; no tests
826 #:python ,python-2))
827 (home-page "http://pyropus.ca/software/getmail/")
828 (synopsis "Mail retriever")
829 (description
830 "A flexible, extensible mail retrieval system with support for
831POP3, IMAP4, SSL variants of both, maildirs, mboxrd files, external MDAs,
832arbitrary message filtering, single-user and domain-mailboxes, and many other
833useful features.")
834
835 ;; License is specified in file '__init__.py'.
836 (license gpl2)))
837
f58f767b
JL
838(define-public libetpan
839 (package
840 (name "libetpan")
a979eea9 841 (version "1.8")
f58f767b
JL
842 (source (origin
843 (method url-fetch)
844 (uri (string-append "https://github.com/dinhviethoa/" name
845 "/archive/" version ".tar.gz"))
f586c877 846 (file-name (string-append name "-" version ".tar.gz"))
f58f767b 847 (sha256
a979eea9 848 (base32 "1sxnaglp5hb0z78sgnfzva4x8m4flqhicvm1dz0krkxdmfsafrsf"))))
f58f767b
JL
849 (build-system gnu-build-system)
850 (native-inputs `(("autoconf" ,(autoconf-wrapper))
851 ("automake" ,automake)
3246cc91 852 ("libtool" ,libtool)
f58f767b
JL
853 ("pkg-config" ,pkg-config)))
854 (propagated-inputs
855 ;; 'libetpan-config --libs' returns '-lssl -lcrypto -lsasl2', so these
856 ;; libraries need to be propagated.
857 `(("cyrus-sasl" ,cyrus-sasl)
858 ("openssl" ,openssl)))
859 (inputs
860 `(("curl" ,curl)
c1748912
EF
861 ("expat" ,expat)
862 ("zlib" ,zlib)))
f58f767b 863 (arguments
602460ea
EF
864 '(#:phases
865 (modify-phases %standard-phases
866 (add-after 'unpack 'autogen
867 (lambda _
868 (setenv "NOCONFIGURE" "true")
869 (zero? (system* "sh" "autogen.sh")))))
f58f767b
JL
870 #:configure-flags
871 '("--disable-static" "--disable-db")))
872 (home-page "http://www.etpan.org/libetpan.html")
873 (synopsis "Portable middleware for email access")
874 (description
875 "The purpose of this mail library is to provide a portable, efficient
876framework for different kinds of mail access: IMAP, SMTP, POP and NNTP. It
877provides an API for C language. It's the low-level API used by MailCore and
878MailCore 2.")
a979eea9 879 (license bsd-3)))
f58f767b 880
ee6e780b
DM
881(define-public compface
882 (package
883 (name "compface")
884 (version "1.5.2")
885 (source (origin
886 (method url-fetch)
887 (uri (string-append "https://ftp.heanet.ie/mirrors/"
888 "ftp.xemacs.org/aux/"
889 name "-" version ".tar.gz"))
890 (sha256
891 (base32
892 "09b89wg63hg502hsz592cd2h87wdprb1dq1k1y07n89hym2q56d6"))))
893 (build-system gnu-build-system)
894 (arguments
895 `(#:tests? #f))
896 (synopsis "Portrait image compressor")
897 (description "This packages takes your 48x48x1 portrait image and
898compresses it.")
899 (home-page "http://www.cs.indiana.edu/pub/faces/")
900 (license (x11-style "file://README"))))
901
e8435c4d
JL
902(define-public claws-mail
903 (package
904 (name "claws-mail")
cad88b85 905 (version "3.15.1")
e8435c4d
JL
906 (source (origin
907 (method url-fetch)
908 (uri (string-append
762b1971 909 "http://www.claws-mail.org/releases/" name "-" version
6ea4b094 910 ".tar.xz"))
e8435c4d 911 (sha256
ec92806a 912 (base32
cad88b85 913 "0hlm2jipyr4z6izlrpvabpz4ivh49i13avnm848kr1nv68pkq2cd"))))
e8435c4d
JL
914 (build-system gnu-build-system)
915 (native-inputs `(("pkg-config" ,pkg-config)))
916 (inputs `(("bogofilter" ,bogofilter)
917 ("curl" ,curl)
918 ("dbus-glib" ,dbus-glib)
e8435c4d
JL
919 ("enchant" ,enchant)
920 ("expat" ,expat)
921 ("ghostscript" ,ghostscript)
922 ("hicolor-icon-theme" ,hicolor-icon-theme)
923 ("gnupg" ,gnupg)
924 ("gnutls" ,gnutls)
925 ("gpgme" ,gpgme)
926 ("gtk" ,gtk+-2)
927 ("libarchive" ,libarchive)
928 ("libcanberra" ,libcanberra)
929 ("libetpan" ,libetpan)
930 ("libnotify" ,libnotify)
931 ("libsm" ,libsm)
932 ("libxml2" ,libxml2)
933 ("perl" ,perl)
f6292baf
EB
934 ("python-2" ,python-2)
935 ("mime-info" ,shared-mime-info)))
e8435c4d
JL
936 (arguments
937 '(#:configure-flags
f6292baf 938 '("--enable-gnutls" "--enable-pgpmime-plugin" "--enable-enchant")
ff4192ff
DM
939 #:make-flags
940 ;; Disable updating icon cache since it's done by the profile hook.
941 ;; Conflict with other packages in the profile would be inevitable
942 ;; otherwise.
943 '("gtk_update_icon_cache=true")
f6292baf
EB
944 #:phases (modify-phases %standard-phases
945 (add-before 'build 'patch-mime
946 (lambda* (#:key inputs #:allow-other-keys)
947 (substitute* "src/procmime.c"
948 (("/usr/share/mime/globs")
949 (string-append (assoc-ref inputs "mime-info")
950 "/share/mime/globs"))))))))
e8435c4d
JL
951 (synopsis "GTK-based Email client")
952 (description
953 "Claws-Mail is an email client (and news reader) based on GTK+. The
954appearance and interface are designed to be familiar to new users coming from
955other popular email clients, as well as experienced users. Almost all commands
956are accessible with the keyboard. Plus, Claws-Mail is extensible via addons
957which can add many functionalities to the base client.")
958 (home-page "http://www.claws-mail.org/")
959 (license gpl3+))) ; most files are actually public domain or x11
960
d6e941bc
961(define-public msmtp
962 (package
963 (name "msmtp")
899358d1 964 (version "1.6.6")
d6e941bc
965 (source
966 (origin
967 (method url-fetch)
d23d1ddf
LF
968 (uri (string-append "mirror://sourceforge/msmtp/msmtp/" version
969 "/msmtp-" version ".tar.xz"))
970 (sha256
971 (base32
899358d1 972 "0ppvww0sb09bnsrpqnvlrn8vx231r24xn2iiwpy020mxc8gxn5fs"))))
d6e941bc
973 (build-system gnu-build-system)
974 (inputs
975 `(("libidn" ,libidn)
72d8b5ba 976 ("libsecret" ,libsecret)
d6e941bc
977 ("gnutls" ,gnutls)
978 ("zlib" ,zlib)
979 ("gsasl" ,gsasl)))
980 (native-inputs
981 `(("pkg-config" ,pkg-config)))
982 (home-page "http://msmtp.sourceforge.net/")
983 (arguments
984 `(#:configure-flags (list "--with-libgsasl"
985 "--with-libidn"
823e2ed4
LF
986 "--with-tls=gnutls")
987 #:phases
988 (modify-phases %standard-phases
989 (add-after 'install 'install-msmtpq
990 (lambda* (#:key outputs #:allow-other-keys)
991 (let* ((out (assoc-ref outputs "out"))
992 (bin (string-append out "/bin"))
993 (doc (string-append out "/share/doc/msmtp"))
994 (msmtpq (string-append "scripts/msmtpq")))
995 (install-file (string-append msmtpq "/msmtpq") bin)
996 (install-file (string-append msmtpq "/msmtp-queue") bin)
997 (install-file (string-append msmtpq "/README.msmtpq") doc)
998 #t))))))
d6e941bc
999 (synopsis
1000 "Simple and easy to use SMTP client with decent sendmail compatibility")
1001 (description
1002 "msmtp is an SMTP client. In the default mode, it transmits a mail to
1003an SMTP server (for example at a free mail provider) which takes care of further
1004delivery.")
1005 (license gpl3+)))
1006
66cc3ab2
TUBK
1007(define-public exim
1008 (package
1009 (name "exim")
53c2dc31 1010 (version "4.89")
66cc3ab2
TUBK
1011 (source
1012 (origin
1013 (method url-fetch)
fc6fdc05
LF
1014 (uri (list (string-append "ftp://ftp.exim.org/pub/exim/exim4/exim-"
1015 version ".tar.bz2")
1016 (string-append "ftp://ftp.exim.org/pub/exim/exim4/old/exim-"
1017 version ".tar.bz2")))
4dd8d280 1018 (patches (search-patches "exim-CVE-2017-1000369.patch"))
66cc3ab2 1019 (sha256
513f8ab4 1020 (base32
53c2dc31 1021 "1c0syp7yxngmq7y8vqsrvijinzin5m941vn0ljihdfld7kh2wbwi"))))
66cc3ab2
TUBK
1022 (build-system gnu-build-system)
1023 (inputs
1024 `(("bdb" ,bdb)
1025 ("gnutls" ,gnutls)
1026 ("gzip" ,gzip)
1027 ("bzip2" ,bzip2)
1028 ("xz" ,xz)
66cc3ab2
TUBK
1029 ("perl" ,perl)
1030 ("libxt" ,libxt)
1031 ("libxaw" ,libxaw)))
1032 (native-inputs
42773138
EF
1033 `(("pcre" ,pcre "bin")
1034 ("perl" ,perl)))
66cc3ab2
TUBK
1035 (arguments
1036 '(#:phases
dc1d3cde
KK
1037 (modify-phases %standard-phases
1038 (replace 'configure
1039 ;; We'd use #:make-flags but the top-level Makefile calls others
1040 ;; recursively, so just set all variables this way.
1041 (lambda* (#:key outputs inputs #:allow-other-keys)
1042 (substitute* '("Makefile" "OS/Makefile-Default")
1043 (("(RM_COMMAND=).*" all var)
1044 (string-append var "rm\n")))
1045 (copy-file "src/EDITME" "Local/Makefile")
1046 (copy-file "exim_monitor/EDITME" "Local/eximon.conf")
1047 (let ((out (assoc-ref outputs "out"))
1048 (gzip (assoc-ref inputs "gzip"))
1049 (bzip2 (assoc-ref inputs "bzip2"))
1050 (xz (assoc-ref inputs "xz")))
1051 (substitute* '("Local/Makefile")
1052 (("(BIN_DIRECTORY=).*" all var)
1053 (string-append var out "/bin\n"))
1054 (("(CONFIGURE_FILE=).*" all var)
1055 (string-append var out "/etc/exim.conf\n"))
1056 (("(EXIM_USER=).*" all var)
1057 (string-append var "nobody\n"))
1058 (("(FIXED_NEVER_USERS=).*" all var)
1059 (string-append var "\n")) ;XXX no root in build environment
1060 (("(COMPRESS_COMMAND=).*" all var)
1061 (string-append var gzip "/bin/gzip\n"))
1062 (("(ZCAT_COMMAND=).*" all var)
1063 (string-append var gzip "/bin/zcat\n")))
1064 ;; This file has hardcoded names for tools despite the zcat
1065 ;; configuration above.
1066 (substitute* '("src/exigrep.src")
1067 (("'zcat'") (string-append "'" gzip "/bin/zcat'"))
1068 (("'bzcat'") (string-append "'" bzip2 "/bin/bzcat'"))
1069 (("'xzcat'") (string-append "'" xz "/bin/xzcat'"))
1070 (("'lzma'") (string-append "'" xz "/bin/lzma'"))))
1071 #t))
1072 (add-before 'build 'fix-sh-paths
1073 (lambda* (#:key inputs #:allow-other-keys)
1074 (substitute* '("scripts/lookups-Makefile" "scripts/reversion")
1075 (("SHELL=/bin/sh") "SHELL=sh"))
1076 (substitute* '("scripts/Configure-config.h")
1077 (("\\| /bin/sh") "| sh"))
1078 (let ((bash (assoc-ref inputs "bash")))
1079 (substitute* '("scripts/Configure-eximon")
1080 (("#!/bin/sh") (string-append "#!" bash "/bin/sh"))))
1081 #t)))
66cc3ab2
TUBK
1082 #:make-flags '("INSTALL_ARG=-no_chown")
1083 ;; No 'check' target.
1084 #:tests? #f))
1085 (home-page "http://www.exim.org/")
1086 (synopsis
1087 "Message Transfer Agent (MTA) developed at the University of Cambridge")
1088 (description
1089 "Exim is a message transfer agent (MTA) developed at the University of
1090Cambridge for use on Unix systems connected to the Internet. In style it is
1091similar to Smail 3, but its facilities are more general. There is a great
1092deal of flexibility in the way mail can be routed, and there are extensive
1093facilities for checking incoming mail.")
1094 (license gpl2+)))
1095
7d2b784b
MW
1096(define-public dovecot
1097 (package
1098 (name "dovecot")
5cdb0cd3 1099 (version "2.2.32")
7d2b784b
MW
1100 (source
1101 (origin
1102 (method url-fetch)
c8608faf 1103 (uri (string-append "https://www.dovecot.org/releases/"
7d2b784b
MW
1104 (version-major+minor version) "/"
1105 name "-" version ".tar.gz"))
4d6ce834 1106 (sha256 (base32
5cdb0cd3 1107 "0bmwyvi1crmrca2knvknsf517x53w7gxrclwyrvrhddgw98j22qn"))))
7d2b784b
MW
1108 (build-system gnu-build-system)
1109 (native-inputs
1110 `(("pkg-config" ,pkg-config)))
1111 (inputs
1112 `(("openssl" ,openssl)
1113 ("zlib" ,zlib)
1114 ("bzip2" ,bzip2)
fd5c70f8
AW
1115 ("sqlite" ,sqlite)
1116 ("linux-pam" ,linux-pam)))
7d2b784b
MW
1117 (arguments
1118 `(#:configure-flags '("--sysconfdir=/etc"
1119 "--localstatedir=/var")
1120 #:phases (modify-phases %standard-phases
1121 (add-before
1122 'configure 'pre-configure
1123 (lambda _
1124 ;; Simple hack to avoid installing in /etc
1125 (substitute* '("doc/Makefile.in"
1126 "doc/example-config/Makefile.in")
1127 (("pkgsysconfdir = .*")
1128 "pkgsysconfdir = /tmp/etc"))
072f1e22
EF
1129 #t))
1130 (add-after
1131 'unpack 'patch-other-shebangs
1132 (lambda _
1133 (substitute*
1134 "src/lib-program-client/test-program-client-local.c"
1135 (("/bin/echo") (which "echo"))
1136 (("/bin/cat") (which "cat"))
1137 (("/bin/false") (which "false")))
7d2b784b 1138 #t)))))
c8608faf 1139 (home-page "https://www.dovecot.org")
7d2b784b
MW
1140 (synopsis "Secure POP3/IMAP server")
1141 (description
1142 "Dovecot is a mail server whose major goals are security and reliability.
1143It supports mbox/Maildir and its own dbox/mdbox formats.")
1144 ;; Most source files are covered by either lgpl2.1 or expat. The SHA code
1145 ;; is covered by a variant of BSD-3, and UnicodeData.txt is covered by the
1146 ;; Unicode, Inc. License Agreement for Data Files and Software.
1147 (license (list lgpl2.1 license:expat (non-copyleft "file://COPYING")))))
1148
944a5cdd 1149(define-public dovecot-trees
cf47a8a5 1150 (package
1151 (name "dovecot-trees")
1152 (version "2.1.0")
1153 (source
1154 (origin
1155 (method url-fetch)
1156 (uri (string-append "https://0xacab.org/riseuplabs/trees/repository/"
1157 "archive.tar.gz?ref=v" version))
1158 (file-name (string-append name "-" version ".tar.gz"))
1159 (sha256
1160 (base32
1161 "0rkk10b1bsjz979sc864vpgcdchy7yxwmyv4ik50lar1h6awdnrf"))))
1162 (build-system gnu-build-system)
1163 (native-inputs
1164 `(("automake" ,automake)
1165 ("autoconf" ,autoconf)
1166 ("libtool" ,libtool)
1167 ("dovecot" ,dovecot)
1168 ("pkg-config" ,pkg-config)))
1169 (inputs
1170 `(("libsodium" ,libsodium)))
1171 (arguments
1172 `(#:tests? #f ;No tests exist.
1173 #:configure-flags (list (string-append "--with-dovecot="
1174 (assoc-ref %build-inputs "dovecot")
1175 "/lib/dovecot"))
1176 #:phases
1177 (modify-phases %standard-phases
d10092b8 1178 (add-after 'unpack 'autogen
cf47a8a5 1179 (lambda _
d10092b8 1180 (zero? (system* "sh" "autogen.sh")))))))
cf47a8a5 1181 (home-page "https://0xacab.org/riseuplabs/trees")
1182 (synopsis "NaCL-based Dovecot email storage encryption plugin")
1183 (description
1184 "Technology for Resting Email Encrypted Storage (TREES) is a NaCL-based
944a5cdd 1185Dovecot encryption plugin. This plugin adds individually encrypted mail
1186storage to the Dovecot IMAP server. It is inspired by Posteo's scrambler
1187which uses OpenSSL and RSA keypairs. TREES works in a similar way, but uses
1188the Sodium crypto library (based on NaCL).
1189
1190How it works:
1191@enumerate
1192@item On IMAP log in, the user's cleartext password is passed to the plugin.
1193@item The plugin creates an argon2 digest from the password.
1194@item This password digest is used as a symmetric secret to decrypt a libsodium secretbox.
1195@item Inside the secretbox is stored a Curve25519 private key.
1196@item The Curve25519 private key is used to decrypt each individual message,
1197using lidsodium sealed boxes.
1198@item New mail is encrypted as it arrives using the Curve25519 public key.
1199@end enumerate\n")
cf47a8a5 1200 (license agpl3)))
944a5cdd 1201
a4651f64 1202(define-public dovecot-libsodium-plugin
1203 (let ((commit "044de73c01c35385df0105f6b387bec5d5317ce7")
1204 (revision "1"))
1205 (package
1206 (name "dovecot-libsodium-plugin")
1207 (version (string-append "0.0.0-" revision "." (string-take commit 7)))
1208 (source
1209 (origin
1210 (method git-fetch)
1211 (uri (git-reference
1212 (url "https://github.com/LuckyFellow/dovecot-libsodium-plugin")
1213 (commit commit)))
1214 (file-name (string-append name "-" version "-checkout"))
1215 (sha256
1216 (base32
1217 "13h07l7xy713zchnj2p9fhvq7fdl4zy1ai94li3ygkqjjj8hrgas"))))
1218 (build-system gnu-build-system)
1219 (native-inputs
1220 `(("automake" ,automake)
1221 ("autoconf" ,autoconf)
1222 ("libtool" ,libtool)
1223 ("dovecot" ,dovecot)
1224 ("pkg-config" ,pkg-config)))
1225 (inputs
1226 `(("libsodium" ,libsodium)))
1227 (arguments
1228 `(#:tests? #f ;No tests exist.
1229 #:configure-flags (list (string-append "--with-dovecot="
1230 (assoc-ref %build-inputs "dovecot")
1231 "/lib/dovecot"))
1232 #:phases
1233 (modify-phases %standard-phases
d10092b8 1234 (add-after 'unpack 'autogen
a4651f64 1235 (lambda _
d10092b8 1236 (zero? (system* "sh" "autogen.sh")))))))
a4651f64 1237 (home-page "https://github.com/LuckyFellow/dovecot-libsodium-plugin")
1238 (synopsis "Libsodium password hashing schemes plugin for Dovecot")
1239 (description
1240 "@code{dovecot-libsodium-plugin} provides libsodium password
1241hashing schemes plugin for @code{Dovecot}.")
1242 (license gpl3+))))
1243
81ce19f4
1244(define-public isync
1245 (package
1246 (name "isync")
2c3d13fe 1247 (version "1.2.1")
81ce19f4
1248 (source
1249 (origin
1250 (method url-fetch)
1251 (uri (string-append "mirror://sourceforge/isync/isync/"
1252 version "/isync-" version ".tar.gz"))
1253 (sha256 (base32
2c3d13fe 1254 "1bij6nm06ghkg98n2pdyacam2fyg5y8f7ajw0d5653m0r4ldw5p7"))))
81ce19f4
1255 (build-system gnu-build-system)
1256 (inputs
1257 `(("bdb" ,bdb)
1258 ("openssl" ,openssl)))
1259 (home-page "http://isync.sourceforge.net/")
1260 (synopsis "Mailbox synchronization program")
1261 (description
1262 "isync/mbsync is command line tool for two-way synchronization of
1263mailboxes. Currently Maildir and IMAP are supported types.")
1264 (license gpl2+)))
1265
26b8de19
EB
1266(define-public perl-email-abstract
1267 (package
1268 (name "perl-email-abstract")
1269 (version "3.008")
1270 (source
1271 (origin
1272 (method url-fetch)
1273 (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
1274 "Email-Abstract-" version ".tar.gz"))
1275 (sha256
1276 (base32
1277 "0h42rhvp769wb421cpbbg6v6xjp8iv86mvz70pqgfgf4nsn6jwgw"))))
1278 (build-system perl-build-system)
1279 (propagated-inputs
1280 `(("perl-email-simple" ,perl-email-simple)
a2190ccc 1281 ("perl-module-pluggable" ,perl-module-pluggable)
26b8de19
EB
1282 ("perl-mro-compat" ,perl-mro-compat)))
1283 (home-page "http://search.cpan.org/dist/Email-Abstract")
1284 (synopsis "Interface to mail representations")
1285 (description "Email::Abstract provides module writers with the ability to
1286write simple, representation-independent mail handling code.")
2f3108ad 1287 (license perl-license)))
26b8de19 1288
ebda902f
EB
1289(define-public perl-email-address
1290 (package
1291 (name "perl-email-address")
151bba2b 1292 (version "1.908")
ebda902f
EB
1293 (source
1294 (origin
1295 (method url-fetch)
1296 (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
1297 "Email-Address-" version ".tar.gz"))
1298 (sha256
1299 (base32
151bba2b 1300 "0i6ljdvpy279hpbqf6lgv4figr376rb2sh4yphj86xkdzsyn1y75"))))
ebda902f
EB
1301 (build-system perl-build-system)
1302 (home-page "http://search.cpan.org/dist/Email-Address")
1303 (synopsis "Email address parsing and creation")
1304 (description "Email::Address implements a regex-based RFC 2822 parser that
1305locates email addresses in strings and returns a list of Email::Address
1306objects found. Alternatively you may construct objects manually.")
2f3108ad 1307 (license perl-license)))
ebda902f 1308
aa86a3be
EB
1309(define-public perl-email-date-format
1310 (package
1311 (name "perl-email-date-format")
1312 (version "1.005")
1313 (source
1314 (origin
1315 (method url-fetch)
1316 (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
1317 "Email-Date-Format-" version ".tar.gz"))
1318 (sha256
1319 (base32
1320 "012ivfwpnbl3wr50f9c6f4azhdlxnm31pdn72528g79v61z6372p"))))
1321 (build-system perl-build-system)
1322 (home-page "http://search.cpan.org/dist/Email-Date-Format")
1323 (synopsis "Produce RFC 2822 date strings")
1324 (description "Email::Date::Format provides a means for generating an RFC
13252822 compliant datetime string.")
2f3108ad 1326 (license perl-license)))
aa86a3be 1327
08bf7095
EB
1328(define-public perl-email-messageid
1329 (package
1330 (name "perl-email-messageid")
1fb37ef0 1331 (version "1.406")
08bf7095
EB
1332 (source
1333 (origin
1334 (method url-fetch)
1335 (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
1336 "Email-MessageID-" version ".tar.gz"))
1337 (sha256
1338 (base32
1fb37ef0 1339 "1f22sdnfq169qw1l0lg7y74pmiam7j9v95bggjnf3q4mygdmshpc"))))
08bf7095
EB
1340 (build-system perl-build-system)
1341 (home-page "http://search.cpan.org/dist/Email-MessageID")
1342 (synopsis "Generate world unique message-ids")
1343 (description "Email::MessageID generates recommended message-ids to
1344identify a message uniquely.")
2f3108ad 1345 (license perl-license)))
08bf7095 1346
0a4c49f6
EB
1347(define-public perl-email-mime
1348 (package
1349 (name "perl-email-mime")
e26f2c67 1350 (version "1.940")
0a4c49f6
EB
1351 (source
1352 (origin
1353 (method url-fetch)
1354 (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
1355 "Email-MIME-" version ".tar.gz"))
1356 (sha256
1357 (base32
e26f2c67 1358 "0pnxbr16cn5qy96xqhp9zmd94ashc9ivqh10qbgbc3f637a0mfir"))))
0a4c49f6
EB
1359 (build-system perl-build-system)
1360 (propagated-inputs
1361 `(("perl-email-address" ,perl-email-address)
1362 ("perl-email-messageid" ,perl-email-messageid)
1363 ("perl-email-mime-contenttype" ,perl-email-mime-contenttype)
1364 ("perl-email-mime-encodings" ,perl-email-mime-encodings)
1365 ("perl-email-simple" ,perl-email-simple)
1366 ("perl-mime-types" ,perl-mime-types)))
1367 (home-page "http://search.cpan.org/dist/Email-MIME")
1368 (synopsis "MIME message handling")
1369 (description "Email::MIME is an extension of the Email::Simple module, to
1370handle MIME encoded messages. It takes a message as a string, splits it up
1371into its constituent parts, and allows you access to various parts of the
1372message. Headers are decoded from MIME encoding.")
2f3108ad 1373 (license perl-license)))
0a4c49f6 1374
55025bb5
EB
1375(define-public perl-email-mime-contenttype
1376 (package
1377 (name "perl-email-mime-contenttype")
a883ba02 1378 (version "1.018")
55025bb5
EB
1379 (source
1380 (origin
1381 (method url-fetch)
1382 (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
1383 "Email-MIME-ContentType-" version ".tar.gz"))
1384 (sha256
1385 (base32
a883ba02 1386 "1y8hpwm7p5a9y2azy0cgvlv2i2d0nj66ajfa0fj51wdq4w9cs23m"))))
55025bb5
EB
1387 (build-system perl-build-system)
1388 (native-inputs
1389 `(("perl-capture-tiny" ,perl-capture-tiny)))
1390 (home-page "http://search.cpan.org/dist/Email-MIME-ContentType")
1391 (synopsis "Parse MIME Content-Type headers")
1392 (description "Email::MIME::ContentType parses a MIME Content-Type
1393header.")
2f3108ad 1394 (license perl-license)))
55025bb5 1395
02e29936
EB
1396(define-public perl-email-mime-encodings
1397 (package
1398 (name "perl-email-mime-encodings")
1399 (version "1.315")
1400 (source
1401 (origin
1402 (method url-fetch)
1403 (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
1404 "Email-MIME-Encodings-" version ".tar.gz"))
1405 (sha256
1406 (base32
1407 "0p5b8g9gh35m8fqrpx60g4bp98rvwd02n5b0vm9wh7mk0xah8wac"))))
1408 (build-system perl-build-system)
1409 (native-inputs
1410 `(("perl-capture-tiny" ,perl-capture-tiny)))
1411 (home-page "http://search.cpan.org/dist/Email-MIME-Encodings")
1412 (synopsis "Unified interface to MIME encoding and decoding")
1413 (description "This module wraps MIME::Base64 and MIME::QuotedPrint.")
2f3108ad 1414 (license perl-license)))
02e29936 1415
a24c5420
EB
1416(define-public perl-email-sender
1417 (package
1418 (name "perl-email-sender")
1b49fc8f 1419 (version "1.300028")
a24c5420
EB
1420 (source
1421 (origin
1422 (method url-fetch)
1423 (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
1424 "Email-Sender-" version ".tar.gz"))
1425 (sha256
1426 (base32
1b49fc8f 1427 "0c5dv1x9856nryj5mcbgb67a4irmadz80g0qnf4van3bd8wbj72a"))))
a24c5420
EB
1428 (build-system perl-build-system)
1429 (native-inputs
1430 `(("perl-capture-tiny" ,perl-capture-tiny)))
1431 (propagated-inputs
1432 `(("perl-email-abstract" ,perl-email-abstract)
1433 ("perl-email-address" ,perl-email-address)
1434 ("perl-email-simple" ,perl-email-simple)
1435 ("perl-list-moreutils" ,perl-list-moreutils)
1436 ("perl-module-runtime" ,perl-module-runtime)
1437 ("perl-moo" ,perl-moo)
1438 ("perl-moox-types-mooselike" ,perl-moox-types-mooselike)
1439 ("perl-sub-exporter" ,perl-sub-exporter)
1440 ("perl-throwable" ,perl-throwable)
1441 ("perl-try-tiny" ,perl-try-tiny)))
1442 (home-page "http://search.cpan.org/dist/Email-Sender")
1443 (synopsis "Perl library for sending email")
1444 (description "Email::Sender replaces the old and sometimes problematic
1445Email::Send library.")
2f3108ad 1446 (license perl-license)))
a24c5420 1447
151ef3ed
EB
1448(define-public perl-email-simple
1449 (package
1450 (name "perl-email-simple")
f751b759 1451 (version "2.213")
151ef3ed
EB
1452 (source
1453 (origin
1454 (method url-fetch)
1455 (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
1456 "Email-Simple-" version ".tar.gz"))
1457 (sha256
1458 (base32
f751b759 1459 "1ibwsng63gvqqc6r2135mjwfdzazxkb1x8q7f87wqcbjcjfpmffd"))))
151ef3ed
EB
1460 (build-system perl-build-system)
1461 (propagated-inputs
1462 `(("perl-email-date-format" ,perl-email-date-format)))
1463 (home-page "http://search.cpan.org/dist/Email-Simple")
1464 (synopsis "Parsing of RFC 2822 messages")
1465 (description "Email::Simple provides simple parsing of RFC 2822 message
1466format and headers.")
2f3108ad 1467 (license perl-license)))
151ef3ed 1468
f5dceecb
AW
1469(define-public libesmtp
1470 (package
1471 (name "libesmtp")
1472 (version "1.0.6")
1473 (source
1474 (origin
1475 (method url-fetch)
049e02ea
LF
1476 (uri (list (string-append "https://pkgs.fedoraproject.org/repo/pkgs/"
1477 "libesmtp/libesmtp-" version ".tar.bz2/"
1478 "bf3915e627fd8f35524a8fdfeed979c8/libesmtp-"
1479 version ".tar.bz2")
1480 ;; XXX This site is offline, so we fetch Fedora's cached copy
1481 ;; of the source tarball.
1482 (string-append "http://www.stafford.uklinux.net/libesmtp/libesmtp-"
1483 version ".tar.bz2")))
f5dceecb
AW
1484 (sha256
1485 (base32
1486 "02zbniyz7qys1jmx3ghx21kxmns1wc3hmv80gp7ag7yra9f1m9nh"))))
1487 (build-system gnu-build-system)
1488 (propagated-inputs
1489 `(("openssl" ,openssl)))
1490 (home-page "http://www.stafford.uklinux.net/libesmtp/")
1491 (synopsis "Library for sending mail via remote hosts using SMTP")
1492 (description "libESMTP is an SMTP client which manages posting (or
1493submission of) electronic mail via a preconfigured Mail Transport Agent (MTA).
1494It may be used as part of a Mail User Agent (MUA) or other program that must
1495be able to post electronic mail where mail functionality may not be that
1496program's primary purpose.")
1497 (license (list lgpl2.1+ gpl2+))))
1498
f8ae32a2
AW
1499(define-public esmtp
1500 (package
1501 (name "esmtp")
1502 (version "1.2")
1503 (source
1504 (origin
1505 (method git-fetch)
1506 (uri (git-reference
1507 (url "https://github.com/andywingo/esmtp.git")
1508 (commit "01bf9fc")))
1509 (sha256
1510 (base32
1511 "1ay282rrl92h0m0m8z5zzjnwiiagi7c78aq2qvhia5mw7prwfyw2"))
1512 (file-name (string-append name "-" version "-checkout"))))
1513 (arguments
1514 `(#:phases (modify-phases %standard-phases
1515 (add-before
1516 'configure 'autoconf
1517 (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
1518 (build-system gnu-build-system)
1519 (native-inputs
1520 `(("bison" ,bison)
1521 ("flex" ,flex)
1522 ("autoconf" ,autoconf)
1523 ("automake" ,automake)
1524 ("libtool" ,libtool)))
1525 (inputs
718c5dd6 1526 `(("libesmtp" ,libesmtp)))
3b3b60d0 1527 (home-page "https://sourceforge.net/projects/esmtp/")
f8ae32a2
AW
1528 (synopsis "Relay-only mail transfer agent (MTA)")
1529 (description "Esmtp is a simple relay-only mail transfer agent built using
1530libESMTP. It sends e-mail via a remote SMTP server using credentials from the
1531user's @file{$HOME/.esmtprc} configuration file; see the @command{esmtprc} man
1532page for more on configuration. This package also provides minimal
1533compatibility shims for the @command{sendmail}, @command{mailq}, and
1534@command{newaliases} commands.")
1535 (license gpl2+)))
1536
34dd26af
CAW
1537(define-public fdm
1538 (package
1539 (name "fdm")
1540 (version "1.9")
1541 (source (origin
1542 (method url-fetch)
1543 (uri (string-append "https://github.com/nicm/fdm/releases/download/"
1544 version "/fdm-"
1545 version ".tar.gz"))
1546 (file-name (string-append name "-" version ".tar.gz"))
1547 (sha256
1548 (base32 "054rscijahiza5f9qha79rg3siji3bk5mk10f8c2vqx7m4w6qh8n"))))
1549 (build-system gnu-build-system)
1550 (inputs
1551 `(("tdb" ,tdb)
1552 ("openssl" ,openssl)
1553 ("zlib" ,zlib)))
1554 (home-page "https://github.com/nicm/fdm")
1555 (synopsis "Mail Retrieval Agent (MRA) and Mail Delivery Agent (MDA)")
1556 (description "fdm is a program designed to fetch mail from POP3
1557or IMAP servers, or receive local mail from stdin, and
1558deliver it in various ways.")
1559 (license
1560 ;; Why point to a source file? Well, all the individual files have a
1561 ;; copy of this license in their headers, but there's no seprate file
1562 ;; with that information.
16966d5b 1563 (non-copyleft "https://github.com/nicm/fdm/blob/master/command.c"))))
34dd26af 1564
e90819c4
LG
1565
1566(define-public procmail
1567 (package
1568 (name "procmail")
1569 (version "3.22")
1570 (source
1571 (origin
1572 (method url-fetch)
1573 (uri (string-append
1574 "ftp://ftp.fu-berlin.de/pub/unix/mail/procmail/procmail-"
1575 version
1576 ".tar.gz"))
1577 (sha256
1578 (base32
1579 "05z1c803n5cppkcq99vkyd5myff904lf9sdgynfqngfk9nrpaz08"))
1580 ;; The following patch fixes an ambiguous definition of
1581 ;; getline() in formail.c. The patch is provided by Debian as
1582 ;; patch 24.
1d982d78
LF
1583 (patches (search-patches "procmail-ambiguous-getline-debian.patch"
1584 "procmail-CVE-2014-3618.patch"))))
e90819c4
LG
1585 (arguments
1586 `(#:phases (modify-phases %standard-phases
1587 (replace 'configure
1588 (lambda _
1589 (substitute* "Makefile"
1590 (("/bin/sh")
1591 (which "sh"))
1592 (("/usr")
1593 (assoc-ref %outputs "out"))
1594 (("/bin/rm")
1595 (which "rm")))
1596 #t)))
1597 #:tests? #f)) ;; There are no tests indicating a successful
1598 ;; build. Some tests of basic locking mechanisms provided by the
8f65585b 1599 ;; file system are performed during 'make install'. However, these
e90819c4
LG
1600 ;; are performed before the actual build process.
1601 (build-system gnu-build-system)
05aa576b 1602 (inputs `(("exim" ,exim)))
e90819c4
LG
1603 (home-page "http://www.procmail.org/")
1604 (synopsis "Versatile mail delivery agent (MDA)")
1605 (description "Procmail is a mail delivery agent (MDA) featuring support
1606for a variety of mailbox formats such as mbox, mh and maildir. Incoming mail
1607can be sorted into separate files/directories and arbitrary commands can be
1608executed on mail arrival. Procmail is considered stable, but is no longer
1609maintained.")
1610 (license gpl2+))) ;; procmail allows to choose the
1611 ;; nonfree Artistic License 1.0
1612 ;; as alternative to the GPL2+.
1613 ;; This option is not listed here.
e90819c4 1614
61c30e9d
LF
1615(define-public khard
1616 (package
1617 (name "khard")
4a3495d5 1618 (version "0.11.4")
61c30e9d
LF
1619 (source (origin
1620 (method url-fetch)
1621 (uri (pypi-uri name version))
1622 (sha256
1623 (base32
4a3495d5 1624 "1shhlq6ljbd8095hd82v4mw56rjcfxf1ymmgknbgh8gix02nsxw1"))))
61c30e9d
LF
1625 (build-system python-build-system)
1626 (arguments
a57495e2 1627 `(#:phases
61c30e9d 1628 (modify-phases %standard-phases
61c30e9d
LF
1629 (add-after 'install 'install-doc
1630 (lambda* (#:key outputs #:allow-other-keys)
1631 (let* ((out (assoc-ref outputs "out"))
1632 (doc (string-append out "/share/doc/khard")))
e9eafae2
MB
1633 (copy-recursively "misc/khard" doc)
1634 #t))))
1635 ;; FIXME: check phase fails with
1636 ;; "Config file /tmp/.config/khard/khard.conf not available"
1637 #:tests? #f))
61c30e9d 1638 (propagated-inputs
a57495e2
LF
1639 `(("python-vobject" ,python-vobject)
1640 ("python-pyyaml" ,python-pyyaml)
1641 ("python-atomicwrites" ,python-atomicwrites)
1642 ("python-configobj" ,python-configobj)))
61c30e9d
LF
1643 (synopsis "Console address book using CardDAV")
1644 (description "Khard is an address book for the console. It creates, reads,
1645modifies and removes CardDAV address book entries at your local machine. For
1646synchronizing with a remote address book, @command{vdirsyncer} is recommended.
1647Khard can also be used from within the email client @command{mutt}.")
1648 (home-page "https://github.com/scheibler/khard")
1649 (license gpl3+)))
be0c5733
DM
1650
1651(define-public perl-mail-spf
1652 (package
1653 (name "perl-mail-spf")
1654 (version "v2.9.0")
1655 (source
1656 (origin
1657 (method url-fetch)
1658 (uri (string-append
1659 "mirror://cpan/authors/id/J/JM/JMEHNLE/mail-spf/Mail-SPF-"
1660 version
1661 ".tar.gz"))
1662 (sha256
1663 (base32
1664 "0qk1rfgfm5drj4iyniiabrasrpqv570vzhgz66lwgb67y4amkjv1"))))
1665 (build-system perl-build-system)
1666 (native-inputs
1667 `(("perl-module-build" ,perl-module-build)
1668 ("perl-net-dns-resolver-programmable"
1669 ,perl-net-dns-resolver-programmable)))
1670 (arguments
1671 `(#:phases (modify-phases %standard-phases
1672 (add-before 'configure 'modify-Build.PL
1673 (lambda* (#:key outputs #:allow-other-keys)
1674 (substitute* "Build.PL"
1675 (("'/usr/sbin'") (string-append "'"
1676 (assoc-ref outputs "out")
1677 "/sbin'")))
1678 #t)))))
1679 (inputs
1680 `(("perl-error" ,perl-error)
1681 ("perl-net-dns" ,perl-net-dns)
1682 ("perl-netaddr-ip" ,perl-netaddr-ip)
1683 ("perl-uri" ,perl-uri)))
1684 (home-page
1685 "http://search.cpan.org/dist/Mail-SPF")
1686 (synopsis
1687 "Perl implementation of Sender Policy Framework")
1688 (description "Mail::SPF is the Sender Policy Framework implemented
1689in Perl.")
1690 (license bsd-3)))
24262239
CL
1691
1692(define-public mb2md
1693 (package
1694 (name "mb2md")
1695 (version "3.20")
1696 (source (origin
1697 (method url-fetch)
1698 (uri (string-append
1699 "http://batleth.sapienti-sat.org/projects/mb2md/mb2md-"
1700 version ".pl.gz"))
1701 (sha256
1702 (base32
1703 "0bvkky3c90738h3skd2f1b2yy5xzhl25cbh9w2dy97rs86ssjidg"))))
1704 (build-system trivial-build-system)
1705 (arguments
1706 '(#:modules ((guix build utils))
1707 #:builder
1708 (begin
1709 (use-modules (guix build utils))
1710 (let* ((source (assoc-ref %build-inputs "source"))
1711 (out (assoc-ref %outputs "out"))
1712 (bin (string-append out "/bin"))
1713 (perl (assoc-ref %build-inputs "perl"))
1714 (gzip (assoc-ref %build-inputs "gzip"))
1715 (perl-timedate (assoc-ref %build-inputs "perl-timedate"))
1716 (perl5lib (string-append perl-timedate "/lib/perl5/site_perl")))
1717 (mkdir-p bin)
1718 (with-directory-excursion bin
1719 (copy-file source "mb2md.gz")
1720 (system* (string-append gzip "/bin/gzip") "-d" "mb2md.gz")
1721 (substitute* "mb2md"
1722 (("#!/usr/bin/perl")
1723 (string-append "#!/usr/bin/perl -I " perl5lib)))
1724 (patch-shebang "mb2md" (list (string-append perl "/bin")))
1725 (chmod "mb2md" #o555))
1726 #t))))
1727 (native-inputs `(("gzip", gzip)))
1728 (inputs `(("perl" ,perl)
1729 ("perl-timedate" ,perl-timedate)))
1730 (home-page "http://batleth.sapienti-sat.org/projects/mb2md/")
1731 (synopsis "Mbox to maildir converter")
1732 (description
1733 "Mb2md is a Perl script that takes one or more mbox format files and
1734converts them to maildir format directories.")
1735 (license public-domain)))
e0d7b421
AI
1736
1737(define-public mpop
1738 (package
1739 (name "mpop")
5837e699 1740 (version "1.2.6")
e0d7b421
AI
1741 (source
1742 (origin
1743 (method url-fetch)
175c9103
LF
1744 (uri (string-append "mirror://sourceforge/mpop/mpop/" version
1745 "/mpop-" version ".tar.xz"))
e0d7b421
AI
1746 (sha256
1747 (base32
5837e699 1748 "0p1ix63jh64dibrlccch8q7gxl9nn18wd2qpyr5z1h4gs2fpmv4z"))))
e0d7b421
AI
1749 (build-system gnu-build-system)
1750 (inputs
1751 `(("gnutls" ,gnutls)
1752 ("libidn" ,libidn)))
1753 (native-inputs
1754 `(("pkg-config" ,pkg-config)))
1755 (arguments
1756 `(#:configure-flags (list "--with-tls=gnutls")))
1757 (home-page "http://mpop.sourceforge.net/")
1758 (synopsis "POP3 mail client")
1759 (description "mpop is a small and fast POP3 client suitable as a
1760fetchmail replacement.
1761
1762mpop supports multiple accounts, header based mail filtering, delivery
1763to mbox files, maildir folders or a Mail Delivery Agent (MDA),
1764TLS/SSL, several authentication methods, Internationalized Domain
1765Names (IDN) and SOCKS proxies.")
1766 (license gpl3+)))
74c0282c 1767
1768(define-public mhonarc
1769 (package
1770 (name "mhonarc")
1771 (version "2.6.19")
1772 (source
1773 (origin
1774 (method url-fetch)
1775 (uri (string-append "mirror://cpan/authors/id/E/EH/EHOOD/MHonArc-"
1776 version ".tar.gz"))
1777 (sha256
1778 (base32
1779 "0ll3v93yji334zqp6xfzfxc0127pmjcznmai1l5q6dzawrs2igzq"))))
1780 (build-system perl-build-system)
1781 (home-page "https://www.mhonarc.org/")
1782 (synopsis "Create HTML archives of mail/news messages")
1783 (description
1784 "MHonArc is a Perl mail-to-HTML converter. MHonArc
1785provides HTML mail archiving with index, mail thread linking,
1786etc; plus other capabilities including support for MIME and
1787powerful user customization features.")
1788 (license gpl2+)))
5d87088c
JD
1789
1790
1791(define-public sendmail
1792 (package
1793 (name "sendmail")
1794 (version "8.15.2")
1795 (source
1796 (origin
1797 (method url-fetch)
1798 (uri (string-append
1799 "ftp://ftp.sendmail.org/pub/sendmail/sendmail."
1800 version ".tar.gz"))
1801 (sha256
1802 (base32
1803 "0fdl9ndmspqspdlmghzxlaqk56j3yajk52d7jxcg21b7sxglpy94"))))
1804 (build-system gnu-build-system)
1805 (arguments
1806 `(#:phases
1807 (modify-phases %standard-phases
1808 (add-before 'build 'replace-/bin/sh
1809 (lambda _
1810 (substitute*
1811 (append
1812 (list "smrsh/smrsh.c" "sendmail/conf.c" "contrib/mailprio"
1813 "contrib/mmuegel" "devtools/bin/configure.sh")
1814 (find-files "." ".*\\.m4")
1815 (find-files "." ".*\\.cf"))
19527952 1816 (("/bin/sh") (which "sh")))
5d87088c
JD
1817
1818 (substitute* "devtools/bin/Build"
19527952 1819 (("SHELL=/bin/sh") (string-append "SHELL=" (which "sh"))))
5d87088c
JD
1820 #t))
1821 (replace 'configure
1822 (lambda _
1823
1824 ;; Render harmless any attempts to chown or chgrp
1825 (substitute* "devtools/bin/install.sh"
1826 (("owner=\\$2") "owner=''")
1827 (("group=\\$2") "group=''"))
1828
1829 (with-output-to-file "devtools/Site/site.config.m4"
1830 (lambda ()
1831 (format #t "
1832define(`confCC', `gcc')
1833define(`confOPTIMIZE', `-g -O2')
1834define(`confLIBS', `-lresolv')
1835define(`confINSTALL', `~a/devtools/bin/install.sh')
1836define(`confDEPEND_TYPE', `CC-M')
1837define(`confINST_DEP', `')
1838" (getcwd))))))
1839 (replace 'build
1840 (lambda _
1841 (and (zero? (system* "sh" "Build"))
1842 (with-directory-excursion "cf/cf"
1843 (begin
1844 (copy-file "generic-linux.mc" "sendmail.mc")
1845 (zero? (system* "sh" "Build" "sendmail.cf")))))))
1846 (add-before 'install 'pre-install
1847 (lambda _
1848 (let ((out (assoc-ref %outputs "out")))
1849 (mkdir-p (string-append out "/usr/bin"))
1850 (mkdir-p (string-append out "/usr/sbin"))
1851 (mkdir-p (string-append out "/etc/mail"))
1852 (setenv "DESTDIR" out)
1853 (with-directory-excursion "cf/cf"
1854 (zero? (system* "sh" "Build" "install-cf")))))))
1855 ;; There is no make check. There are some post installation tests, but those
1856 ;; require root privileges
1857 #:tests? #f))
1858 (inputs
1859 `(("m4" ,m4)
1860 ("perl" ,perl)))
1861 (home-page "http://sendmail.org")
1862 (synopsis
1863 "Highly configurable Mail Transfer Agent (MTA)")
1864 (description
1865 "Sendmail is a mail transfer agent (MTA) originally developed by Eric
1866Allman. It is highly configurable and supports many delivery methods and many
1867transfer protocols.")
1868 (license (non-copyleft "file://LICENSE"
1869 "See LICENSE in the distribution."))))
1870
8b53366c 1871(define-public opensmtpd
1872 (package
1873 (name "opensmtpd")
eb4b3e4b 1874 (version "6.0.2p1")
8b53366c 1875 (source (origin
1876 (method url-fetch)
1877 (uri (string-append "https://www.opensmtpd.org/archives/"
1878 name "-" version ".tar.gz"))
1879 (sha256
1880 (base32
eb4b3e4b 1881 "1b4h64w45hpmfq5721smhg4s0shs64gbcjqjpx3fbiw4hz8bdy9a"))))
8b53366c 1882 (build-system gnu-build-system)
1883 (inputs
1884 `(("bdb" ,bdb)
1885 ("libressl" ,libressl)
1886 ("libevent" ,libevent)
1887 ("libasr" ,libasr)
1888 ("linux-pam" ,linux-pam)
1889 ("zlib" ,zlib)))
1890 (native-inputs
d7da7604
SB
1891 `(("bison" ,bison)
1892 ("groff" ,groff)))
8b53366c 1893 (arguments
ae1e2133
SB
1894 `(#:configure-flags
1895 (list "--with-table-db" "--localstatedir=/var"
1896 "--with-user-smtpd=smtpd" "--with-user-queue=smtpq"
1897 "--with-group-queue=smtpq"
1898 "--with-path-socket=/var/run"
1899 "--with-path-CAfile=/etc/ssl/certs/ca-certificates.crt")
8b53366c 1900 #:phases
1901 (modify-phases %standard-phases
1902 ;; OpenSMTPD provides a single utility smtpctl to control the daemon and
1903 ;; the local submission subsystem. To accomodate systems that require
1904 ;; historical interfaces such as sendmail, newaliases or makemap, the
1905 ;; smtpctl utility can operate in compatibility mode if called with the
1906 ;; historical name.
1907 (add-after 'install 'install-compabilitymode
1908 (lambda _
1909 (let* ((out (assoc-ref %outputs "out"))
1910 (sbin (string-append out "/sbin/")))
1911 (for-each (lambda (cmd)
1912 (symlink "smtpctl" (string-append sbin cmd)))
1913 '("makemap" "sendmail" "send-mail"
1914 "newaliases" "mailq")))
1915 #t)))))
1916 (synopsis "Lightweight SMTP daemon")
1917 (description
1918 "OpenSMTPD is an implementation of the server-side SMTP protocol, with
1919some additional standard extensions. It allows ordinary machines to exchange
1920e-mails with other systems speaking the SMTP protocol.")
1921 (home-page "https://www.opensmtpd.org")
1922 (license (list bsd-2 bsd-3 bsd-4 (non-copyleft "file://COPYING")
19262a71 1923 public-domain isc license:openssl))))
152ffe7c 1924
1925(define-public opensmtpd-extras
1926 (package
1927 (name "opensmtpd-extras")
1928 (version "5.7.1")
1929 (source (origin
1930 (method url-fetch)
1931 (uri (string-append "https://www.opensmtpd.org/archives/"
1932 name "-" version ".tar.gz"))
1933 (sha256
1934 (base32
1935 "1kld4hxgz792s0cb2gl7m2n618ikzqkj88w5dhaxdrxg4x2c4vdm"))))
1936 (build-system gnu-build-system)
1937 (inputs
1938 `(("libressl" ,libressl)
1939 ("libevent" ,libevent)
1940 ("libasr" ,libasr)
1941 ("python-2" ,python-2)
1942 ("opensmtpd" ,opensmtpd)
1943 ("perl" ,perl)
1944 ("lua" ,lua)
1945 ("postgresql" ,postgresql)
1946 ("sqlite" ,sqlite)
1947 ("linux-pam" ,linux-pam)))
1948 (native-inputs
1949 `(("bison" ,bison)
1950 ("pkg-config" ,pkg-config)
1951 ("groff" ,groff)
1952 ("automake" ,automake)
1953 ("autoconf" ,autoconf)))
1954 (arguments
1955 `(;; We have to configure it like this because the default checks for for example
1956 ;; python in /usr/local/bin, /usr/bin and fails otherwise.
1957 #:configure-flags (list
1958 "--with-filter-clamav" "--with-filter-dkim-signer"
1959 "--with-filter-dnsbl" "--with-filter-lua"
1960 "--with-filter-monkey" "--with-filter-pause"
1961 "--with-filter-perl" "--with-filter-python"
1962 "--with-filter-regex" "--with-filter-spamassassin"
1963 "--with-filter-stub" "--with-filter-trace"
1964 "--with-filter-void"
1965
1966 "--with-queue-null" "--with-queue-python"
1967 "--with-queue-ram" "--with-queue-stub"
1968
1969 "--with-scheduler-python" "--with-scheduler-ram"
1970 "--with-scheduler-stub"
1971
1972 "--with-table-ldap" ; "--with-table-mysql"
1973 "--with-table-passwd" "--with-table-postgres"
1974 "--with-table-python" "--with-table-socketmap"
1975 "--with-table-sqlite" "--with-table-stub"
1976 ;;"--with-table-redis" ; TODO: package hiredis
1977
1978 "--with-user=smtpd" "--with-privsep-user=smtpd"
1979 "--localstatedir=/var" "--sysconfdir=/etc"
1980 "--with-lua-type=lua" ; can use lua or luajit
1981
1982 (string-append "--with-python="
1983 (assoc-ref %build-inputs "python-2"))
1984 (string-append "--with-lua="
1985 (assoc-ref %build-inputs "lua")))))
19262a71
LC
1986 (license (list bsd-2 bsd-3 bsd-4
1987 public-domain isc license:openssl))
152ffe7c 1988 (synopsis "Extra tables, filters, and various other addons for OpenSMTPD")
1989 (description
1990 "This package provides extra tables, filters, and various other addons
1991for OpenSMTPD to extend its functionality.")
1992 (home-page "https://www.opensmtpd.org")))
6d3dda4f 1993
1994(define-public python-mailmanclient
1995 (package
1996 (name "python-mailmanclient")
1997 (version "1.0.1")
1998 (source
1999 (origin
2000 (method url-fetch)
2001 (uri (pypi-uri "mailmanclient" version))
2002 (sha256
2003 (base32
2004 "1cfjh45fgbsax5hjj2inq9nk33dhdvh63xhysc8dhnqidgqgm8c5"))))
2005 (build-system python-build-system)
2006 (arguments
2007 `(#:tests? #f)) ; Requires mailman running
f22efa01 2008 (propagated-inputs
6d3dda4f 2009 `(("python-six" ,python-six)
2010 ("python-httplib2" ,python-httplib2)))
2011 (home-page "https://launchpad.net/mailman.client")
2012 (synopsis "Python bindings for the Mailman 3 REST API")
2013 (description
2014 "The mailmanclient library provides official Python bindings for
2015the GNU Mailman 3 REST API.")
6d3dda4f 2016 (license lgpl3+)))
2017
2018(define-public python2-mailmanclient
5c31f4aa 2019 (package-with-python2 python-mailmanclient))
3163a289 2020
2021(define-public mlmmj
2022 (package
2023 (name "mlmmj")
2024 (version "1.2.19.0")
2025 (source
2026 (origin
2027 (method url-fetch)
2028 (uri (string-append "http://mlmmj.org/releases/mlmmj-"
2029 version ".tar.bz2"))
2030 (sha256
2031 (base32
2032 "1piwvcxkqadjwk5x8jicaiyz9nngmaj3w13ghdqgaki32xd7zk9v"))))
2033 (build-system gnu-build-system)
2034 (inputs
2035 `(("perl" ,perl))) ; For "contrib/web/"
2036 (native-inputs
2037 `(("pkg-config" ,pkg-config)))
2038 (arguments
2039 `(#:configure-flags
2040 ;; mlmmj-receive-strip is a replacement for mlmmj-receive
2041 ;; It opens the files control/mimedeny and control/mimestrip to get a list
2042 ;; of mimetypes for parts of multipart/mime messages that should be denied
2043 ;; or stripped. The parts then get stripped directly when the mail is
2044 ;; received. mlmmj-receive-strip also appends an extra header
2045 ;; X-ThisMailContainsUnwantedMimeParts: Y when the mail contains unwanted
2046 ;; mime parts
2047 (list "--enable-receive-strip")
2048 #:phases
2049 (modify-phases %standard-phases
2050 (add-before 'install 'install-contrib
2051 (lambda* (#:key outputs #:allow-other-keys)
2052 (let* ((out (assoc-ref outputs "out"))
2053 (share (string-append out "/share/mlmmj"))
2054 (contrib (string-append share "/contrib/web"))
2055 (texts (string-append share "/listtexts")))
2056 (copy-recursively "contrib/web/" contrib)
2057 (copy-recursively "listtexts" texts)
2058 (rename-file texts (string-append share "/texts"))
2059 #t))))))
2060 (home-page "http://mlmmj.org")
2061 (synopsis "Mailing list managing made joyful")
2062 (description
2063 "Mlmmj is a simple and slim mailing list manager (MLM) inspired by ezmlm.
2064It works with many different Mail Transport Agents (MTAs) and is simple for a
d1e4ad1b 2065system administrator to install, configure and integrate with other software.
3163a289 2066As it uses very few resources, and requires no daemons, it is ideal for
2067installation on systems where resources are limited. Its features include:
2068@enumerate
2069@item Archive, Custom headers / footer,
2070@item Fully automated bounce handling (similar to ezmlm),
2071@item Complete requeueing functionality, Moderation functionality, Subject prefix,
2072@item Subscribers only posting, Regular expression access control,
2073@item Functionality to retrieve old posts, Web interface, Digests,
2074@item No-mail subscription, VERP support,
2075@item Delivery Status Notification (RFC1891) support,
2076@item Rich and customisable texts for automated operations.
2077@end enumerate\n")
2078 (license license:expat)))
3a263368 2079
8a3741e6 2080(define-public python-django-mailman3
2081 (package
2082 (name "python-django-mailman3")
2083 (version "1.0.1")
2084 (source
2085 (origin
2086 (method url-fetch)
2087 (uri (pypi-uri "django-mailman3" version))
2088 (sha256
2089 (base32
2090 "1adxyh8knw9knjlh73xq0jpn5adml0ck4alsv0swakm95wfyx46z"))))
2091 (build-system python-build-system)
2092 (inputs
99a8c8bd 2093 `(("python-django" ,python-django)))
8a3741e6 2094 (propagated-inputs
2095 `(("python-requests" ,python-requests)
2096 ("python-requests-oauthlib" ,python-requests-oauthlib)
2097 ("python-openid" ,python-openid)
2098 ("python-mailmanclient" ,python-mailmanclient)
2099 ("python-django-allauth" ,python-django-allauth)
2100 ("python-django-gravatar2" ,python-django-gravatar2)
2101 ("python-pytz" ,python-pytz)))
2102 (home-page "https://gitlab.com/mailman/django-mailman3")
2103 (synopsis "Django library for Mailman UIs")
2104 (description
2105 "Libraries and templates for Django-based interfaces
2106interacting with Mailman.")
2107 (license gpl3+)))
2108
2109(define-public python2-django-mailman3
2110 (let ((base (package-with-python2
2111 python-django-mailman3)))
2112 (package
2113 (inherit base)
2114 (propagated-inputs
2115 `(("python2-openid" ,python2-openid)
2116 ,@(package-propagated-inputs base))))))
2117
d99a2add 2118(define-public postorius
2119 (package
2120 (name "postorius")
2121 (version "1.0.3")
2122 (source
2123 (origin
2124 (method url-fetch)
2125 (uri (pypi-uri "postorius" version "+post2.tar.gz"))
2126 (file-name (string-append name "-" version ".tar.gz"))
2127 (sha256
2128 (base32
2129 "1wymcpv2icjjy8h1ni52p6dr7wwxf71ivqgbqhzx4i82yqphcaq5"))))
2130 (build-system python-build-system)
2131 (arguments
2132 `(; One test dependency relies on Persona, which was shut down in
2133 ;; November 2016.
2134 #:tests? #f
2135 ;; The part of the frontend of Mailman is still python 2.7.
2136 #:python ,python-2))
2137 (inputs
2138 `(("python2-django" ,python2-django)
2139 ("python2-django-mailman3" ,python2-django-mailman3)
2140 ("python2-mailmanclient" ,python2-mailmanclient)))
2141 (home-page "https://gitlab.com/mailman/postorius")
2142 (synopsis "Web user interface for GNU Mailman")
2143 (description
2144 "Postorius is a Django app which provides a web user interface
2145to access GNU Mailman.")
2146 (license (list gpl3+ lgpl3+))))
2147
3a263368 2148(define-public blists
2149 (package
2150 (name "blists")
2151 (version "1.0")
2152 (source
2153 (origin
2154 (method url-fetch)
2155 (uri (string-append "http://download.openwall.net/pub/projects/"
2156 "blists/blists-" version ".tar.gz"))
2157 (sha256
2158 (base32
2159 "1gp51kmb8yv8d693wcpdslmwlbw5w2kgz4kxhrcaf7y89w8wy4qd"))))
2160 (build-system gnu-build-system)
2161 (arguments
2162 `(#:tests? #f ; No tests
2163 #:phases
2164 (modify-phases %standard-phases
2165 (delete 'configure)
2166 (replace 'install
2167 (lambda* (#:key outputs #:allow-other-keys)
2168 (let* ((out (assoc-ref outputs "out"))
2169 (bin (string-append out "/bin")))
2170 (install-file "bindex" bin)
2171 (install-file "bit" bin)
2172 #t))))))
2173 (home-page "http://www.openwall.com/blists/")
2174 (synopsis "Web interface to mailing list archives")
2175 (description
2176 "Blists is a web interface to mailing list archives that works off
2177indexed mbox files. There are two programs: @code{bindex} and @code{bit}.
2178@code{bindex} generates or updates the index file (incremental updates
2179are supported). @code{bit} is a CGI/SSI program that generates web pages
2180on the fly. Both programs are written in C and are very fast.")
2181 (license license:expat)))
ed428a58
AI
2182
2183(define-public swaks
2184 (package
2185 (name "swaks")
2186 (version "20170101.0")
2187 (source
2188 (origin
2189 (method url-fetch)
2190 (uri (string-append
2191 "http://jetmore.org/john/code/swaks/files/swaks-"
2192 version ".tar.gz"))
2193 (sha256
2194 (base32
2195 "0pli4mlhasnqqxmmxalwyg3x7n2vhcbgsnp2xgddamjavv82vrl4"))))
2196 (build-system perl-build-system)
2197 (inputs
2198 `(("perl-net-dns" ,perl-net-dns)
2199 ("perl-net-ssleay" ,perl-net-ssleay)))
2200 (arguments
2201 `(#:tests? #f ; No tests
2202 #:phases
2203 (modify-phases %standard-phases
2204 (delete 'configure)
2205 (replace 'build
2206 (lambda _
2207 (zero? (system* "pod2man" "doc/ref.pod" "swaks.1"))))
2208 (replace 'install
2209 (lambda* (#:key outputs #:allow-other-keys)
2210 (let ((out (assoc-ref outputs "out")))
2211 (install-file "swaks" (string-append out "/bin"))
2212 (install-file "swaks.1" (string-append out "/share/man/man1")))
2213 #t))
2214 (add-after 'install 'wrap-program
2215 (lambda* (#:key outputs #:allow-other-keys)
2216 (wrap-program (string-append (assoc-ref outputs "out")
2217 "/bin/swaks")
2218 `("PERL5LIB" ":" = (,(getenv "PERL5LIB"))))
2219 #t)))))
2220 (home-page "http://jetmore.org/john/code/swaks/")
2221 (synopsis "Featureful SMTP test tool")
2222 (description "Swaks is a flexible, scriptable, transaction-oriented SMTP
2223test tool. It handles SMTP features and extensions such as TLS,
2224authentication, and pipelining; multiple versions of the SMTP protocol
2225including SMTP, ESMTP, and LMTP; and multiple transport methods including
2226unix-domain sockets, internet-domain sockets, and pipes to spawned processes.
2227Options can be specified in environment variables, configuration files, and
2228the command line allowing maximum configurability and ease of use for
2229operators and scripters.")
2230 (license gpl2+)))
b0eb2af2 2231
2232(define-public alpine
2233 (package
2234 (name "alpine")
2235 (version "2.21")
2236 (source
2237 (origin
2238 (method url-fetch)
2239 ;; There are two versions: the plain continuation of Alpine without extra
2240 ;; patches and the version which adds extra fixes. Every distro uses
2241 ;; the patched version, and so do we to not break expectations.
32f9cc33 2242 ;; http://alpine.freeiz.com/alpine/readme/README.patches
2243 (uri (string-append "http://alpine.freeiz.com/alpine/patches/alpine-"
b0eb2af2 2244 version "/alpine-" version ".tar.xz"))
2245 (sha256
2246 (base32
2247 "1k9hcfjywfk3mpsl71hjza3nk6icgf1b6xxzgx10kdzg5yci5x5m"))))
2248 (build-system gnu-build-system)
2249 (arguments
2250 `(#:make-flags (list "CC=gcc")
2251 #:configure-flags (list (string-append "--with-ssl-include-dir="
2252 (assoc-ref %build-inputs "openssl")
2253 "/include/openssl")
2254 (string-append "--with-ssl-dir="
2255 (assoc-ref %build-inputs "openssl"))
2256 (string-append "--with-ssl-certs-dir="
2257 "/etc/ssl/certs/")
2258 (string-append "--with-ssl-lib-dir="
2259 (assoc-ref %build-inputs "openssl")
2260 "/lib")
2261 (string-append "--with-interactive-spellcheck="
2262 (assoc-ref %build-inputs "aspell")
2263 "/bin/aspell"))
2264 #:phases
2265 (modify-phases %standard-phases
2266 (add-after 'unpack 'make-reproducible
2267 (lambda _
2268 ;; This removes time-dependent code to make alpine reproducible.
2269 (substitute* "pico/blddate.c"
2270 (("%02d-%s-%d") "1970-01-01"))
2271 (substitute* (list "alpine/Makefile.in"
2272 "web/src/alpined.d/Makefile.in")
2273 (("`date`") "1970-01-01"))
2274 #t)))))
2275 (inputs
2276 `(("ncurses" ,ncurses)
2277 ("openssl" ,openssl)
2278 ("gnutls" ,gnutls)
2279 ("openldap" ,openldap)
2280 ("cyrus-sasl" ,cyrus-sasl)
2281 ("mit-krb5" ,mit-krb5)
2282 ("aspell" ,aspell)
2283 ("tcl" ,tcl)
2284 ("linux-pam" ,linux-pam)))
32f9cc33 2285 (home-page "http://alpine.freeiz.com/alpine/")
b0eb2af2 2286 (synopsis "Alternatively Licensed Program for Internet News and Email")
2287 (description
2288 "Alpine is a text-based mail and news client. Alpine includes several
2289tools and applications:
2290@enumerate
2291@item alpine, the Alpine mailer
2292@item pico, the standalone text editor, GNU nano's predecessor
2293@item pilot, the standalone file system navigator
2294@end enumerate\n")
2295 (license asl2.0)))
7c16151a
RS
2296
2297(define-public balsa
2298 (package
2299 (name "balsa")
2300 (version "2.5.3")
2301 (source
2302 (origin
2303 (method url-fetch)
2304 (uri (string-append "https://pawsa.fedorapeople.org/balsa/balsa-"
2305 version ".tar.bz2"))
2306 (sha256
2307 (base32
2308 "15jkwp3ylbwd8iha4dr37z1xb6mkk31ym90vv3h2a5xk2rmym5mq"))))
2309 (build-system gnu-build-system)
2310 (arguments
2311 `(#:configure-flags
2312 '(;; Balsa tries to install additional MIME icons
2313 ;; under gtk+ directory.
2314 "--enable-extra-mimeicons=no"
2315 "--with-gtksourceview"
2316 "--with-canberra"
2317 "--with-spell-checker=gtkspell"
2318 "--with-gpgme"
2319 "--with-sqlite"
2320 "--with-compface"
2321 "--with-ldap")))
2322 (inputs
2323 `(("cyrus-sasl" ,cyrus-sasl)
2324 ("enchant" ,enchant)
2325 ("gdk-pixbuf" ,gdk-pixbuf)
2326 ("gmime" ,gmime)
2327 ("gnutls" ,gnutls)
2328 ("gpgme" ,gpgme)
2329 ("gtk+" ,gtk+)
2330 ("gtksourceview" ,gtksourceview)
2331 ("gtkspell3" ,gtkspell3)
2332 ("libcanberra" ,libcanberra)
2333 ("libesmtp" ,libesmtp)
2334 ("libnotify" ,libnotify)
2335 ("openldap" ,openldap)
2336 ("sqlite" ,sqlite)
2337 ("webkitgtk" ,webkitgtk)))
2338 (native-inputs
2339 `(("compface" ,compface)
2340 ("glib" ,glib "bin")
2341 ("intltool" ,intltool)
2342 ("pkg-config" ,pkg-config)
2343 ("yelp-tools" ,yelp-tools)))
2344 (home-page "https://pawsa.fedorapeople.org/balsa")
2345 (synopsis "E-mail client for GNOME")
2346 (description "Balsa is a highly configurable and robust mail client for
2347the GNOME desktop. It supports both POP3 and IMAP servers as well as the
2348mbox, maildir and mh local mailbox formats. Balsa also supports SMTP and/or
b95d5f62 2349the use of a local MTA such as Sendmail.")
7c16151a 2350 (license gpl3+)))