* gnu/packages/patches/ytnef-CVE-2021-3403.patch, gnu/packages/patches/ytnef-CVE-2021-3404.patch: New patches. * gnu/local.mk (dist_patch_DATA): Register them. * gnu/packages/mail.scm (ytnef): Apply them.
4223 lines
167 KiB
Scheme
4223 lines
167 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
|
||
;;; Copyright © 2014, 2015, 2017, 2020 Mark H Weaver <mhw@netris.org>
|
||
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
|
||
;;; Copyright © 2014 Sou Bunnbu <iyzsong@gmail.com>
|
||
;;; Copyright © 2014, 2019 Julien Lepiller <julien@lepiller.eu>
|
||
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
|
||
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
|
||
;;; Copyright © 2015, 2016, 2018 Eric Bavier <bavier@member.fsf.org>
|
||
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
|
||
;;; Copyright © 2016 Al McElrath <hello@yrns.org>
|
||
;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Leo Famulari <leo@famulari.name>
|
||
;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
|
||
;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
|
||
;;; Copyright © 2016, 2017 Troy Sankey <sankeytms@gmail.com>
|
||
;;; Copyright © 2016, 2017, 2018 Nikita <nikita@n0.is>
|
||
;;; Copyright © 2016 Clément Lassieur <clement@lassieur.org>
|
||
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Arun Isaac <arunisaac@systemreboot.net>
|
||
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
|
||
;;; Copyright © 2016, 2018 Marius Bakke <mbakke@fastmail.com>
|
||
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
|
||
;;; Copyright © 2017 Kyle Meyer <kyle@kyleam.com>
|
||
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2017, 2018, 2020 Rene Saavedra <pacoon@protonmail.com>
|
||
;;; Copyright © 2018, 2019, 2020, 2021 Pierre Langlois <pierre.langlois@gmx.com>
|
||
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
|
||
;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com>
|
||
;;; Copyright © 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2019, 2020 Tanguy Le Carrour <tanguy@bioneland.org>
|
||
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
|
||
;;; Copyright © 2020 Justus Winter <justus@sequoia-pgp.org>
|
||
;;; Copyright © 2020 Eric Brown <ecbrown@ericcbrown.com>
|
||
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
||
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
|
||
;;; Copyright © 2020 Alexey Abramov <levenson@mmer.org>
|
||
;;; Copyright © 2020 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
|
||
;;; Copyright © 2020 Alexandru-Sergiu Marton <brown121407@posteo.ro>
|
||
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
|
||
;;; Copyright © 2020 B. Wilson <elaexuotee@wilsonb.com>
|
||
;;; Copyright © 2020 divoplade <d@divoplade.fr>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (gnu packages mail)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages admin)
|
||
#:use-module (gnu packages aspell)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages backup)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages bash)
|
||
#:use-module (gnu packages bison)
|
||
#:use-module (gnu packages boost)
|
||
#:use-module (gnu packages calendar)
|
||
#:use-module (gnu packages check)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages crypto)
|
||
#:use-module (gnu packages curl)
|
||
#:use-module (gnu packages cyrus-sasl)
|
||
#:use-module (gnu packages databases)
|
||
#:use-module (gnu packages dbm)
|
||
#:use-module (gnu packages dejagnu)
|
||
#:use-module (gnu packages django)
|
||
#:use-module (gnu packages dns)
|
||
#:use-module (gnu packages docbook)
|
||
#:use-module (gnu packages documentation)
|
||
#:use-module (gnu packages emacs)
|
||
#:use-module (gnu packages enchant)
|
||
#:use-module (gnu packages file)
|
||
#:use-module (gnu packages gdb)
|
||
#:use-module (gnu packages gettext)
|
||
#:use-module (gnu packages ghostscript)
|
||
#:use-module (gnu packages glib)
|
||
#:use-module (gnu packages gnome)
|
||
#:use-module (gnu packages gnupg)
|
||
#:use-module (gnu packages groff)
|
||
#:use-module (gnu packages gsasl)
|
||
#:use-module (gnu packages gtk)
|
||
#:use-module (gnu packages guile)
|
||
#:use-module (gnu packages guile-xyz)
|
||
#:use-module (gnu packages flex)
|
||
#:use-module (gnu packages haskell-xyz)
|
||
#:use-module (gnu packages icu4c)
|
||
#:use-module (gnu packages kerberos)
|
||
#:use-module (gnu packages language)
|
||
#:use-module (gnu packages libcanberra)
|
||
#:use-module (gnu packages libevent)
|
||
#:use-module (gnu packages libidn)
|
||
#:use-module (gnu packages libunistring)
|
||
#:use-module (gnu packages libunwind)
|
||
#:use-module (gnu packages linux)
|
||
#:use-module (gnu packages lsof)
|
||
#:use-module (gnu packages lua)
|
||
#:use-module (gnu packages m4)
|
||
#:use-module (gnu packages man)
|
||
#:use-module (gnu packages ncurses)
|
||
#:use-module (gnu packages networking)
|
||
#:use-module (gnu packages ninja)
|
||
#:use-module (gnu packages openldap)
|
||
#:use-module (gnu packages onc-rpc)
|
||
#:use-module (gnu packages pcre)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages perl-check)
|
||
#:use-module (gnu packages perl-web)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages protobuf)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages python-check)
|
||
#:use-module (gnu packages python-crypto)
|
||
#:use-module (gnu packages python-web)
|
||
#:use-module (gnu packages python-xyz)
|
||
#:use-module (gnu packages ragel)
|
||
#:use-module (gnu packages rdf)
|
||
#:use-module (gnu packages readline)
|
||
#:use-module (gnu packages ruby)
|
||
#:use-module (gnu packages search)
|
||
#:use-module (gnu packages serialization)
|
||
#:use-module (gnu packages samba)
|
||
#:use-module (gnu packages screen)
|
||
#:use-module (gnu packages sphinx)
|
||
#:use-module (gnu packages sqlite)
|
||
#:use-module (gnu packages tcl)
|
||
#:use-module (gnu packages texinfo)
|
||
#:use-module (gnu packages time)
|
||
#:use-module (gnu packages tls)
|
||
#:use-module (gnu packages version-control)
|
||
#:use-module (gnu packages w3m)
|
||
#:use-module (gnu packages web)
|
||
#:use-module (gnu packages webkit)
|
||
#:use-module (gnu packages xdisorg)
|
||
#:use-module (gnu packages xorg)
|
||
#:use-module (gnu packages xml)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module (guix git-download)
|
||
#:use-module (guix svn-download)
|
||
#:use-module (guix utils)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (guix build-system glib-or-gtk)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system guile)
|
||
#:use-module (guix build-system perl)
|
||
#:use-module (guix build-system python)
|
||
#:use-module (guix build-system trivial)
|
||
#:use-module (srfi srfi-1)
|
||
#:use-module (ice-9 match))
|
||
|
||
(define-public anubis
|
||
(package
|
||
(name "anubis")
|
||
;; This 4.2.90 alpha release adds support for Guile 3 and has fixes for
|
||
;; other issues.
|
||
(version "4.2.90")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://alpha.gnu.org/gnu/anubis/anubis-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0dvm6acl32dv8bixx9z50gzwfp6kj4kxnn1j3dcwjlp7sasjp41s"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("automake" ,automake)
|
||
("autoconf" ,autoconf)
|
||
("gettext" ,gettext-minimal)
|
||
("m4" ,m4))) ;for the test suite
|
||
(inputs
|
||
`(("gdbm" ,gdbm)
|
||
("gnutls" ,gnutls)
|
||
("gpgme" ,gpgme)
|
||
("gsasl" ,gsasl)
|
||
("guile" ,guile-3.0)
|
||
("libgcrypt" ,libgcrypt) ;gnutls support depends on libgcrypt
|
||
("libgpg-error" ,libgpg-error)))
|
||
(outputs '("out" "debug"))
|
||
(synopsis "SMTP message submission daemon")
|
||
(description "Anubis is a daemon that sits between the Mail User
|
||
Agent (MUA) and the Mail Transfer Agent (MTA). When a mail is sent by a user
|
||
in the MUA, it is first passed to Anubis, which performs additional processing
|
||
to the message before passing it on for delivery by the MTA. Anubis may, for
|
||
example, modify the message headers or body, or encrypt or sign the message.")
|
||
(home-page "https://www.gnu.org/software/anubis/manual/")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public mailutils
|
||
(package
|
||
(name "mailutils")
|
||
(version "3.10")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/mailutils/mailutils-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"17smrxjdgbbzbzakik30vj46q4iib85ksqhb82jr4vjp57akszh9"))
|
||
(patches
|
||
;; Fixes https://issues.guix.gnu.org/43088.
|
||
(search-patches "mailutils-fix-uninitialized-variable.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'prepare-test-suite
|
||
(lambda _
|
||
;; Use the right file name for `cat'.
|
||
(substitute* "testsuite/lib/mailutils.exp"
|
||
(("/bin/cat")
|
||
(which "cat")))
|
||
|
||
;; Tests try to invoke 'mda' such that it looks up the
|
||
;; 'root' user, which does not exist in the build
|
||
;; environment.
|
||
(substitute* '("mda/mda/tests/testsuite"
|
||
"mda/lmtpd/tests/testsuite")
|
||
(("root <") "nobody <")
|
||
(("spool/root") "spool/nobody")
|
||
(("root@localhost") "nobody@localhost"))
|
||
|
||
;; The 'pipeact.at' tests generate a shell script; make
|
||
;; sure it uses the right shell.
|
||
(substitute* '("sieve/tests/testsuite"
|
||
"mh/tests/testsuite")
|
||
(("#! /bin/sh")
|
||
(string-append "#!" (which "sh"))))
|
||
|
||
(substitute* "mh/tests/testsuite"
|
||
(("moreproc: /bin/cat")
|
||
(string-append "moreproc: " (which "cat"))))
|
||
|
||
;; XXX: The comsatd tests rely on being able to open
|
||
;; /dev/tty, but that gives ENODEV in the build
|
||
;; environment. Thus, ignore test failures here.
|
||
(substitute* "comsat/tests/Makefile.in"
|
||
(("\\$\\(SHELL\\) \\$\\(TESTSUITE\\)" all)
|
||
(string-append "-" all)))
|
||
|
||
;; XXX: The ‘moderator: program discard’ test does not specify
|
||
;; an explicit From: but does expect an exact match. But why are
|
||
;; all other tests unaffected?
|
||
(substitute* "sieve/tests/testsuite"
|
||
(("gray@")
|
||
"nixbld@"))
|
||
|
||
;; 'frm' tests expect write access to $HOME.
|
||
(setenv "HOME" (getcwd))
|
||
|
||
;; Avoid the message "I'm going to create the standard MH path
|
||
;; for you", which would lead to one test failure (when diffing
|
||
;; stdout of 'fmtcheck'.)
|
||
(call-with-output-file ".mh_profile"
|
||
(lambda (port)
|
||
(format port "Path: ~a/Mail-for-tests~%"
|
||
(getcwd))))
|
||
|
||
#t)))
|
||
;; TODO: Add `--with-sql'.
|
||
#:configure-flags
|
||
(list "--sysconfdir=/etc"
|
||
|
||
;; Add "/X.Y" to the installation directory.
|
||
(string-append "--with-guile-site-dir="
|
||
(assoc-ref %outputs "out")
|
||
"/share/guile/site/"
|
||
,(match (assoc "guile"
|
||
(package-inputs this-package))
|
||
(("guile" guile)
|
||
(version-major+minor
|
||
(package-version guile))))))
|
||
|
||
#:parallel-tests? #f))
|
||
(native-inputs
|
||
`(("perl" ,perl) ;for 'gylwrap'
|
||
("texinfo" ,texinfo)
|
||
("dejagnu" ,dejagnu)))
|
||
(inputs
|
||
`(("m4" ,m4)
|
||
("guile" ,guile-3.0)
|
||
("gsasl" ,gsasl)
|
||
("gnutls" ,gnutls)
|
||
("ncurses" ,ncurses)
|
||
("readline" ,readline)
|
||
("linux-pam" ,linux-pam)
|
||
("libltdl" ,libltdl)
|
||
("gdbm" ,gdbm)
|
||
|
||
;; Required for SEARCH CHARSET.
|
||
("libiconv" ,libiconv)
|
||
("libunistring" ,libunistring)))
|
||
(home-page "https://mailutils.org")
|
||
(synopsis "Utilities and library for reading and serving mail")
|
||
(description
|
||
"GNU Mailutils is a collection of programs for managing, viewing and
|
||
processing electronic mail. It contains both utilities and server daemons
|
||
and all operate in a protocol-agnostic way. The underlying libraries are
|
||
also available, simplifying the addition of mail capabilities to new
|
||
software.")
|
||
(license
|
||
;; Libraries are under LGPLv3+, and programs under GPLv3+.
|
||
(list license:gpl3+ license:lgpl3+))))
|
||
|
||
(define-public guile2.2-mailutils
|
||
(package
|
||
(inherit mailutils)
|
||
(name "guile2.2-mailutils")
|
||
(inputs
|
||
`(("guile" ,guile-2.2)
|
||
,@(alist-delete "guile" (package-inputs mailutils))))))
|
||
|
||
(define-public guile3.0-mailutils
|
||
(deprecated-package "guile3.0-mailutils" mailutils))
|
||
|
||
(define-public nullmailer
|
||
(package
|
||
(name "nullmailer")
|
||
(version "2.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (list
|
||
(string-append "https://untroubled.org/nullmailer/"
|
||
"nullmailer-" version ".tar.gz")
|
||
;; Previous releases are moved to this subdirectory.
|
||
(string-append "https://untroubled.org/nullmailer/archive/"
|
||
"nullmailer-" version ".tar.gz")))
|
||
(sha256
|
||
(base32 "0md8cf90fl2yf3zh9njjy42a673v4j4ygyq95xg7fzkygdigm1lq"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--enable-tls"
|
||
"--localstatedir=/var"
|
||
"--sysconfdir=/etc")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'patch-test-FHS-file-names
|
||
(lambda _
|
||
(with-directory-excursion "test"
|
||
(substitute* (list "functions.in"
|
||
"tests/send")
|
||
;; Fix some shebangs later generated on the fly.
|
||
(("/bin/sh") (which "bash"))))
|
||
#t))
|
||
(add-before 'check 'pass-PATH-to-tests
|
||
;; ‘runtest’ launches each test through ‘env -’, clearing $PATH. The
|
||
;; tests then source ‘functions’, which first demands a working $PATH
|
||
;; only to clobber it later. Pass our $PATH to the test environment
|
||
;; and don't touch it after that.
|
||
(lambda _
|
||
(with-directory-excursion "test"
|
||
(substitute* "runtests"
|
||
(("env - bash")
|
||
(string-append "env - PATH=\"" (getenv "PATH") "\" bash")))
|
||
(substitute* "functions.in"
|
||
(("export PATH=.*") "")))
|
||
#t))
|
||
(add-before 'check 'delete-failing-tests
|
||
(lambda _
|
||
(with-directory-excursion "test/tests"
|
||
(for-each delete-file
|
||
(list
|
||
;; XXX ‘nullmailer-inject: nullmailer-queue failed: 15’
|
||
"inject/queue"
|
||
;; XXX These require the not-yet-packaged tcpserver.
|
||
"protocols" "smtp-auth")))
|
||
#t))
|
||
(add-before 'install 'skip-install-data-local
|
||
;; Don't attempt to install run-time files outside of the store.
|
||
(lambda _
|
||
(substitute* "Makefile"
|
||
((" install-data-local") ""))
|
||
#t)))))
|
||
(native-inputs
|
||
;; For tests.
|
||
`(("daemontools" ,daemontools))) ; for svc
|
||
(inputs
|
||
`(("gnutls" ,gnutls)))
|
||
(home-page "https://untroubled.org/nullmailer/")
|
||
(synopsis "Simple relay-only mail transfer agent")
|
||
(description
|
||
"Nullmailer is a simple replacement @acronym{MTA, Mail Transfer Agent} for
|
||
hosts that receive no local mail and only relay mail to a fixed set of smart
|
||
relays. It's useful for systems such as Web servers that must be able to send
|
||
email notifications, without having to run a full-blown MTA such as sendmail
|
||
or qmail.
|
||
|
||
Nullmailer is designed to be simple to configure, easy to extend, and secure.
|
||
It requires little ongoing administration. The included @command{sendmail}
|
||
emulator front-end should allow most (if not all) sendmail-compatible programs
|
||
to run without any changes.")
|
||
(license (list license:lgpl2.1+ ; lib/cli++/ (but some files lack headers)
|
||
license:gpl2+)))) ; everything else
|
||
|
||
(define-public fetchmail
|
||
(package
|
||
(name "fetchmail")
|
||
(version "6.4.16")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/fetchmail/branch_"
|
||
(version-major+minor version) "/"
|
||
"fetchmail-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "1fagi10fv8pdil6gss6a3ca3jbp3wbiyz7cp8ivsxyrsq059ljq4"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("openssl" ,openssl)))
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list (string-append "--with-ssl="
|
||
(assoc-ref %build-inputs "openssl")))))
|
||
(home-page "https://www.fetchmail.info/")
|
||
(synopsis "Remote-mail retrieval and forwarding utility")
|
||
(description
|
||
"Fetchmail is a full-featured, robust, well-documented remote-mail
|
||
retrieval and forwarding utility intended to be used over on-demand
|
||
TCP/IP links (such as SLIP or PPP connections). It supports every
|
||
remote-mail protocol now in use on the Internet: POP2, POP3, RPOP, APOP,
|
||
KPOP, all flavors of IMAP, ETRN, and ODMR. It can even support IPv6
|
||
and IPSEC.
|
||
|
||
Fetchmail retrieves mail from remote mail servers and forwards it via SMTP,
|
||
so it can then be read by normal mail user agents such as mutt, elm
|
||
or BSD Mail. It allows all your system MTA's filtering, forwarding, and
|
||
aliasing facilities to work just as they would on normal mail.")
|
||
(license license:gpl2+))) ; most files are actually public domain or x11
|
||
|
||
(define-public mutt
|
||
(package
|
||
(name "mutt")
|
||
(version "2.0.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (list
|
||
(string-append "https://bitbucket.org/mutt/mutt/downloads/"
|
||
"mutt-" version ".tar.gz")
|
||
(string-append "http://ftp.mutt.org/pub/mutt/mutt-"
|
||
version ".tar.gz")))
|
||
(sha256
|
||
(base32
|
||
"0k80s27sf7djb7zxj81ihksr8jkr71mfaa8976fzh41i1pn5l7g2"))
|
||
(patches (search-patches "mutt-store-references.patch"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("cyrus-sasl" ,cyrus-sasl)
|
||
("gdbm" ,gdbm)
|
||
("gpgme" ,gpgme)
|
||
("libidn2" ,libidn2)
|
||
("ncurses" ,ncurses)
|
||
("openssl" ,openssl)
|
||
("perl" ,perl)
|
||
("sqlite" ,sqlite)))
|
||
(arguments
|
||
`(#:configure-flags '("--enable-smtp"
|
||
"--enable-imap"
|
||
"--enable-pop"
|
||
"--enable-gpgme"
|
||
"--enable-hcache" ; for header caching
|
||
"--enable-sidebar"
|
||
"--enable-autocrypt"
|
||
"--with-ssl"
|
||
"--with-sasl"
|
||
"--with-sqlite3" ; required for Autocrypt
|
||
"--with-idn2" ; recommended for Autocrypt
|
||
;; So that mutt does not check whether the path
|
||
;; exists, which it does not in the chroot.
|
||
"--with-mailpath=/var/mail")))
|
||
(home-page "http://www.mutt.org/")
|
||
(synopsis "Mail client")
|
||
(description
|
||
"Mutt is a small but very powerful text-based mail client for Unix
|
||
operating systems.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public neomutt
|
||
(package
|
||
(name "neomutt")
|
||
(version "20201127")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/neomutt/neomutt")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1yhpz591jhcjpwllgppwf7vl7z2rnaqfphsvqd1sihd9k4lwch06"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("cyrus-sasl" ,cyrus-sasl)
|
||
("gdbm" ,gdbm)
|
||
("gpgme" ,gpgme)
|
||
("ncurses" ,ncurses)
|
||
("gnutls" ,gnutls)
|
||
("openssl" ,openssl) ; for S/MIME
|
||
("perl" ,perl)
|
||
("kyotocabinet" ,kyotocabinet)
|
||
("libxslt" ,libxslt)
|
||
("libidn2" ,libidn2)
|
||
("libxml2" ,libxml2)
|
||
("lmdb" ,lmdb)
|
||
("notmuch" ,notmuch)))
|
||
(native-inputs
|
||
`(("automake" ,automake)
|
||
("gettext-minimal" ,gettext-minimal)
|
||
("pkg-config" ,pkg-config)
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("docbook-xml" ,docbook-xml-4.2)
|
||
("w3m" ,w3m)
|
||
("tcl" ,tcl)
|
||
|
||
;; Test file data for the unit tests included in the neomutt source.
|
||
("neomutt-test-files"
|
||
,(let ((commit "8629adab700a75c54e8e28bf05ad092503a98f75"))
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/neomutt/neomutt-test-files")
|
||
(commit commit)))
|
||
(file-name (git-file-name "neomutt-test-files" commit))
|
||
(sha256
|
||
(base32 "1ci04nqkab9mh60zzm66sd6mhsr6lya8wp92njpbvafc86vvwdlr")))))))
|
||
(arguments
|
||
`(#:test-target "test"
|
||
#:configure-flags
|
||
(list "--gpgme"
|
||
|
||
;; Database, implies header caching.
|
||
"--disable-tokyocabinet"
|
||
"--disable-qdbm"
|
||
"--disable-bdb"
|
||
"--lmdb"
|
||
"--kyotocabinet"
|
||
|
||
"--gdbm"
|
||
|
||
"--gnutls"
|
||
"--disable-ssl"
|
||
"--sasl"
|
||
(string-append "--with-sasl="
|
||
(assoc-ref %build-inputs "cyrus-sasl"))
|
||
|
||
|
||
"--smime"
|
||
"--notmuch"
|
||
"--disable-idn"
|
||
"--idn2"
|
||
|
||
;; If we do not set this, neomutt wants to check
|
||
;; whether the path exists, which it does not
|
||
;; in the chroot.
|
||
"--with-mailpath=/var/mail"
|
||
|
||
"--with-ui=ncurses"
|
||
(string-append "--with-ncurses="
|
||
(assoc-ref %build-inputs "ncurses"))
|
||
(string-append "--prefix="
|
||
(assoc-ref %outputs "out"))
|
||
"--debug")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
;; TODO: autosetup is meant to be included in the source,
|
||
;; but we should package autosetup and use our own version of it.
|
||
(replace 'configure
|
||
(lambda* (#:key outputs inputs configure-flags #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(flags `(,@configure-flags))
|
||
(bash (which "bash")))
|
||
(setenv "SHELL" bash)
|
||
(setenv "CONFIG_SHELL" bash)
|
||
(apply invoke bash
|
||
(string-append (getcwd) "/configure")
|
||
flags))))
|
||
(add-before 'check 'prepare-test-files
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(copy-recursively (assoc-ref inputs "neomutt-test-files") "tests")
|
||
(with-directory-excursion "tests"
|
||
(setenv "NEOMUTT_TEST_DIR" (getcwd)) ; must be absolute
|
||
(invoke "bash" "setup.sh")
|
||
#t))))))
|
||
(home-page "https://neomutt.org/")
|
||
(synopsis "Command-line mail reader based on Mutt")
|
||
(description
|
||
"NeoMutt is a command-line mail reader which is based on mutt.
|
||
It adds a large amount of new and improved features to mutt.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gmime
|
||
(package
|
||
(name "gmime")
|
||
(version "3.2.7")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gmime/"
|
||
(version-major+minor version)
|
||
"/gmime-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0i3xfc84qn1z99i70q68kbnp9rmgqrnprqb418ba52s6g9j9dsia"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("gnupg" ,gnupg) ; for tests only
|
||
("gobject-introspection" ,gobject-introspection)))
|
||
(inputs `(("glib" ,glib)
|
||
("gpgme" ,gpgme)
|
||
("zlib" ,zlib)))
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--enable-introspection=yes")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after
|
||
'unpack 'patch-paths-in-tests
|
||
(lambda _
|
||
;; The test programs run several programs using 'system' with
|
||
;; hard-coded paths. Here we patch them all.
|
||
;; We use ISO-8859-1 here because test-iconv.c contains
|
||
;; raw byte sequences in several different encodings.
|
||
(with-fluids ((%default-port-encoding #f))
|
||
(substitute* (find-files "tests" "\\.c$")
|
||
(("(system *\\(\")(/[^ ]*)" all pre prog-path)
|
||
(let* ((base (basename prog-path))
|
||
(prog (which base)))
|
||
(string-append pre
|
||
(or prog (error "not found: " base)))))))
|
||
#t)))))
|
||
(home-page "http://spruce.sourceforge.net/gmime/")
|
||
(synopsis "MIME message parser and creator library")
|
||
(description
|
||
"GMime provides a core library and set of utilities which may be used for
|
||
the creation and parsing of messages using the Multipurpose Internet Mail
|
||
Extension (MIME).")
|
||
(license (list license:lgpl2.1+ license:gpl2+ license:gpl3+))))
|
||
|
||
;; Some packages are not ready for GMime 3 yet.
|
||
(define-public gmime-2.6
|
||
(package
|
||
(inherit gmime)
|
||
(version "2.6.23")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnome/sources/gmime/"
|
||
(version-major+minor version)
|
||
"/gmime-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0slzlzcr3h8jikpz5a5amqd0csqh2m40gdk910ws2hnaf5m6hjbi"))))))
|
||
|
||
(define-public altermime
|
||
(package
|
||
(name "altermime")
|
||
(version "0.3.11")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://pldaniels.com/altermime/altermime-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"15zxg6spcmd35r6xbidq2fgcg2nzyv1sbbqds08lzll70mqx4pj7"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:make-flags (list "CC=gcc"
|
||
(string-append "PREFIX=" (assoc-ref %outputs "out")))
|
||
#:tests? #f ; there are none
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(add-after 'unpack 'fix-bugs
|
||
(lambda _
|
||
(substitute* "MIME_headers.c"
|
||
(("hinfo->filename, sizeof\\(hinfo->name\\)")
|
||
"hinfo->filename, sizeof(hinfo->filename)")
|
||
(("memset\\(hinfo->defects, 0, _MIMEH_DEFECT_ARRAY_SIZE\\);")
|
||
"memset(hinfo->defects, 0, sizeof(hinfo->defects));"))
|
||
(substitute* "pldstr.c"
|
||
(("if \\(\\(st->start\\)&&\\(st->start != '\\\\0'\\)\\)")
|
||
"if ((st->start)&&(*st->start != '\\0'))"))
|
||
(substitute* "qpe.c"
|
||
(("if \\(lineend != '\\\\0'\\)")
|
||
"if (*lineend != '\\0')"))
|
||
#t))
|
||
(add-after 'unpack 'install-to-prefix
|
||
(lambda _
|
||
(substitute* "Makefile"
|
||
(("/usr/local") "${PREFIX}")
|
||
(("cp altermime.*") "install -D -t ${PREFIX}/bin altermime\n"))
|
||
#t))
|
||
(add-after 'unpack 'disable-Werror
|
||
(lambda _
|
||
(substitute* "Makefile"
|
||
(("-Werror") ""))
|
||
#t)))))
|
||
(home-page "https://pldaniels.com/altermime/")
|
||
(synopsis "Modify MIME-encoded messages")
|
||
(description
|
||
"alterMIME is a small program which is used to alter your mime-encoded
|
||
mailpack. What can alterMIME do?
|
||
|
||
@enumerate
|
||
@item Insert disclaimers,
|
||
@item insert arbitrary X-headers,
|
||
@item modify existing headers,
|
||
@item remove attachments based on filename or content-type,
|
||
@item replace attachments based on filename.
|
||
@end enumerate
|
||
.")
|
||
;; MIME_headers.c is distributed under BSD-3; the rest of the code is
|
||
;; published under the alterMIME license.
|
||
(license (list (license:non-copyleft "file://LICENSE")
|
||
license:bsd-3))))
|
||
|
||
(define-public astroid
|
||
(package
|
||
(name "astroid")
|
||
(version "0.15")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/astroidmail/astroid")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "11cxbva9ni98gii59xmbxh4c6idcg3mg0pgdsp1c3j0yg7ix0lj3"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
;; https://github.com/astroidmail/astroid/pull/685
|
||
(substitute* "tests/test_composed_message.cc"
|
||
(("\\\\n\\.\\.\\.") "\\n...\\n"))
|
||
#t))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:modules ((guix build cmake-build-system)
|
||
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
|
||
(guix build utils)
|
||
(ice-9 match))
|
||
#:imported-modules ((guix build glib-or-gtk-build-system)
|
||
,@%cmake-build-system-modules)
|
||
#:configure-flags (list "-GNinja")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'skip-markdown-test
|
||
;; This test relies on the plugins and the test suite
|
||
;; cannot find the Astroid module.
|
||
;; gi.require_version ('Astroid', '0.2')
|
||
;; ValueError: Namespace Astroid not available
|
||
(lambda _
|
||
(substitute* "tests/CMakeLists.txt"
|
||
((".*markdown.*") ""))
|
||
#t))
|
||
(replace 'build
|
||
(lambda _
|
||
(invoke "ninja" "-j" (number->string (parallel-job-count)))))
|
||
(add-before 'check 'start-xserver
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((xorg-server (assoc-ref inputs "xorg-server")))
|
||
(setenv "HOME" (getcwd))
|
||
(system (format #f "~a/bin/Xvfb :1 &" xorg-server))
|
||
(setenv "DISPLAY" ":1")
|
||
#t)))
|
||
(replace 'check
|
||
(lambda* (#:key tests? #:allow-other-keys)
|
||
(when tests?
|
||
(setenv "CTEST_OUTPUT_ON_FAILURE" "1")
|
||
(invoke "ctest" "."))
|
||
#t))
|
||
(replace 'install
|
||
(lambda _
|
||
(invoke "ninja" "install")))
|
||
(add-after 'install 'wrap-with-GI_TYPELIB_PATH
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(paths (map (match-lambda
|
||
((outputs . directory)
|
||
(let ((girepodir (string-append
|
||
directory
|
||
"/lib/girepository-1.0")))
|
||
(if (file-exists? girepodir)
|
||
girepodir
|
||
#f))))
|
||
inputs)))
|
||
(wrap-program (string-append out "/bin/astroid")
|
||
`("GI_TYPELIB_PATH" ":" prefix ,(filter identity paths))))
|
||
#t))
|
||
(add-after 'install 'glib-or-gtk-compile-schemas
|
||
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
|
||
(add-after 'install 'glib-or-gtk-wrap
|
||
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
|
||
(native-inputs
|
||
`(("glib-networking" ,glib-networking)
|
||
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
|
||
("gnupg" ,gnupg)
|
||
("ninja" ,ninja)
|
||
("pkg-config" ,pkg-config)
|
||
("ronn" ,ronn)
|
||
("w3m" ,w3m)
|
||
("xorg-server" ,xorg-server)))
|
||
(inputs
|
||
`(("boost" ,boost)
|
||
("gmime" ,gmime)
|
||
("gobject-introspection" ,gobject-introspection) ; it is referenced
|
||
("gtkmm" ,gtkmm)
|
||
("libpeas" ,libpeas)
|
||
("libsass" ,libsass)
|
||
("notmuch" ,notmuch)
|
||
("protobuf" ,protobuf)
|
||
("python" ,python-wrapper)
|
||
("python-pygobject" ,python-pygobject)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(propagated-inputs
|
||
`(("adwaita-icon-theme" ,adwaita-icon-theme))) ; Required for the thread view
|
||
(home-page "https://astroidmail.github.io/")
|
||
(synopsis "GTK frontend to the notmuch mail system")
|
||
(description
|
||
"Astroid is a lightweight and fast Mail User Agent that provides a
|
||
graphical interface to searching, display and composing email, organized in
|
||
thread and tags. Astroid uses the notmuch backend for searches through tons of
|
||
email. Astroid searches, displays and compose emails — and relies on other
|
||
programs for fetching, syncing and sending email.")
|
||
(license (list license:gpl3+ ; 'this program'
|
||
license:lgpl2.1+)))) ; code from geary, gmime
|
||
|
||
(define-public ripmime
|
||
;; Upstream does not tag or otherwise provide any releases (only a version
|
||
;; number in the source)
|
||
(let ((commit "a556ffe08d620602475c976732e8e1a82f3169e9")
|
||
(revision "1"))
|
||
(package
|
||
(name "ripmime")
|
||
(version (git-version "1.4.0.10" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/inflex/ripMIME")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1z8ar8flvkd9q3ax4x28sj5pyq8ykk5pq249y967lj2406lxparh"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
;; Source has no configure script
|
||
(delete 'configure)
|
||
;; Buildcodes make the build non-reproducible; remove them
|
||
(add-after 'unpack 'strip-buildcodes
|
||
(lambda _
|
||
(substitute* "generate-buildcodes.sh"
|
||
(("`date \\+%s`") "0")
|
||
(("`date`") "0")
|
||
(("`uname -a`") "Guix"))
|
||
#t))
|
||
;; https://github.com/inflex/ripMIME/pull/16 makes 'mkdir-p-bin-man unnecessary
|
||
(add-before 'install 'mkdir-p-bin-man
|
||
(lambda _
|
||
(mkdir-p (string-append (assoc-ref %outputs "out") "/bin"))
|
||
(mkdir-p (string-append (assoc-ref %outputs "out") "/man"))
|
||
#t)))
|
||
;; Makefile has no tests
|
||
#:tests? #f
|
||
#:make-flags (list (string-append "LOCATION=" (assoc-ref %outputs "out"))
|
||
"CC=gcc")))
|
||
(synopsis "Extract attachments from MIME-encoded email")
|
||
(description
|
||
"ripMIME is a small program to extract the attached files out of a
|
||
MIME-encoded email package.")
|
||
(home-page "https://github.com/inflex/ripMIME")
|
||
(license license:bsd-3))))
|
||
|
||
(define-public mailcap
|
||
(let* ((version "2.1.49")
|
||
(tag ;; mailcap tags their releases like this: rMajor-minor-patch
|
||
(string-append "r" (string-join (string-split version #\.) "-"))))
|
||
(package
|
||
(name "mailcap")
|
||
(version version)
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://pagure.io/mailcap.git")
|
||
(commit tag)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0ck1fw6gqn51phcfakhfpfq1yziv3gnmgjvswzhj9x0p162n6alj"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(add-before 'install 'set-dest-dir
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(setenv "DESTDIR" out)
|
||
(substitute* "Makefile"
|
||
(("/usr") "")) ; This allows the man page to install.
|
||
#t))))))
|
||
(native-inputs
|
||
`(("python" ,python))) ; for tests
|
||
(synopsis "MIME type associations for file types")
|
||
(description
|
||
"This package provides MIME type associations for file types.")
|
||
(home-page "https://pagure.io/mailcap")
|
||
(license (list license:expat ; mailcap.5
|
||
license:public-domain))))) ; mailcap and mime.types
|
||
|
||
(define-public bogofilter
|
||
(package
|
||
(name "bogofilter")
|
||
(version "1.2.5")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/bogofilter/bogofilter-stable/"
|
||
"bogofilter-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "1sl9xrnnlk2sn8gmibhn8li09vnansjbxb9l1182qmgz7cvs2j1j"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'pre-check
|
||
(lambda _
|
||
(substitute* "src/tests/t.frame"
|
||
(("GREP=/bin/grep")
|
||
(string-append "GREP=" (which "grep") "\n")))
|
||
#t)))))
|
||
(native-inputs `(("flex" ,flex)))
|
||
(inputs `(("bdb" ,bdb)))
|
||
(home-page "https://bogofilter.sourceforge.io/")
|
||
(synopsis "Mail classifier based on a Bayesian filter")
|
||
(description
|
||
"Bogofilter is a mail filter that classifies mail as spam or ham
|
||
(non-spam) by a statistical analysis of the message's header and
|
||
content (body). The program is able to learn from the user's classifications
|
||
and corrections. It is based on a Bayesian filter.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public offlineimap
|
||
(package
|
||
(name "offlineimap")
|
||
(version "7.3.3")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/OfflineIMAP/offlineimap")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1gg8ry67i20qapj4z20am9bm67m2q28kixcj7ja75m897vhzarnq"))))
|
||
(build-system python-build-system)
|
||
(native-inputs
|
||
`(("asciidoc" ,asciidoc)))
|
||
(inputs
|
||
`(("python2-pysqlite" ,python2-pysqlite)
|
||
("python2-rfc6555" ,python2-rfc6555)
|
||
("python2-six" ,python2-six)))
|
||
(arguments
|
||
;; The setup.py script expects python-2.
|
||
`(#:python ,python-2
|
||
;; Tests require a modifiable IMAP account.
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'build 'build-documentation
|
||
(lambda _
|
||
(substitute* "docs/Makefile"
|
||
;; Prevent xmllint and xsltproc from downloading a DTD file.
|
||
(("a2x -v") "a2x --no-xmllint --xsltproc-opts=--nonet -v"))
|
||
(invoke "make" "-C" "docs" "man")))
|
||
(add-after 'install 'install-documentation
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(man (string-append out "/share/man")))
|
||
(install-file "docs/offlineimap.1" (string-append man "/man1"))
|
||
(install-file "docs/offlineimapui.7" (string-append man "/man7"))
|
||
#t))))))
|
||
(home-page "https://www.offlineimap.org")
|
||
(synopsis "Sync emails between two repositories")
|
||
(description
|
||
"OfflineImap synchronizes emails between two repositories, so that you
|
||
can read the same mailbox from multiple computers. It supports IMAP as REMOTE
|
||
repository and Maildir/IMAP as LOCAL repository.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public emacs-mew
|
||
(package
|
||
(name "emacs-mew")
|
||
(version "6.8")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://mew.org/Release/mew-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0ixzyq33l6j34410kqav3lwn2wx171zvqd3irvns2jvhrbww8i6g"))))
|
||
(native-inputs
|
||
`(("emacs" ,emacs)))
|
||
(propagated-inputs
|
||
`(("ruby-sqlite3" ,ruby-sqlite3) ; optional for the database of messages
|
||
("ruby" ,ruby))) ; to set GEM_PATH so ruby-sqlite3 is found at runtime
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
(let ((elisp-dir "/share/emacs/site-lisp")
|
||
(icon-dir "/share/mew"))
|
||
`(#:modules ((guix build gnu-build-system)
|
||
(guix build utils)
|
||
(guix build emacs-utils))
|
||
#:imported-modules (,@%gnu-build-system-modules
|
||
(guix build emacs-utils))
|
||
#:configure-flags
|
||
(list (string-append "--with-elispdir=" %output ,elisp-dir)
|
||
(string-append "--with-etcdir=" %output ,icon-dir))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'configure 'patch-mew-icon-directory
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(emacs-substitute-sexps "mew-key.el"
|
||
("(def.* mew-icon-directory"
|
||
`(progn
|
||
(add-to-list 'image-load-path 'mew-icon-directory)
|
||
,(string-append (assoc-ref outputs "out") ,icon-dir))))
|
||
#t))
|
||
(add-after 'install 'generate-autoloads
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(emacs-generate-autoloads
|
||
"mew" (string-append (assoc-ref outputs "out") ,elisp-dir))
|
||
#t)))
|
||
#:tests? #f)))
|
||
(home-page "https://mew.org")
|
||
(synopsis "Emacs e-mail client")
|
||
(description "Mew (Messaging in the Emacs World) is a user interface
|
||
for text messages, multimedia messages (MIME), news articles and
|
||
security functionality including PGP, S/MIME, SSH, and SSL.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public mu
|
||
(package
|
||
(name "mu")
|
||
(version "1.4.15")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/djcb/mu/releases/"
|
||
"download/" version "/"
|
||
"mu-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0ailz0k5fdgq6gdl5m7jxy315b7qn5ckj6xwd49hsiq9vqblwlpp"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("glib" ,glib "bin") ; for gtester
|
||
("emacs" ,emacs-minimal)
|
||
("tzdata" ,tzdata-for-tests))) ; for mu/test/test-mu-query.c
|
||
(inputs
|
||
`(("xapian" ,xapian)
|
||
("guile" ,guile-2.2)
|
||
("glib" ,glib)
|
||
("gmime" ,gmime)))
|
||
(arguments
|
||
`(#:modules ((guix build gnu-build-system)
|
||
(guix build utils)
|
||
(guix build emacs-utils))
|
||
#:imported-modules (,@%gnu-build-system-modules
|
||
(guix build emacs-utils))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-configure
|
||
;; By default, elisp code goes to "share/emacs/site-lisp/mu4e",
|
||
;; so our Emacs package can't find it. Setting "--with-lispdir"
|
||
;; configure flag doesn't help because "mu4e" will be added to
|
||
;; the lispdir anyway, so we have to modify "configure.ac".
|
||
(lambda _
|
||
(substitute* "configure"
|
||
(("^ +lispdir=\"\\$\\{lispdir\\}/mu4e/\".*") "")
|
||
;; Use latest Guile
|
||
(("guile-2.0") "guile-2.2"))
|
||
(substitute* '("guile/Makefile.in"
|
||
"guile/mu/Makefile.in")
|
||
(("share/guile/site/2.0/") "share/guile/site/2.2/"))
|
||
#t))
|
||
(add-after 'unpack 'patch-bin-sh-in-tests
|
||
(lambda _
|
||
(substitute* '("guile/tests/test-mu-guile.c"
|
||
"mu/test-mu-cmd.c"
|
||
"mu/test-mu-cmd-cfind.c"
|
||
"mu/test-mu-query.c"
|
||
"mu/test-mu-threads.c")
|
||
(("/bin/sh") (which "sh")))
|
||
#t))
|
||
(add-before 'install 'fix-ffi
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(substitute* "guile/mu.scm"
|
||
(("\"libguile-mu\"")
|
||
(format #f "\"~a/lib/libguile-mu\""
|
||
(assoc-ref outputs "out"))))
|
||
#t))
|
||
(add-before 'check 'check-tz-setup
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; For mu/test/test-mu-query.c
|
||
(setenv "TZDIR"
|
||
(string-append (assoc-ref inputs "tzdata")
|
||
"/share/zoneinfo"))
|
||
#t))
|
||
(add-after 'install 'install-emacs-autoloads
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(emacs-generate-autoloads
|
||
"mu4e"
|
||
(string-append (assoc-ref outputs "out")
|
||
"/share/emacs/site-lisp"))
|
||
#t)))))
|
||
(home-page "https://www.djcbsoftware.nl/code/mu/")
|
||
(synopsis "Quickly find emails")
|
||
(description
|
||
"Mu is a tool for dealing with e-mail messages stored in the
|
||
Maildir-format. Mu's purpose in life is to help you to quickly find the
|
||
messages you need; in addition, it allows you to view messages, extract
|
||
attachments, create new maildirs, and so on.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public alot
|
||
(package
|
||
(name "alot")
|
||
(version "0.9.1")
|
||
(source (origin
|
||
(method git-fetch)
|
||
;; package author intends on distributing via github rather
|
||
;; than pypi:
|
||
;; https://github.com/pazz/alot/issues/877#issuecomment-230173331
|
||
(uri (git-reference
|
||
(url "https://github.com/pazz/alot")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0s94m17yph1gq9f2svipb3bbwbw1s4j3zf2xkg5h91006v8286r6"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'fix-tests
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((gnupg (assoc-ref inputs "gnupg")))
|
||
(substitute* "tests/test_crypto.py"
|
||
(("gpg2") (string-append gnupg "/bin/gpg")))
|
||
#t)))
|
||
(add-before 'check 'disable-failing-tests
|
||
;; FIXME: Investigate why these tests are failing.
|
||
(lambda _
|
||
(substitute* "tests/test_helper.py"
|
||
(("def test_env_set") "def _test_env_set"))
|
||
(substitute* "tests/commands/test_global.py"
|
||
(("def test_no_spawn_no_stdin_attached")
|
||
"def _test_no_spawn_no_stdin_attached"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("procps" ,procps)
|
||
("python-mock" ,python-mock)))
|
||
(inputs
|
||
`(("gnupg" ,gnupg)
|
||
("python-magic" ,python-magic)
|
||
("python-configobj" ,python-configobj)
|
||
("python-twisted" ,python-twisted)
|
||
("python-service-identity" ,python-service-identity)
|
||
("python-urwid" ,python-urwid)
|
||
("python-urwidtrees" ,python-urwidtrees)
|
||
("python-gpg" ,python-gpg)
|
||
("python-notmuch" ,python-notmuch)))
|
||
(home-page "https://github.com/pazz/alot")
|
||
(synopsis "Command-line MUA using Notmuch")
|
||
(description
|
||
"Alot is a terminal-based mail user agent based on the Notmuch mail
|
||
indexer. It is written in Python using the @code{urwid} toolkit and features
|
||
a modular and command prompt driven interface to provide a full mail user
|
||
agent (@dfn{MUA}) experience as an alternative to the Emacs mode shipped with
|
||
Notmuch.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public notifymuch
|
||
(let
|
||
((commit "9d4aaf54599282ce80643b38195ff501120807f0")
|
||
(revision "1"))
|
||
(package
|
||
(name "notifymuch")
|
||
(version (string-append "0.1-" revision "." (string-take commit 7)))
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/kspi/notifymuch")
|
||
(commit commit)))
|
||
(sha256
|
||
(base32
|
||
"1lssr7iv43mp5v6nzrfbqlfzx8jcc7m636wlfyhhnd8ydd39n6k4"))
|
||
(file-name (string-append name "-" version "-checkout"))))
|
||
(build-system python-build-system)
|
||
(inputs
|
||
`(("python-notmuch" ,python-notmuch)
|
||
("python-pygobject" ,python-pygobject)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("libnotify" ,libnotify)
|
||
("gtk+" ,gtk+)))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'wrap-binary
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin/notifymuch")))
|
||
(wrap-program bin
|
||
`("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
|
||
`("GI_TYPELIB_PATH" ":" prefix
|
||
(,(getenv "GI_TYPELIB_PATH")
|
||
,(string-append out "/lib/girepository-1.0")))))
|
||
#t)))))
|
||
(home-page "https://github.com/kspi/notifymuch")
|
||
(synopsis "Displays notifications for changes in the notmuch email database")
|
||
(description "notifymuch displays desktop notifications for messages in
|
||
the notmuch database. The notifications are sent using libnotify to a
|
||
notification daemon. The query to find messages to send a notification about
|
||
is configurable, and a notification for the same message will not be send
|
||
within a configurable period (defaults to 48 hours). To use notifymuch, run
|
||
@command{notifymuch} after new mail is indexed, this can be automated by
|
||
invoking @command{notifymuch} from the post-new hook.")
|
||
(license license:gpl3))))
|
||
|
||
(define-public notmuch
|
||
(package
|
||
(name "notmuch")
|
||
(version "0.31.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://notmuchmail.org/releases/notmuch-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0magnyjjhhv11nwcm2596hdxszrj61y69i0hmwqdc3v6cxjvcqc6"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:modules ((guix build gnu-build-system)
|
||
((guix build emacs-build-system) #:prefix emacs:)
|
||
(guix build utils))
|
||
#:imported-modules (,@%gnu-build-system-modules
|
||
(guix build emacs-build-system)
|
||
(guix build emacs-utils))
|
||
#:make-flags
|
||
(list "V=1" ; verbose test output
|
||
"NOTMUCH_TEST_TIMEOUT=1h") ; don't fail on slow machines
|
||
#:phases (modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-notmuch-lib.el
|
||
(lambda _
|
||
(substitute* "emacs/notmuch-lib.el"
|
||
(("/bin/sh") (which "sh")))
|
||
#t))
|
||
(replace 'configure
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(setenv "CC" "gcc")
|
||
(setenv "CONFIG_SHELL" (which "sh"))
|
||
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(elisp
|
||
(string-append out "/share/emacs/site-lisp/")))
|
||
(invoke "./configure"
|
||
(string-append "--prefix=" out)
|
||
(string-append "--emacslispdir=" elisp)
|
||
(string-append "--emacsetcdir=" elisp)))))
|
||
(add-before 'check 'disable-failing-tests
|
||
;; FIXME: Investigate why these tests are failing,
|
||
;; and try removing this for notmuch versions > 0.31.
|
||
(lambda _
|
||
(substitute* "test/T356-protected-headers.sh"
|
||
(("\\$NOTMUCH_GMIME_X509_CERT_VALIDITY") "0"))
|
||
#t))
|
||
(add-before 'check 'prepare-test-environment
|
||
(lambda _
|
||
(setenv "TEST_CC" "gcc")
|
||
;; Patch various inline shell invocations.
|
||
(substitute* (find-files "test" "\\.sh$")
|
||
(("/bin/sh") (which "sh")))
|
||
#t))
|
||
(add-after 'install 'make-autoloads
|
||
(assoc-ref emacs:%standard-phases 'make-autoloads)))))
|
||
(native-inputs
|
||
`(("bash-completion" ,bash-completion)
|
||
("emacs" ,emacs-no-x) ; -minimal lacks libxml, needed for some tests
|
||
("pkg-config" ,pkg-config)
|
||
("python" ,python)
|
||
("python-docutils" ,python-docutils)
|
||
("sphinx" ,python-sphinx)
|
||
|
||
;; The following are required for tests only.
|
||
("which" ,which)
|
||
("dtach" ,dtach)
|
||
("gnupg" ,gnupg)
|
||
("man" ,man-db)
|
||
("perl" ,perl)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("gmime" ,gmime)
|
||
("talloc" ,talloc)
|
||
("xapian" ,xapian)
|
||
("zlib" ,zlib)))
|
||
(home-page "https://notmuchmail.org/")
|
||
(synopsis "Thread-based email index, search, and tagging")
|
||
(description
|
||
"Notmuch is a command-line based program for indexing, searching, read-
|
||
ing, and tagging large collections of email messages.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public notmuch-addrlookup-c
|
||
(package
|
||
(name "notmuch-addrlookup-c")
|
||
(version (string-append "9"))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/aperezdc/notmuch-addrlookup-c")
|
||
(commit (string-append "v" version))))
|
||
(file-name (string-append name "-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"1j3zdx161i1x4w0nic14ix5i8hd501rb31daf8api0k8855sx4rc"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:tests? #f ; no tests
|
||
#:make-flags (list "CC=gcc")
|
||
#:phases (modify-phases %standard-phases
|
||
(delete 'configure)
|
||
;; Remove vim code completion config, it's not needed to
|
||
;; build (or be patched).
|
||
(add-before 'patch-source-shebangs 'delete-ycm-file
|
||
(lambda _ (delete-file ".ycm_extra_conf.py")))
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((bin (string-append
|
||
(assoc-ref outputs "out") "/bin")))
|
||
(install-file "notmuch-addrlookup" bin)))))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("glib" ,glib)
|
||
("notmuch" ,notmuch)))
|
||
(home-page "https://github.com/aperezdc/notmuch-addrlookup-c")
|
||
(synopsis "Address lookup tool for Notmuch")
|
||
(description "This is an address lookup tool using a Notmuch database,
|
||
useful for email address completion.")
|
||
(license license:expat)))
|
||
|
||
(define-public python-notmuch
|
||
(package
|
||
(name "python-notmuch")
|
||
(version (package-version notmuch))
|
||
;; Notmuch python bindings are now unavailable on pypi. The
|
||
;; bindings are distributed via the notmuch release tarball.
|
||
(source (package-source notmuch))
|
||
(build-system python-build-system)
|
||
(inputs `(("notmuch" ,notmuch)))
|
||
(arguments
|
||
`(#:tests? #f ; no "test" target
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
;; This python package lives in a subdirectory of the notmuch source
|
||
;; tree, so chdir into it before building.
|
||
(add-after 'unpack 'enter-python-dir
|
||
(lambda _ (chdir "bindings/python") #t))
|
||
;; Make sure the correct notmuch shared library gets loaded.
|
||
(add-before 'build 'set-libnotmuch-file-name
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((notmuch (assoc-ref inputs "notmuch")))
|
||
(substitute* "notmuch/globals.py"
|
||
(("libnotmuch\\.so\\.")
|
||
(string-append notmuch "/lib/libnotmuch.so.")))
|
||
#t))))))
|
||
(home-page (package-home-page notmuch))
|
||
(synopsis "Python bindings of the Notmuch mail indexing library")
|
||
(description
|
||
"This package provides Python bindings to use the Notmuch mail indexing
|
||
and search library.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public python2-notmuch
|
||
(package-with-python2 python-notmuch))
|
||
|
||
(define-public muchsync
|
||
(package
|
||
(name "muchsync")
|
||
(version "6")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://www.muchsync.org/src/"
|
||
"muchsync-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "1s799kx16nm5ry1fcqcc0grgxrwnnp4cnzd0hzwbkvc5v2sf6g8b"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pandoc" ,pandoc)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("libcrypto" ,openssl)
|
||
("notmuch" ,notmuch)
|
||
("sqlite" ,sqlite)
|
||
("xapian" ,xapian)))
|
||
(home-page "http://www.muchsync.org/")
|
||
(synopsis "Synchronize notmuch mail across machines")
|
||
(description
|
||
"Muchsync brings Notmuch to all of your computers by synchronizing your
|
||
mail messages and Notmuch tags across machines. The protocol is heavily
|
||
pipelined to work efficiently over high-latency networks such as mobile
|
||
broadband. Muchsync supports arbitrary pairwise synchronization among
|
||
replicas. A version-vector-based algorithm allows it to exchange only the
|
||
minimum information necessary to bring replicas up to date regardless of which
|
||
pairs have previously synchronized.")
|
||
(license license:gpl2+))) ; with OpenSSL libcrypto exception
|
||
|
||
(define-public getmail
|
||
(package
|
||
(name "getmail")
|
||
(version "5.14")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://pyropus.ca/software/getmail/old-versions/"
|
||
"getmail-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "1hcrd9h4g12f5gvl1djsbchcjry02ghq4icdr897s8v48pkrzagk"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; no tests
|
||
#:python ,python-2))
|
||
(home-page "http://pyropus.ca/software/getmail/")
|
||
(synopsis "Mail retriever")
|
||
(description
|
||
"A flexible, extensible mail retrieval system with support for
|
||
POP3, IMAP4, SSL variants of both, maildirs, mboxrd files, external MDAs,
|
||
arbitrary message filtering, single-user and domain-mailboxes, and many other
|
||
useful features.")
|
||
|
||
;; License is specified in file '__init__.py'.
|
||
(license license:gpl2)))
|
||
|
||
(define-public libetpan
|
||
(package
|
||
(name "libetpan")
|
||
(version "1.9.4")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/dinhviethoa/libetpan")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0g7an003simfdn7ihg9yjv7hl2czsmjsndjrp39i7cad8icixscn"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs `(("autoconf" ,autoconf-wrapper)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)
|
||
("pkg-config" ,pkg-config)))
|
||
(propagated-inputs
|
||
;; 'libetpan-config --libs' returns '-lssl -lcrypto -lsasl2', so these
|
||
;; libraries need to be propagated.
|
||
`(("cyrus-sasl" ,cyrus-sasl)
|
||
("openssl" ,openssl)))
|
||
(inputs
|
||
`(("curl" ,curl)
|
||
("expat" ,expat)
|
||
("zlib" ,zlib)))
|
||
(arguments
|
||
'(#:configure-flags
|
||
'("--disable-static" "--disable-db")))
|
||
(home-page "https://www.etpan.org/libetpan.html")
|
||
(synopsis "Portable middleware for email access")
|
||
(description
|
||
"The purpose of this mail library is to provide a portable, efficient
|
||
framework for different kinds of mail access: IMAP, SMTP, POP and NNTP. It
|
||
provides an API for C language. It's the low-level API used by MailCore and
|
||
MailCore 2.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public compface
|
||
(package
|
||
(name "compface")
|
||
(version "1.5.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://ftp.heanet.ie/mirrors/"
|
||
"ftp.xemacs.org/aux/"
|
||
"compface-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"09b89wg63hg502hsz592cd2h87wdprb1dq1k1y07n89hym2q56d6"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f))
|
||
(synopsis "Portrait image compressor")
|
||
(description "This package takes your 48x48x1 portrait image and
|
||
compresses it.")
|
||
(home-page "https://legacy.cs.indiana.edu/ftp/faces/")
|
||
(license (license:x11-style "file://README"))))
|
||
|
||
(define-public claws-mail
|
||
(package
|
||
(name "claws-mail")
|
||
(version "3.17.8")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://www.claws-mail.org/releases/claws-mail-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32 "1byxmz68lnm2m8q1gnp0lpr3qp7dcwabrw5iqflz9mlm960v5dyd"))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list
|
||
"--enable-gnutls"
|
||
"--enable-pgpmime-plugin"
|
||
"--enable-enchant"
|
||
"--enable-ldap")
|
||
#:make-flags
|
||
;; Disable updating icon cache since it's done by the profile hook.
|
||
;; Conflict with other packages in the profile would be inevitable
|
||
;; otherwise.
|
||
(list
|
||
"gtk_update_icon_cache=true")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'build 'patch-mime
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "src/procmime.c"
|
||
(("/usr/share/mime/globs")
|
||
(string-append (assoc-ref inputs "mime-info")
|
||
"/share/mime/globs"))))))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("bogofilter" ,bogofilter)
|
||
("curl" ,curl)
|
||
("dbus-glib" ,dbus-glib)
|
||
("enchant" ,enchant)
|
||
("expat" ,expat)
|
||
("ghostscript" ,ghostscript)
|
||
("hicolor-icon-theme" ,hicolor-icon-theme)
|
||
("gnupg" ,gnupg)
|
||
("gnutls" ,gnutls)
|
||
("gpgme" ,gpgme)
|
||
("gtk" ,gtk+-2)
|
||
("libarchive" ,libarchive)
|
||
("libcanberra" ,libcanberra)
|
||
("libetpan" ,libetpan)
|
||
("libical" ,libical)
|
||
("libnotify" ,libnotify)
|
||
("libsm" ,libsm)
|
||
("libxml2" ,libxml2)
|
||
("perl" ,perl)
|
||
("python-2" ,python-2)
|
||
("mime-info" ,shared-mime-info)
|
||
("startup-notification" ,startup-notification)))
|
||
(synopsis "GTK-based Email client")
|
||
(description "Claws-Mail is an email client (and news reader) based on GTK+.
|
||
The appearance and interface are designed to be familiar to new users coming
|
||
from other popular email clients, as well as experienced users. Almost all
|
||
commands are accessible with the keyboard. Plus, Claws-Mail is extensible via
|
||
addons which can add many functionalities to the base client.")
|
||
(home-page "https://www.claws-mail.org/")
|
||
(license license:gpl3+))) ; most files are actually public domain or x11
|
||
|
||
(define-public msmtp
|
||
(package
|
||
(name "msmtp")
|
||
(version "1.8.14")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://marlam.de/msmtp/releases/"
|
||
"/msmtp-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "1d3knxpwpglg20z4zcsi82mqv9285ah1b1b16k1fk1hlf5fhcvym"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("libsecret" ,libsecret)
|
||
("gnutls" ,gnutls)
|
||
("zlib" ,zlib)
|
||
("gsasl" ,gsasl)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(home-page "https://marlam.de/msmtp/")
|
||
(arguments
|
||
`(#:configure-flags (list "--with-libgsasl"
|
||
"--with-libidn"
|
||
"--with-tls=gnutls")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'install-additional-files
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin"))
|
||
(doc (string-append out "/share/doc/msmtp"))
|
||
(msmtpq "scripts/msmtpq")
|
||
(vimfiles (string-append out "/share/vim/vimfiles/plugin")))
|
||
(install-file (string-append msmtpq "/msmtpq") bin)
|
||
(install-file (string-append msmtpq "/msmtp-queue") bin)
|
||
(install-file (string-append msmtpq "/README.msmtpq") doc)
|
||
(install-file "scripts/vim/msmtp.vim" vimfiles)
|
||
;; Don't rely on netcat being in the PATH to test for a
|
||
;; connection, instead try tp ing debian.org.
|
||
(substitute* (string-append bin "/msmtpq")
|
||
(("EMAIL_CONN_TEST=n") "EMAIL_CONN_TEST=p"))
|
||
#t))))))
|
||
(synopsis
|
||
"Simple and easy to use SMTP client with decent sendmail compatibility")
|
||
(description
|
||
"msmtp is an SMTP client. In the default mode, it transmits a mail to
|
||
an SMTP server (for example at a free mail provider) which takes care of further
|
||
delivery.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public exim
|
||
(package
|
||
(name "exim")
|
||
(version "4.94")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (let ((file-name (string-append "exim-" version ".tar.xz")))
|
||
(list (string-append "https://ftp.exim.org/pub/exim/exim4/"
|
||
file-name)
|
||
;; ‘Fix’ releases (exim-x.y.z.f) are kept separately.
|
||
(string-append "https://ftp.exim.org/pub/exim/exim4/fixes/"
|
||
file-name)
|
||
;; After a new non-fix release, the old one is moved here.
|
||
(string-append "https://ftp.exim.org/pub/exim/exim4/old/"
|
||
file-name))))
|
||
(sha256
|
||
(base32 "1nsb2i5mqxfz1sl1bmbxmpb2qiaf3wffhfiw4j9vfpagy3xfhzpp"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("bdb" ,bdb-5.3) ; ‘#error Version 6 and later BDB API is not supported’
|
||
("gnutls" ,gnutls/dane)
|
||
("gzip" ,gzip)
|
||
("bzip2" ,bzip2)
|
||
("xz" ,xz)
|
||
("perl" ,perl)
|
||
("libnsl" ,libnsl)
|
||
("libxt" ,libxt)
|
||
("libxaw" ,libxaw)))
|
||
(native-inputs
|
||
`(("pcre" ,pcre "bin")
|
||
("perl" ,perl)
|
||
("pkg-config" ,pkg-config)))
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
;; We'd use #:make-flags but the top-level Makefile calls others
|
||
;; recursively, so just set all variables this way.
|
||
(lambda* (#:key outputs inputs #:allow-other-keys)
|
||
(substitute* '("Makefile" "OS/Makefile-Default")
|
||
(("(RM_COMMAND=).*" all var)
|
||
(string-append var "rm\n")))
|
||
(copy-file "src/EDITME" "Local/Makefile")
|
||
(copy-file "exim_monitor/EDITME" "Local/eximon.conf")
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gzip (assoc-ref inputs "gzip"))
|
||
(bzip2 (assoc-ref inputs "bzip2"))
|
||
(xz (assoc-ref inputs "xz")))
|
||
(substitute* '("Local/Makefile")
|
||
(("(BIN_DIRECTORY=).*" all var)
|
||
(string-append var out "/bin\n"))
|
||
(("(CONFIGURE_FILE=).*" all var)
|
||
(string-append var out "/etc/exim.conf\n"))
|
||
(("(EXIM_USER=).*" all var)
|
||
(string-append var "nobody\n"))
|
||
(("(FIXED_NEVER_USERS=).*" all var)
|
||
(string-append var "\n")) ; XXX no root in build environment
|
||
(("(COMPRESS_COMMAND=).*" all var)
|
||
(string-append var gzip "/bin/gzip\n"))
|
||
(("(ZCAT_COMMAND=).*" all var)
|
||
(string-append var gzip "/bin/zcat\n"))
|
||
(("# (USE_GNUTLS(|_PC)=.*)" all line)
|
||
(string-append line "\n"))
|
||
(("# (AUTH_CRAM_MD5=yes)" all line) line)
|
||
(("# (AUTH_DOVECOT=yes)" all line) line)
|
||
(("# (AUTH_EXTERNAL=yes)" all line) line)
|
||
(("# (AUTH_PLAINTEXT=yes)" all line) line)
|
||
(("# (AUTH_SPA=yes)" all line) line)
|
||
(("# (AUTH_TLS=yes)" all line) line))
|
||
;; This file has hard-coded relative file names for tools despite
|
||
;; the zcat configuration above.
|
||
(substitute* '("src/exigrep.src")
|
||
(("'zcat'") (string-append "'" gzip "/bin/zcat'"))
|
||
(("'bzcat'") (string-append "'" bzip2 "/bin/bzcat'"))
|
||
(("'xzcat'") (string-append "'" xz "/bin/xzcat'"))
|
||
(("'lzma'") (string-append "'" xz "/bin/lzma'"))))
|
||
#t))
|
||
(add-before 'build 'fix-sh-paths
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* '("scripts/lookups-Makefile" "scripts/reversion")
|
||
(("SHELL=/bin/sh") "SHELL=sh"))
|
||
(substitute* '("scripts/Configure-config.h")
|
||
(("\\| /bin/sh") "| sh"))
|
||
(let ((bash (assoc-ref inputs "bash")))
|
||
(substitute* '("scripts/Configure-eximon")
|
||
(("#!/bin/sh") (string-append "#!" bash "/bin/sh"))))
|
||
#t))
|
||
(add-before 'build 'build-reproducibly
|
||
(lambda _
|
||
;; The ‘compilation number’ is incremented for every build from the
|
||
;; same source tree. It appears to vary over different (parallel?)
|
||
;; builds. Make it a ‘constant number’ instead.
|
||
(substitute* "src/version.c"
|
||
(("#include \"cnumber.h\"") "1")))))
|
||
#:make-flags
|
||
(list "CC=gcc"
|
||
"INSTALL_ARG=-no_chown")
|
||
;; No 'check' target. There is a test suite in test/, which assumes that
|
||
;; certain build options were (not) used and that it can freely ‘sudo’.
|
||
#:tests? #f))
|
||
(home-page "https://www.exim.org/")
|
||
(synopsis
|
||
"Message Transfer Agent (MTA) developed at the University of Cambridge")
|
||
(description
|
||
"Exim is a message transfer agent (MTA) developed at the University of
|
||
Cambridge for use on Unix systems connected to the Internet. In style it is
|
||
similar to Smail 3, but its facilities are more general. There is a great
|
||
deal of flexibility in the way mail can be routed, and there are extensive
|
||
facilities for checking incoming mail.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public dovecot
|
||
(package
|
||
(name "dovecot")
|
||
;; Also update dovecot-pigeonhole when updating to a new minor version.
|
||
(version "2.3.14")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://www.dovecot.org/releases/"
|
||
(version-major+minor version) "/"
|
||
"dovecot-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "0jm3p52z619v7ajh533g2g7d790k82fk0w7ry0zqlm8ymzrxgcy8"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("bzip2" ,bzip2)
|
||
("clucene" ,clucene)
|
||
("icu4c" ,icu4c)
|
||
("libsodium" ,libsodium) ; extra password algorithms
|
||
("libstemmer" ,libstemmer)
|
||
;; FIXME: The 'test-backtrace' tests fail on arm when using glibc's
|
||
;; backtrace_symbol() function so fallback to using libunwind.
|
||
,@(if (target-arm?)
|
||
`(("libunwind" ,libunwind))
|
||
'())
|
||
("linux-pam" ,linux-pam)
|
||
("lz4" ,lz4)
|
||
("openssl" ,openssl)
|
||
("sqlite" ,sqlite)
|
||
("zlib" ,zlib)
|
||
("zstd" ,zstd "lib")))
|
||
(arguments
|
||
`(#:configure-flags '("--sysconfdir=/etc"
|
||
"--localstatedir=/var"
|
||
"--with-sqlite" ; not auto-detected
|
||
"--with-lucene") ; not auto-detected
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-file-names
|
||
(lambda _
|
||
(substitute* "src/lib-program-client/test-program-client-local.c"
|
||
(("(/bin/| )cat") (which "cat"))
|
||
(("/bin/echo") (which "echo"))
|
||
(("/bin/false") (which "false"))
|
||
(("/bin/sh") (which "bash"))
|
||
(("head") (which "head"))
|
||
(("sleep") (which "sleep")))
|
||
(substitute* (list "src/lib-smtp/test-bin/sendmail-exit-1.sh"
|
||
"src/lib-smtp/test-bin/sendmail-success.sh")
|
||
(("cat") (which "cat")))
|
||
#t))
|
||
(replace 'install
|
||
(lambda* (#:key make-flags #:allow-other-keys)
|
||
;; Simple hack to avoid installing a trivial README in /etc.
|
||
(apply invoke "make" "install" "sysconfdir=/tmp/bogus"
|
||
make-flags))))))
|
||
(home-page "https://www.dovecot.org")
|
||
(synopsis "Secure POP3/IMAP server")
|
||
(description
|
||
"Dovecot is a mail server whose major goals are security and reliability.
|
||
It supports mbox/Maildir and its own dbox/mdbox formats.")
|
||
;; Most source files are covered by either lgpl2.1 or expat. The SHA code
|
||
;; is covered by a variant of BSD-3, and UnicodeData.txt is covered by the
|
||
;; Unicode, Inc. License Agreement for Data Files and Software.
|
||
(license (list license:lgpl2.1 license:expat
|
||
(license:non-copyleft "file://COPYING")))))
|
||
|
||
(define-public dovecot-pigeonhole
|
||
(let ((dovecot-version (version-major+minor (package-version dovecot))))
|
||
(package
|
||
(name "dovecot-pigeonhole")
|
||
(version "0.5.14")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://pigeonhole.dovecot.org/releases/" dovecot-version "/"
|
||
"dovecot-" dovecot-version "-pigeonhole-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "1lmjzz4kd90wbdslacybizd1dks4bhwmrx39lj8b19naldw0zjk8"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
;; RFC licencing is ad-hoc and rarely free. Remove them all.
|
||
(delete-file-recursively "doc/rfc")
|
||
(substitute* "configure"
|
||
(("doc/rfc/Makefile") ""))
|
||
(substitute* "doc/Makefile.in"
|
||
(("rfc ") ""))
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--disable-static"
|
||
"--with-dovecot-install-dirs=no"
|
||
(string-append "--with-dovecot="
|
||
(assoc-ref %build-inputs "dovecot")
|
||
"/lib/dovecot")
|
||
(string-append "--docdir="
|
||
(assoc-ref %outputs "out")
|
||
"/share/doc/" ,name "-" ,version)
|
||
(string-append "--with-moduledir="
|
||
(assoc-ref %outputs "out")
|
||
"/lib/dovecot"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-file-names
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(libexec (string-append out "/libexec/dovecot")))
|
||
(substitute* "src/managesieve/managesieve-settings.c"
|
||
(("\\.executable = \"managesieve\"")
|
||
(string-append ".executable = \"" libexec
|
||
"/managesieve\"")))
|
||
(substitute* "src/managesieve-login/managesieve-login-settings.c"
|
||
(("\\.executable = \"managesieve-login\"")
|
||
(string-append ".executable = \"" libexec
|
||
"/managesieve-login\"")))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("dovecot" ,dovecot)))
|
||
(home-page "https://pigeonhole.dovecot.org")
|
||
(synopsis "Dovecot Sieve mail filtering plug-in and ManageSieve service")
|
||
(description
|
||
"Pigeonhole adds support for the Sieve language (RFC 5228) and the
|
||
ManageSieve protocol (RFC 5804) to the Dovecot e-mail server.
|
||
|
||
@dfn{Sieve} is a language for filtering incoming mail. Messages can be
|
||
forwarded or sorted into separate folders. Unwanted messages can be rejected
|
||
or discarded, and, when the user is not available, the Sieve interpreter can
|
||
send an automated reply.
|
||
|
||
Sieve is meant to be simple, extensible, and system-independent. The
|
||
intention is to make it impossible to write anything more complex (and
|
||
dangerous) than simple mail filters. Unlike most other mail filtering script
|
||
languages, Sieve does not allow users to execute arbitrary programmes.
|
||
|
||
Through the @dfn{ManageSieve} protocol, users can remotely manage their Sieve
|
||
scripts without needing file system access. The server accepts only valid
|
||
scripts to prevent embarrassing errors later on.")
|
||
(license license:lgpl2.1))))
|
||
|
||
(define-public dovecot-trees
|
||
(package
|
||
(name "dovecot-trees")
|
||
(version "2.1.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://0xacab.org/riseuplabs/trees/repository/"
|
||
"archive.tar.gz?ref=v" version))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0rkk10b1bsjz979sc864vpgcdchy7yxwmyv4ik50lar1h6awdnrf"))
|
||
(patches
|
||
(search-patches "dovecot-trees-support-dovecot-2.3.patch"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("automake" ,automake)
|
||
("autoconf" ,autoconf)
|
||
("libtool" ,libtool)
|
||
("dovecot" ,dovecot)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("libsodium" ,libsodium)))
|
||
(arguments
|
||
`(#:tests? #f ;No tests exist.
|
||
#:configure-flags (list (string-append "--with-dovecot="
|
||
(assoc-ref %build-inputs "dovecot")
|
||
"/lib/dovecot"))))
|
||
(home-page "https://0xacab.org/riseuplabs/trees")
|
||
(synopsis "NaCL-based Dovecot email storage encryption plugin")
|
||
(description
|
||
"Technology for Resting Email Encrypted Storage (TREES) is a NaCL-based
|
||
Dovecot encryption plugin. This plugin adds individually encrypted mail
|
||
storage to the Dovecot IMAP server. It is inspired by Posteo's scrambler
|
||
which uses OpenSSL and RSA key pairs. TREES works in a similar way, but uses
|
||
the Sodium crypto library (based on NaCL).
|
||
|
||
How it works:
|
||
@enumerate
|
||
@item On IMAP log in, the user's cleartext password is passed to the plugin.
|
||
@item The plugin creates an argon2 digest from the password.
|
||
@item This password digest is used as a symmetric secret to decrypt a libsodium secretbox.
|
||
@item Inside the secretbox is stored a Curve25519 private key.
|
||
@item The Curve25519 private key is used to decrypt each individual message,
|
||
using libsodium sealed boxes.
|
||
@item New mail is encrypted as it arrives using the Curve25519 public key.
|
||
@end enumerate\n")
|
||
(license license:agpl3)))
|
||
|
||
(define-public dovecot-libsodium-plugin
|
||
(let ((commit "044de73c01c35385df0105f6b387bec5d5317ce7")
|
||
(revision "1"))
|
||
(package
|
||
(name "dovecot-libsodium-plugin")
|
||
(version (string-append "0.0.0-" revision "." (string-take commit 7)))
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/LuckyFellow/dovecot-libsodium-plugin")
|
||
(commit commit)))
|
||
(file-name (string-append name "-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"13h07l7xy713zchnj2p9fhvq7fdl4zy1ai94li3ygkqjjj8hrgas"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("automake" ,automake)
|
||
("autoconf" ,autoconf)
|
||
("libtool" ,libtool)
|
||
("dovecot" ,dovecot)
|
||
("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("libsodium" ,libsodium)))
|
||
(arguments
|
||
`(#:tests? #f ;No tests exist.
|
||
#:configure-flags (list (string-append "--with-dovecot="
|
||
(assoc-ref %build-inputs "dovecot")
|
||
"/lib/dovecot"))))
|
||
(home-page "https://github.com/LuckyFellow/dovecot-libsodium-plugin")
|
||
(synopsis "Libsodium password hashing schemes plugin for Dovecot")
|
||
(description
|
||
"@code{dovecot-libsodium-plugin} provides a libsodium password
|
||
hashing scheme (such as scrypt) plug-in for @code{Dovecot}.")
|
||
(license license:gpl3+))))
|
||
|
||
(define-public isync
|
||
(package
|
||
(name "isync")
|
||
(version "1.4.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/isync/isync/"
|
||
version "/isync-" version ".tar.gz"))
|
||
(sha256 (base32
|
||
"0l01880fcyqn6xq9n8236ha5n2a3wl5g8rmv22z8nv5hgfsxndhd"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("perl" ,perl)))
|
||
(inputs
|
||
`(("bdb" ,bdb)
|
||
("cyrus-sasl" ,cyrus-sasl)
|
||
("openssl" ,openssl)
|
||
("zlib" ,zlib)))
|
||
(home-page "https://isync.sourceforge.io/")
|
||
(synopsis "Mailbox synchronization program")
|
||
(description
|
||
"isync/mbsync is a command-line tool for two-way synchronization of
|
||
mailboxes. Currently Maildir and IMAP are supported types.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public perl-email-abstract
|
||
(package
|
||
(name "perl-email-abstract")
|
||
(version "3.008")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
|
||
"Email-Abstract-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0h42rhvp769wb421cpbbg6v6xjp8iv86mvz70pqgfgf4nsn6jwgw"))))
|
||
(build-system perl-build-system)
|
||
(propagated-inputs
|
||
`(("perl-email-simple" ,perl-email-simple)
|
||
("perl-module-pluggable" ,perl-module-pluggable)
|
||
("perl-mro-compat" ,perl-mro-compat)))
|
||
(home-page "https://metacpan.org/release/Email-Abstract")
|
||
(synopsis "Interface to mail representations")
|
||
(description "Email::Abstract provides module writers with the ability to
|
||
write simple, representation-independent mail handling code.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public perl-email-address
|
||
(package
|
||
(name "perl-email-address")
|
||
(version "1.912")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
|
||
"Email-Address-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "1vzr0vx4zsw4zbc9xdffc31wnkc1raqmyfiyws06fbyck197i8qg"))))
|
||
(build-system perl-build-system)
|
||
(home-page "https://metacpan.org/release/Email-Address")
|
||
(synopsis "Email address parsing and creation")
|
||
(description "Email::Address implements a regex-based RFC 2822 parser that
|
||
locates email addresses in strings and returns a list of Email::Address
|
||
objects found. Alternatively you may construct objects manually.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public perl-email-address-xs
|
||
(package
|
||
(name "perl-email-address-xs")
|
||
(version "1.04")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/P/PA/PALI/"
|
||
"Email-Address-XS-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0gjrrl81z3sfwavgx5kwjd87gj44mlnbbqsm3dgdv1xllw26spwr"))))
|
||
(build-system perl-build-system)
|
||
(home-page "https://metacpan.org/release/Email-Address-XS")
|
||
(synopsis "Parse and format RFC 5322 email addresses and groups")
|
||
(description
|
||
"Email::Address::XS implements RFC 5322 parser and formatter of email
|
||
addresses and groups. Unlike Email::Address, this module does not use regular
|
||
expressions for parsing but instead is implemented in XS and uses shared code
|
||
from Dovecot IMAP server.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public perl-email-date-format
|
||
(package
|
||
(name "perl-email-date-format")
|
||
(version "1.005")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
|
||
"Email-Date-Format-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"012ivfwpnbl3wr50f9c6f4azhdlxnm31pdn72528g79v61z6372p"))))
|
||
(build-system perl-build-system)
|
||
(home-page "https://metacpan.org/release/Email-Date-Format")
|
||
(synopsis "Produce RFC 2822 date strings")
|
||
(description "Email::Date::Format provides a means for generating an RFC
|
||
2822 compliant datetime string.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public perl-email-messageid
|
||
(package
|
||
(name "perl-email-messageid")
|
||
(version "1.406")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
|
||
"Email-MessageID-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1f22sdnfq169qw1l0lg7y74pmiam7j9v95bggjnf3q4mygdmshpc"))))
|
||
(build-system perl-build-system)
|
||
(home-page "https://metacpan.org/release/Email-MessageID")
|
||
(synopsis "Generate world unique message-ids")
|
||
(description "Email::MessageID generates recommended message-ids to
|
||
identify a message uniquely.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public perl-email-mime
|
||
(package
|
||
(name "perl-email-mime")
|
||
(version "1.946")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
|
||
"Email-MIME-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0z1k3i0lzp2k421gc8f3wq0jbqflkbw2xqd2k7n7pmv56417kvk8"))))
|
||
(build-system perl-build-system)
|
||
(propagated-inputs
|
||
`(("perl-email-address" ,perl-email-address)
|
||
("perl-email-messageid" ,perl-email-messageid)
|
||
("perl-email-mime-contenttype" ,perl-email-mime-contenttype)
|
||
("perl-email-mime-encodings" ,perl-email-mime-encodings)
|
||
("perl-email-simple" ,perl-email-simple)
|
||
("perl-mime-types" ,perl-mime-types)
|
||
("perl-module-runtime" ,perl-module-runtime)))
|
||
(home-page "https://metacpan.org/release/Email-MIME")
|
||
(synopsis "MIME message handling")
|
||
(description "Email::MIME is an extension of the Email::Simple module, to
|
||
handle MIME encoded messages. It takes a message as a string, splits it up
|
||
into its constituent parts, and allows you access to various parts of the
|
||
message. Headers are decoded from MIME encoding.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public perl-email-mime-contenttype
|
||
(package
|
||
(name "perl-email-mime-contenttype")
|
||
(version "1.022")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
|
||
"Email-MIME-ContentType-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"042kxhs3bp1ab9z0mbr1wy21ld4lxd6v2a2mmrashqnsn2075fws"))))
|
||
(build-system perl-build-system)
|
||
(native-inputs
|
||
`(("perl-capture-tiny" ,perl-capture-tiny)))
|
||
(home-page "https://metacpan.org/release/Email-MIME-ContentType")
|
||
(synopsis "Parse MIME Content-Type headers")
|
||
(description "Email::MIME::ContentType parses a MIME Content-Type
|
||
header.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public perl-email-mime-encodings
|
||
(package
|
||
(name "perl-email-mime-encodings")
|
||
(version "1.315")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
|
||
"Email-MIME-Encodings-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0p5b8g9gh35m8fqrpx60g4bp98rvwd02n5b0vm9wh7mk0xah8wac"))))
|
||
(build-system perl-build-system)
|
||
(native-inputs
|
||
`(("perl-capture-tiny" ,perl-capture-tiny)))
|
||
(home-page "https://metacpan.org/release/Email-MIME-Encodings")
|
||
(synopsis "Unified interface to MIME encoding and decoding")
|
||
(description "This module wraps MIME::Base64 and MIME::QuotedPrint.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public perl-email-sender
|
||
(package
|
||
(name "perl-email-sender")
|
||
(version "1.300035")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
|
||
"Email-Sender-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "0yfssp3rqdx1dmgvnygarzgkpkhqm28r5sd0gh87ksk8yxndhjql"))))
|
||
(build-system perl-build-system)
|
||
(native-inputs
|
||
`(("perl-capture-tiny" ,perl-capture-tiny)))
|
||
(propagated-inputs
|
||
`(("perl-email-abstract" ,perl-email-abstract)
|
||
("perl-email-address" ,perl-email-address)
|
||
("perl-email-simple" ,perl-email-simple)
|
||
("perl-list-moreutils" ,perl-list-moreutils)
|
||
("perl-module-runtime" ,perl-module-runtime)
|
||
("perl-moo" ,perl-moo)
|
||
("perl-moox-types-mooselike" ,perl-moox-types-mooselike)
|
||
("perl-sub-exporter" ,perl-sub-exporter)
|
||
("perl-throwable" ,perl-throwable)
|
||
("perl-try-tiny" ,perl-try-tiny)))
|
||
(home-page "https://metacpan.org/release/Email-Sender")
|
||
(synopsis "Perl library for sending email")
|
||
(description "Email::Sender replaces the old and sometimes problematic
|
||
Email::Send library.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public perl-email-simple
|
||
(package
|
||
(name "perl-email-simple")
|
||
(version "2.216")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
|
||
"Email-Simple-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1m4brbjvalyp5kjqslqv4155dzwg977shxin208i7lc8236n6pyq"))))
|
||
(build-system perl-build-system)
|
||
(propagated-inputs
|
||
`(("perl-email-date-format" ,perl-email-date-format)))
|
||
(home-page "https://metacpan.org/release/Email-Simple")
|
||
(synopsis "Parsing of RFC 2822 messages")
|
||
(description "Email::Simple provides simple parsing of RFC 2822 message
|
||
format and headers.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public libesmtp
|
||
(package
|
||
(name "libesmtp")
|
||
(version "1.0.6")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (list (string-append "https://pkgs.fedoraproject.org/repo/pkgs/"
|
||
"libesmtp/libesmtp-" version ".tar.bz2/"
|
||
"bf3915e627fd8f35524a8fdfeed979c8/libesmtp-"
|
||
version ".tar.bz2")
|
||
;; XXX This site is offline, so we fetch Fedora's cached copy
|
||
;; of the source tarball.
|
||
(string-append "http://www.stafford.uklinux.net/libesmtp/libesmtp-"
|
||
version ".tar.bz2")))
|
||
(sha256
|
||
(base32
|
||
"02zbniyz7qys1jmx3ghx21kxmns1wc3hmv80gp7ag7yra9f1m9nh"))))
|
||
(build-system gnu-build-system)
|
||
(propagated-inputs
|
||
`(("openssl" ,openssl)))
|
||
(home-page "http://www.stafford.uklinux.net/libesmtp/")
|
||
(synopsis "Library for sending mail via remote hosts using SMTP")
|
||
(description "libESMTP is an SMTP client which manages posting (or
|
||
submission of) electronic mail via a preconfigured Mail Transport Agent (MTA).
|
||
It may be used as part of a Mail User Agent (MUA) or other program that must
|
||
be able to post electronic mail where mail functionality may not be that
|
||
program's primary purpose.")
|
||
(license (list license:lgpl2.1+ license:gpl2+))))
|
||
|
||
(define-public esmtp
|
||
(package
|
||
(name "esmtp")
|
||
(version "1.2")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/andywingo/esmtp")
|
||
(commit "01bf9fc")))
|
||
(sha256
|
||
(base32
|
||
"1ay282rrl92h0m0m8z5zzjnwiiagi7c78aq2qvhia5mw7prwfyw2"))
|
||
(file-name (string-append name "-" version "-checkout"))))
|
||
(arguments
|
||
`(#:phases (modify-phases %standard-phases
|
||
(replace 'bootstrap
|
||
(lambda _ (invoke "autoreconf" "-vfi"))))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("bison" ,bison)
|
||
("flex" ,flex)
|
||
("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)))
|
||
(inputs
|
||
`(("libesmtp" ,libesmtp)))
|
||
(home-page "https://sourceforge.net/projects/esmtp/")
|
||
(synopsis "Relay-only mail transfer agent (MTA)")
|
||
(description "Esmtp is a simple relay-only mail transfer agent built using
|
||
libESMTP. It sends e-mail via a remote SMTP server using credentials from the
|
||
user's @file{$HOME/.esmtprc} configuration file; see the @command{esmtprc} man
|
||
page for more on configuration. This package also provides minimal
|
||
compatibility shims for the @command{sendmail}, @command{mailq}, and
|
||
@command{newaliases} commands.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public fdm
|
||
(package
|
||
(name "fdm")
|
||
(version "2.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/nicm/fdm/releases/download/"
|
||
version "/fdm-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "196fs1z8y7p12wmqn1bylzz94szl58yv2aby3p30nmwjnyv8rch6"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("tdb" ,tdb)
|
||
("openssl" ,openssl)
|
||
("zlib" ,zlib)))
|
||
(home-page "https://github.com/nicm/fdm")
|
||
(synopsis "Mail Retrieval Agent (MRA) and Mail Delivery Agent (MDA)")
|
||
(description "fdm is a program designed to fetch mail from POP3
|
||
or IMAP servers, or receive local mail from stdin, and
|
||
deliver it in various ways.")
|
||
(license
|
||
;; Why point to a source file? Well, all the individual files have a
|
||
;; copy of this license in their headers, but there's no seprate file
|
||
;; with that information.
|
||
(license:non-copyleft
|
||
"https://github.com/nicm/fdm/blob/master/command.c"))))
|
||
|
||
|
||
(define-public procmail
|
||
(package
|
||
(name "procmail")
|
||
(version "3.22")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"ftp://ftp.fu-berlin.de/pub/unix/mail/procmail/procmail-"
|
||
version
|
||
".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"05z1c803n5cppkcq99vkyd5myff904lf9sdgynfqngfk9nrpaz08"))
|
||
;; The following patch fixes an ambiguous definition of
|
||
;; getline() in formail.c. The patch is provided by Debian as
|
||
;; patch 24.
|
||
(patches (search-patches "procmail-ambiguous-getline-debian.patch"
|
||
"procmail-CVE-2014-3618.patch"
|
||
"procmail-CVE-2017-16844.patch"))))
|
||
(arguments
|
||
`(#:phases (modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda _
|
||
(substitute* "Makefile"
|
||
(("/bin/sh")
|
||
(which "sh"))
|
||
(("/usr")
|
||
(assoc-ref %outputs "out"))
|
||
(("/bin/rm")
|
||
(which "rm")))
|
||
#t)))
|
||
#:tests? #f)) ;; There are no tests indicating a successful
|
||
;; build. Some tests of basic locking mechanisms provided by the
|
||
;; file system are performed during 'make install'. However, these
|
||
;; are performed before the actual build process.
|
||
(build-system gnu-build-system)
|
||
(inputs `(("exim" ,exim)))
|
||
(home-page "http://www.procmail.org/")
|
||
(synopsis "Versatile mail delivery agent (MDA)")
|
||
(description "Procmail is a mail delivery agent (MDA) featuring support
|
||
for a variety of mailbox formats such as mbox, mh and maildir. Incoming mail
|
||
can be sorted into separate files/directories and arbitrary commands can be
|
||
executed on mail arrival. Procmail is considered stable, but is no longer
|
||
maintained.")
|
||
(license license:gpl2+))) ;; procmail allows to choose the
|
||
;; nonfree Artistic License 1.0
|
||
;; as alternative to the GPL2+.
|
||
;; This option is not listed here.
|
||
|
||
(define-public khard
|
||
(package
|
||
(name "khard")
|
||
(version "0.17.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri name version))
|
||
(sha256
|
||
(base32
|
||
"062nv4xkfsjc11k9m52dh6xjn9z68a4a6x1s8z05wwv4jbp1lkhn"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'install-completions
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(zsh (string-append out "/share/zsh/site-functions")))
|
||
(copy-recursively "misc/zsh" zsh)
|
||
#t))))))
|
||
(native-inputs
|
||
`(("python-setuptools-scm" ,python-setuptools-scm)))
|
||
(inputs
|
||
`(("python-atomicwrites" ,python-atomicwrites)
|
||
("python-configobj" ,python-configobj)
|
||
("python-ruamel.yaml" ,python-ruamel.yaml)
|
||
("python-unidecode" ,python-unidecode)
|
||
("python-vobject" ,python-vobject)))
|
||
(synopsis "Console address book using CardDAV")
|
||
(description "Khard is an address book for the console. It creates, reads,
|
||
modifies and removes CardDAV address book entries at your local machine. For
|
||
synchronizing with a remote address book, @command{vdirsyncer} is recommended.
|
||
Khard can also be used from within the email client @command{mutt}.")
|
||
(home-page "https://github.com/scheibler/khard")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public perl-mail-spf
|
||
(package
|
||
(name "perl-mail-spf")
|
||
(version "2.9.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://cpan/authors/id/J/JM/JMEHNLE/mail-spf/Mail-SPF-v"
|
||
version
|
||
".tar.gz"))
|
||
(sha256
|
||
(base32 "0qk1rfgfm5drj4iyniiabrasrpqv570vzhgz66lwgb67y4amkjv1"))))
|
||
(build-system perl-build-system)
|
||
(native-inputs
|
||
`(("perl-module-build" ,perl-module-build)
|
||
("perl-net-dns-resolver-programmable"
|
||
,perl-net-dns-resolver-programmable)))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'modify-Build.PL
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(substitute* "Build.PL"
|
||
(("'/usr/sbin'") (string-append "'"
|
||
(assoc-ref outputs "out")
|
||
"/sbin'")))
|
||
#t)))))
|
||
(inputs
|
||
`(("perl-error" ,perl-error)
|
||
("perl-net-dns" ,perl-net-dns)
|
||
("perl-netaddr-ip" ,perl-netaddr-ip)
|
||
("perl-uri" ,perl-uri)))
|
||
(home-page "https://metacpan.org/release/Mail-SPF")
|
||
(synopsis "Perl implementation of Sender Policy Framework")
|
||
(description "Mail::SPF is the Sender Policy Framework implemented
|
||
in Perl.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public perl-mail-authenticationresults
|
||
(package
|
||
(name "perl-mail-authenticationresults")
|
||
(version "1.20180923")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://cpan/authors/id/M/MB/MBRADSHAW/"
|
||
"Mail-AuthenticationResults-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1g1wym9vcbhldwvi4w5pl0fhd4jh2icj975awf4wr5xmkli9mxbz"))))
|
||
(build-system perl-build-system)
|
||
(native-inputs
|
||
`(("perl-test-exception" ,perl-test-exception)))
|
||
(home-page "https://metacpan.org/release/Mail-AuthenticationResults")
|
||
(synopsis "Object Oriented Authentication-Results Headers")
|
||
(description "Mail::AuthenticationResults parses the message header field
|
||
that indicates the message authentication status as per RFC7601. This module
|
||
is not fully compliant with the RFC but it tries to implement most styles of
|
||
Authentication-Results header seen in the wild.")
|
||
(license license:perl-license)))
|
||
|
||
(define-public perl-mail-dkim
|
||
(package
|
||
(name "perl-mail-dkim")
|
||
(version "0.58")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://cpan/authors/id/M/MB/MBRADSHAW/Mail-DKIM-"
|
||
version
|
||
".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0cgkal65qqcy57b21lgij90ba36wl66byw9i76g5yhwaa8ms8hqa"))))
|
||
(build-system perl-build-system)
|
||
(propagated-inputs
|
||
`(("perl-crypt-openssl-rsa" ,perl-crypt-openssl-rsa)
|
||
("perl-mail-authenticationresults" ,perl-mail-authenticationresults)
|
||
("perl-mailtools" ,perl-mailtools)
|
||
("perl-net-dns" ,perl-net-dns)))
|
||
(native-inputs
|
||
`(("perl-net-dns-resolver-mock" ,perl-net-dns-resolver-mock)
|
||
("perl-test-requiresinternet" ,perl-test-requiresinternet)
|
||
("perl-yaml-libyaml" ,perl-yaml-libyaml)))
|
||
(home-page "https://metacpan.org/release/Mail-DKIM")
|
||
(synopsis "Signs/verifies Internet mail with DKIM/DomainKey signatures")
|
||
(description "Mail::DKIM is a Perl module that implements the new Domain
|
||
Keys Identified Mail (DKIM) standard, and the older Yahoo! DomainKeys standard,
|
||
both of which sign and verify emails using digital signatures and DNS records.
|
||
Mail-DKIM can be used by any Perl program that wants to provide support for
|
||
DKIM and/or DomainKeys.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public dkimproxy
|
||
(package
|
||
(name "dkimproxy")
|
||
(version "1.4.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://sourceforge/dkimproxy/dkimproxy/"
|
||
version "/dkimproxy-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1gc5c7lg2qrlck7b0lvjfqr824ch6jkrzkpsn0gjvlzg7hfmld75"))
|
||
(patches
|
||
(search-patches "dkimproxy-add-ipv6-support.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'make-wrapper
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(wrap.pl (lambda (scripts keys)
|
||
(for-each
|
||
(lambda (script)
|
||
(wrap-program (string-append out script)
|
||
`("PERL5LIB" ":" prefix
|
||
,(map (λ (input)
|
||
(string-append
|
||
(assoc-ref inputs input)
|
||
"/lib/perl5/site_perl"))
|
||
keys))))
|
||
scripts))))
|
||
(wrap.pl (list "/bin/dkimproxy.in"
|
||
"/bin/dkimproxy.out")
|
||
(list "perl-crypt-openssl-rsa"
|
||
"perl-io-socket-inet6"
|
||
"perl-mailtools"
|
||
"perl-mail-authenticationresults"
|
||
"perl-mail-dkim"
|
||
"perl-net-dns"
|
||
"perl-net-server"
|
||
"perl-socket6"))
|
||
(wrap.pl (list "/bin/dkim_responder.pl")
|
||
(list "perl-crypt-openssl-rsa"
|
||
"perl-mail-dkim"
|
||
"perl-mailtools"
|
||
"perl-mime-tools"
|
||
"perl-net-dns"
|
||
"perl-timedate"))
|
||
#t))))))
|
||
(inputs
|
||
`(("perl" ,perl)
|
||
("perl-crypt-openssl-rsa" ,perl-crypt-openssl-rsa)
|
||
("perl-io-socket-inet6" ,perl-io-socket-inet6)
|
||
("perl-mailtools" ,perl-mailtools)
|
||
("perl-mail-authenticationresults" ,perl-mail-authenticationresults)
|
||
("perl-mail-dkim" ,perl-mail-dkim)
|
||
("perl-mime-tools" ,perl-mime-tools)
|
||
("perl-net-dns" ,perl-net-dns)
|
||
("perl-net-server" ,perl-net-server)
|
||
("perl-socket6" ,perl-socket6)
|
||
("perl-timedate" ,perl-timedate)))
|
||
(home-page "http://dkimproxy.sourceforge.net/")
|
||
(synopsis "SMTP proxy to sign and verify Internet mail with DKIM headers")
|
||
(description
|
||
"DKIMproxy is an SMTP proxy that signs and verifies Internet mail using the
|
||
@code{Mail::DKIM} Perl module. It comprises two separate proxies: an outbound
|
||
proxy for signing outgoing email, and an inbound proxy for verifying signatures
|
||
of incoming messages.
|
||
|
||
It was designed for Postfix, but can be used to add DKIM support to nearly any
|
||
existing mail server. With Postfix, the proxies can operate as either
|
||
@code{Before-Queue} or @code{After-Queue} content filters.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public mb2md
|
||
(package
|
||
(name "mb2md")
|
||
(version "3.20")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://batleth.sapienti-sat.org/projects/mb2md/mb2md-"
|
||
version ".pl.gz"))
|
||
(sha256
|
||
(base32
|
||
"0bvkky3c90738h3skd2f1b2yy5xzhl25cbh9w2dy97rs86ssjidg"))))
|
||
(build-system trivial-build-system)
|
||
(arguments
|
||
'(#:modules ((guix build utils))
|
||
#:builder
|
||
(begin
|
||
(use-modules (guix build utils))
|
||
(let* ((source (assoc-ref %build-inputs "source"))
|
||
(out (assoc-ref %outputs "out"))
|
||
(bin (string-append out "/bin"))
|
||
(perl (assoc-ref %build-inputs "perl"))
|
||
(gzip (assoc-ref %build-inputs "gzip"))
|
||
(perl-timedate (assoc-ref %build-inputs "perl-timedate"))
|
||
(perl5lib (string-append perl-timedate "/lib/perl5/site_perl")))
|
||
(mkdir-p bin)
|
||
(with-directory-excursion bin
|
||
(copy-file source "mb2md.gz")
|
||
(invoke (string-append gzip "/bin/gzip") "-d" "mb2md.gz")
|
||
(substitute* "mb2md"
|
||
(("#!/usr/bin/perl")
|
||
(string-append "#!/usr/bin/perl -I " perl5lib)))
|
||
(patch-shebang "mb2md" (list (string-append perl "/bin")))
|
||
(chmod "mb2md" #o555))
|
||
#t))))
|
||
(native-inputs `(("gzip" ,gzip)))
|
||
(inputs `(("perl" ,perl)
|
||
("perl-timedate" ,perl-timedate)))
|
||
(home-page "http://batleth.sapienti-sat.org/projects/mb2md/")
|
||
(synopsis "Mbox to maildir converter")
|
||
(description
|
||
"Mb2md is a Perl script that takes one or more mbox format files and
|
||
converts them to maildir format directories.")
|
||
(license license:public-domain)))
|
||
|
||
(define-public mblaze
|
||
(package
|
||
(name "mblaze")
|
||
(version "1.1")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/leahneukirchen/mblaze")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1bir977vnqs76g8jgv1yivqw0wk2kn56l3l5r4w2ipix3fir138y"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("perl" ,perl)))
|
||
(arguments
|
||
`(#:tests? #f ; XXX: Upstream tests appear to be broken
|
||
#:make-flags (list (string-append "CC=" ,(cc-for-target))
|
||
"PREFIX="
|
||
(string-append "DESTDIR=" %output))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure))))
|
||
(home-page "https://github.com/leahneukirchen/mblaze")
|
||
(synopsis "Unix utilities to deal with Maildir")
|
||
(description
|
||
"The mblaze message system is a set of Unix utilities for processing and
|
||
interacting with mail messages which are stored in maildir folders.
|
||
|
||
Its design is roughly inspired by MH, the RAND Message Handling System, but it
|
||
is a complete implementation from scratch.
|
||
|
||
mblaze is a classic command line MUA and has no features for receiving or
|
||
transferring messages; you can operate on messages in a local maildir spool,
|
||
or fetch your messages using fdm(1), getmail(1), offlineimap(1), or similar
|
||
utilities, and send it using dma(8), msmtp(1), sendmail(8), as provided by
|
||
OpenSMTPD, Postfix, or similar.
|
||
|
||
mblaze operates directly on maildir folders and doesn't use its own caches or
|
||
databases. There is no setup needed for many uses. All utilities have been
|
||
written with performance in mind. Enumeration of all messages in a maildir is
|
||
avoided unless necessary, and then optimized to limit syscalls. Parsing
|
||
message metadata is optimized to limit I/O requests. Initial operations on a
|
||
large maildir may feel slow, but as soon as they are in the file system cache,
|
||
everything is blazingly fast. The utilities are written to be memory
|
||
efficient (i.e. not wasteful), but whole messages are assumed to fit into RAM
|
||
easily (one at a time).")
|
||
(license (list license:public-domain
|
||
license:expat)))) ; mystrverscmp.c and mymemmem
|
||
|
||
(define-public mpop
|
||
(package
|
||
(name "mpop")
|
||
(version "1.4.12")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://marlam.de/mpop/releases/"
|
||
"mpop-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "02j8qfd44dfyq1sq7r9znj9y6wam39ncch1sc8chcdlw5nsmaqsz"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("gnutls" ,gnutls)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(home-page "https://marlam.de/mpop/")
|
||
(synopsis "POP3 mail client")
|
||
(description "mpop is a small and fast POP3 client suitable as a
|
||
fetchmail replacement.
|
||
|
||
mpop supports multiple accounts, header based mail filtering, delivery
|
||
to mbox files, maildir folders or an @acronym{MDA, Mail Delivery Agent},
|
||
TLS/SSL, several authentication methods, @acronym{IDN, Internationalized Domain
|
||
Names} and SOCKS proxies.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public mhonarc
|
||
(package
|
||
(name "mhonarc")
|
||
(version "2.6.19")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/E/EH/EHOOD/MHonArc-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0ll3v93yji334zqp6xfzfxc0127pmjcznmai1l5q6dzawrs2igzq"))))
|
||
(build-system perl-build-system)
|
||
(home-page "https://www.mhonarc.org/")
|
||
(synopsis "Create HTML archives of mail/news messages")
|
||
(description
|
||
"MHonArc is a Perl mail-to-HTML converter. MHonArc
|
||
provides HTML mail archiving with index, mail thread linking,
|
||
etc; plus other capabilities including support for MIME and
|
||
powerful user customization features.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public sendmail
|
||
(package
|
||
(name "sendmail")
|
||
(version "8.15.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"ftp://ftp.sendmail.org/pub/sendmail/sendmail."
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0fdl9ndmspqspdlmghzxlaqk56j3yajk52d7jxcg21b7sxglpy94"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'build 'replace-/bin/sh
|
||
(lambda _
|
||
(substitute*
|
||
(append
|
||
(list "smrsh/smrsh.c" "sendmail/conf.c" "contrib/mailprio"
|
||
"contrib/mmuegel" "devtools/bin/configure.sh")
|
||
(find-files "." ".*\\.m4")
|
||
(find-files "." ".*\\.cf"))
|
||
(("/bin/sh") (which "sh")))
|
||
|
||
(substitute* "devtools/bin/Build"
|
||
(("SHELL=/bin/sh") (string-append "SHELL=" (which "sh"))))
|
||
#t))
|
||
(replace 'configure
|
||
(lambda _
|
||
|
||
;; Render harmless any attempts to chown or chgrp
|
||
(substitute* "devtools/bin/install.sh"
|
||
(("owner=\\$2") "owner=''")
|
||
(("group=\\$2") "group=''"))
|
||
|
||
(with-output-to-file "devtools/Site/site.config.m4"
|
||
(lambda ()
|
||
(format #t "
|
||
define(`confCC', `gcc')
|
||
define(`confOPTIMIZE', `-g -O2')
|
||
define(`confLIBS', `-lresolv')
|
||
define(`confINSTALL', `~a/devtools/bin/install.sh')
|
||
define(`confDEPEND_TYPE', `CC-M')
|
||
define(`confINST_DEP', `')
|
||
" (getcwd))))
|
||
#t))
|
||
(replace 'build
|
||
(lambda _
|
||
(invoke "sh" "Build")
|
||
(with-directory-excursion "cf/cf"
|
||
(copy-file "generic-linux.mc" "sendmail.mc")
|
||
(invoke "sh" "Build" "sendmail.cf"))
|
||
#t))
|
||
(add-before 'install 'pre-install
|
||
(lambda _
|
||
(let ((out (assoc-ref %outputs "out")))
|
||
(mkdir-p (string-append out "/usr/bin"))
|
||
(mkdir-p (string-append out "/usr/sbin"))
|
||
(mkdir-p (string-append out "/etc/mail"))
|
||
(setenv "DESTDIR" out)
|
||
(with-directory-excursion "cf/cf"
|
||
(invoke "sh" "Build" "install-cf"))
|
||
#t))))
|
||
;; There is no make check. There are some post installation tests, but those
|
||
;; require root privileges
|
||
#:tests? #f))
|
||
(inputs
|
||
`(("m4" ,m4)
|
||
("perl" ,perl)))
|
||
(home-page "http://sendmail.org")
|
||
(synopsis
|
||
"Highly configurable Mail Transfer Agent (MTA)")
|
||
(description
|
||
"Sendmail is a mail transfer agent (MTA) originally developed by Eric
|
||
Allman. It is highly configurable and supports many delivery methods and many
|
||
transfer protocols.")
|
||
(license (license:non-copyleft "file://LICENSE"
|
||
"See LICENSE in the distribution."))))
|
||
|
||
(define-public sieve-connect
|
||
(package
|
||
(name "sieve-connect")
|
||
(version "0.90")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://people.spodhuis.org/phil.pennock/software/"
|
||
"sieve-connect-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "00vnyzr67yr2ilnprbd388gfnwmrmbdx1jsig9d0n5q902jqn62a"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:make-flags
|
||
(list (string-append "PREFIX=" (assoc-ref %outputs "out")))
|
||
#:tests? #f ; no test suite
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure) ; no configure script
|
||
(add-before 'install 'create-output-directories
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(for-each (lambda (subdirectory)
|
||
(mkdir-p (string-append out "/" subdirectory)))
|
||
(list "bin"
|
||
"man/man1"))
|
||
#t)))
|
||
(add-after 'install 'wrap-program
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(path (getenv "PERL5LIB")))
|
||
(wrap-script (string-append out "/bin/sieve-connect")
|
||
`("PERL5LIB" ":" = (,path)))
|
||
#t))))))
|
||
(inputs
|
||
`(("guile" ,guile-3.0) ; for wrap-script
|
||
("perl" ,perl)
|
||
("perl-authen-sasl" ,perl-authen-sasl)
|
||
("perl-io-socket-inet6" ,perl-io-socket-inet6)
|
||
("perl-io-socket-ssl" ,perl-io-socket-ssl)
|
||
("perl-net-dns" ,perl-net-dns)
|
||
("perl-socket6" ,perl-socket6)
|
||
("perl-term-readkey" ,perl-term-readkey)
|
||
("perl-term-readline" ,perl-term-readline-gnu)))
|
||
(home-page
|
||
"https://people.spodhuis.org/phil.pennock/software/#sieve-connect")
|
||
(synopsis "ManageSieve client for managing Sieve e-mail filters")
|
||
(description
|
||
"Sieve-connect lets you view, upload, edit, delete, and otherwise manage
|
||
Sieve scripts on any mail server that speaks the @dfn{ManageSieve} protocol,
|
||
as specified in RFC 5804.
|
||
|
||
@dfn{Sieve} (RFC 5228) is a specialised language for e-mail filtering. Sieve
|
||
scripts are stored on the server and run whenever mail arrives. They can
|
||
automatically sort new messages into folders, silently reject them, send an
|
||
automated response, and more.
|
||
|
||
@command{sieve-connect} is designed to be both a tool which can be invoked
|
||
from scripts as well as a decent interactive client. It supports TLS for
|
||
connection privacy, as well as authentication with SASL or GSSAPI client
|
||
certificates. It should be a drop-in replacement for @command{sieveshell}
|
||
from the Cyrus IMAP project.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public opensmtpd
|
||
(package
|
||
(name "opensmtpd")
|
||
(version "6.8.0p2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://www.opensmtpd.org/archives/"
|
||
"opensmtpd-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "05sd7bmq29ibnqbl2z53hiyprfxzf0qydfdaixs68rz55wqhbgsi"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("bdb" ,bdb)
|
||
("libasr" ,libasr)
|
||
("libevent" ,libevent)
|
||
("libressl" ,libressl) ; recommended, and supports e.g. ECDSA
|
||
("linux-pam" ,linux-pam)
|
||
("zlib" ,zlib)))
|
||
(native-inputs
|
||
`(("bison" ,bison)
|
||
("groff" ,groff))) ; for man pages
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--localstatedir=/var"
|
||
;; This is the default only if it exists at build time—it doesn't.
|
||
"--with-path-socket=/var/run"
|
||
"--with-path-CAfile=/etc/ssl/certs/ca-certificates.crt"
|
||
"--with-user-smtpd=smtpd"
|
||
"--with-user-queue=smtpq" "--with-group-queue=smtpq"
|
||
"--with-auth-pam"
|
||
"--with-table-db")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
;; See: https://github.com/OpenSMTPD/OpenSMTPD/issues/1069.
|
||
(add-after 'unpack 'fix-smtpctl-encrypt-bug
|
||
(lambda _
|
||
(substitute* "usr.sbin/smtpd/smtpctl.c"
|
||
(("\"encrypt\", \"--\",")
|
||
"\"encrypt\","))
|
||
#t))
|
||
;; Fix some incorrectly hard-coded external tool file names.
|
||
(add-after 'unpack 'patch-FHS-file-names
|
||
(lambda _
|
||
(substitute* "usr.sbin/smtpd/smtpctl.c"
|
||
;; ‘gzcat’ is auto-detected at compile time, but ‘cat’ isn't.
|
||
(("/bin/cat") (which "cat")))
|
||
(substitute* "usr.sbin/smtpd/mda_unpriv.c"
|
||
(("/bin/sh") (which "sh")))
|
||
#t))
|
||
;; OpenSMTPD provides a single smtpctl utility to control both the
|
||
;; daemon and the local submission subsystem. To accomodate systems
|
||
;; that require historical interfaces such as sendmail, newaliases or
|
||
;; makemap, smtpctl operates in compatibility mode if called with the
|
||
;; historical name.
|
||
(add-after 'install 'install-compability-links
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(sbin (string-append out "/sbin/")))
|
||
(for-each (lambda (command)
|
||
(symlink "smtpctl" (string-append sbin command)))
|
||
(list "mailq" "makemap" "newaliases"
|
||
"send-mail" "sendmail")))
|
||
#t)))))
|
||
(synopsis "Lightweight SMTP daemon")
|
||
(description
|
||
"OpenSMTPD is an implementation of server-side @acronym{SMTP, Simple Mail
|
||
Transfer Protocol}, with some additional standard extensions. It allows
|
||
ordinary machines to exchange e-mails with other systems speaking the SMTP
|
||
protocol, or to deliver them to local users.
|
||
|
||
In order to simplify the use of SMTP, OpenSMTPD implements a smaller set of
|
||
functionality than those available in other SMTP daemons. The objective is to
|
||
provide enough features to satisfy typical usage at the risk of unsuitability
|
||
to esoteric or niche requirements.")
|
||
(home-page "https://www.opensmtpd.org")
|
||
(license (list license:bsd-2 license:bsd-3 license:bsd-4
|
||
(license:non-copyleft "file://COPYING")
|
||
license:public-domain license:isc license:openssl))))
|
||
|
||
(define-public opensmtpd-extras
|
||
(package
|
||
(name "opensmtpd-extras")
|
||
(version "6.7.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://www.opensmtpd.org/archives/"
|
||
"opensmtpd-extras-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1b1mx71bvmv92lbm08wr2p60g3qhikvv3n15zsr6dcwbk9aqahzq"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("libressl" ,libressl)
|
||
("libevent" ,libevent)
|
||
("mysql" ,mysql)
|
||
("opensmtpd" ,opensmtpd)
|
||
("postgresql" ,postgresql)
|
||
("python" ,python-2)
|
||
("sqlite" ,sqlite)))
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--sysconfdir=/etc"
|
||
"--localstatedir=/var"
|
||
|
||
"--with-queue-null"
|
||
"--with-queue-python"
|
||
"--with-queue-ram"
|
||
"--with-queue-stub"
|
||
|
||
"--with-table-ldap"
|
||
"--with-table-mysql"
|
||
"--with-table-postgres"
|
||
;; "--with-table-redis" ; TODO: package hiredis
|
||
"--with-table-socketmap"
|
||
"--with-table-passwd"
|
||
"--with-table-python"
|
||
"--with-table-sqlite"
|
||
"--with-table-stub"
|
||
|
||
"--with-scheduler-ram"
|
||
"--with-scheduler-stub"
|
||
"--with-scheduler-python"
|
||
|
||
"--with-user-smtpd=smtpd"
|
||
|
||
;; We have to configure it like this because the default checks for
|
||
;; for example Python in /usr/{,local/}bin and fails otherwise.
|
||
(string-append "--with-python="
|
||
(assoc-ref %build-inputs "python")))))
|
||
(home-page "https://www.opensmtpd.org")
|
||
(synopsis "Extra tables, filters, and various other addons for OpenSMTPD")
|
||
(description
|
||
"This package provides extra tables, filters, and various other addons
|
||
for OpenSMTPD to extend its functionality.")
|
||
(license (list license:bsd-2 license:bsd-3 ; openbsd-compat
|
||
license:isc)))) ; everything else
|
||
|
||
(define libopensmtpd
|
||
;; Private source dependency of opensmtpd-filter-dkimsign (by the same
|
||
;; author), until any project actually uses it in its compiled form.
|
||
(let ((revision 48))
|
||
(package
|
||
(name "libopensmtpd")
|
||
(version (format #f "0.0.0-~a" revision))
|
||
(source
|
||
(origin
|
||
(method svn-fetch)
|
||
(uri (svn-reference
|
||
(url "http://imperialat.at/dev/libopensmtpd/")
|
||
(revision revision)))
|
||
(sha256
|
||
(base32 "04fgibpi6q0c3468ww3z7gsvraz0gyfps0c2dj8mdyri636c0x0s"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:make-flags
|
||
(list "-f" "Makefile.gnu"
|
||
(string-append "CC=" ,(cc-for-target))
|
||
(string-append "LOCALBASE=" (assoc-ref %outputs "out")))
|
||
#:tests? #f ; no test suite
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'inherit-ownership
|
||
(lambda _
|
||
(substitute* "Makefile.gnu"
|
||
(("-o \\$\\{BINOWN\\} -g \\$\\{BINGRP\\}") ""))
|
||
#t))
|
||
(delete 'configure) ; no configure script
|
||
(add-before 'install 'create-output-directories
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(mkdir-p (string-append out "/lib"))
|
||
#t)))
|
||
(add-after 'install 'install-header-file
|
||
(lambda* (#:key make-flags outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(mkdir-p (string-append out "/include"))
|
||
(apply invoke "make" "includes" make-flags))))
|
||
(add-after 'install 'install-man-page
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(man3 (string-append out "/share/man/man3")))
|
||
;; There is no make target for this.
|
||
(install-file "osmtpd_run.3" man3)
|
||
#t))))))
|
||
(inputs
|
||
`(("libevent" ,libevent)))
|
||
(home-page "http://imperialat.at/dev/libopensmtpd/")
|
||
(synopsis "OpenSMTPd filter C API")
|
||
(description
|
||
"The @code{osmtpd} API is an event-based C programming interface for
|
||
writing OpenSMTPd filters.")
|
||
(license license:expat))))
|
||
|
||
(define-public opensmtpd-filter-dkimsign
|
||
(package
|
||
(name "opensmtpd-filter-dkimsign")
|
||
;; The .arch repackaging provides not only a usable Makefile, but patches
|
||
;; the source to actually build on GNU, e.g., by making pledge() optional.
|
||
;; It's effectively the portable branch that upstream lacks at this time.
|
||
(version "0.2.arch2") ; also update both native-inputs
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/de-vri-es/filter-dkimsign")
|
||
(commit (string-append "v" version))))
|
||
(sha256
|
||
(base32 "1dv6184h0gq2safnc7ln4za3arbafzc1xwkgwmiihqcjvdyxig0c"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:make-flags
|
||
(list (string-append "CC=" ,(cc-for-target)))
|
||
#:tests? #f ; no test suite
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'unpack
|
||
(lambda* (#:key source inputs #:allow-other-keys)
|
||
(copy-recursively source "filter-dkimsign")
|
||
(copy-recursively (assoc-ref inputs "libopensmtpd-source")
|
||
"libopensmtpd")
|
||
(copy-file (assoc-ref inputs "Makefile") "Makefile")
|
||
#t))
|
||
(delete 'configure) ; no configure script
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(libexec (string-append out "/libexec/opensmtpd"))
|
||
(man8 (string-append out "/share/man/man8")))
|
||
(chdir "filter-dkimsign")
|
||
(install-file "filter-dkimsign" libexec)
|
||
(install-file "filter-dkimsign.8" man8)
|
||
#t))))))
|
||
(native-inputs
|
||
`(("Makefile"
|
||
,(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://aur.archlinux.org/cgit/aur.git/plain/Makefile"
|
||
"?h=opensmtpd-filter-dkimsign"
|
||
"&id=58393470477a2ff2a58f9d72f5d851698067539f"))
|
||
(sha256
|
||
(base32 "0da5qr9hfjkf07ybvfva967njmf2x0b82z020r6v5f93jzsbqx92"))
|
||
(file-name (string-append name "-" version "-Makefile"))))
|
||
("libopensmtpd-source" ,(package-source libopensmtpd))))
|
||
(inputs
|
||
`(("libevent" ,libevent)
|
||
("libressl" ,libressl))) ; openssl works too but follow opensmtpd
|
||
(home-page "http://imperialat.at/dev/filter-dkimsign/")
|
||
(synopsis "OpenSMTPd filter for signing mail with DKIM")
|
||
(description
|
||
"The @command{filter-dkimsign} OpenSMTPd filter signs outgoing e-mail
|
||
messages with @acronym{DKIM, DomainKeys Identified Mail} (RFC 4871).")
|
||
(license license:expat)))
|
||
|
||
(define-public mailman
|
||
(package
|
||
(name "mailman")
|
||
(version "3.3.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "mailman" version))
|
||
(sha256
|
||
(base32 "0a5ckbf8hc3y28b7p5psp0d4bxk601jlr5pd3hhh545xd8d9f0dg"))))
|
||
(build-system python-build-system)
|
||
(propagated-inputs
|
||
`(("gunicorn" ,gunicorn)
|
||
("python-aiosmtpd" ,python-aiosmtpd)
|
||
("python-alembic" ,python-alembic)
|
||
("python-atpublic" ,python-atpublic)
|
||
("python-authheaders" ,python-authheaders)
|
||
("python-authres" ,python-authres)
|
||
("python-click" ,python-click)
|
||
("python-dateutil" ,python-dateutil)
|
||
("python-dnspython" ,python-dnspython)
|
||
("python-falcon" ,python-falcon)
|
||
("python-flufl-bounce" ,python-flufl-bounce)
|
||
("python-flufl-i18n" ,python-flufl-i18n)
|
||
("python-flufl-lock" ,python-flufl-lock)
|
||
("python-importlib-resources" ,python-importlib-resources)
|
||
("python-lazr-config" ,python-lazr-config)
|
||
("python-passlib" ,python-passlib)
|
||
("python-requests" ,python-requests)
|
||
("python-sqlalchemy" ,python-sqlalchemy)
|
||
("python-zope-component" ,python-zope-component)
|
||
("python-zope-configuration" ,python-zope-configuration)
|
||
("python-zope-event" ,python-zope-event)
|
||
("python-zope-interface" ,python-zope-interface)))
|
||
(native-inputs
|
||
`(("python-nose" ,python-nose)))
|
||
(home-page "https://www.list.org")
|
||
(synopsis "Mailing list manager")
|
||
(description
|
||
"GNU Mailman is software for managing email discussion and mailing
|
||
lists. Both users and administrators generally perform their actions in a
|
||
web interface, although email and command-line interfaces are also provided.
|
||
The system features built-in archiving, automatic bounce processing, content
|
||
filtering, digest delivery, and more.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public python-mailmanclient
|
||
(package
|
||
(name "python-mailmanclient")
|
||
(version "3.3.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "mailmanclient" version))
|
||
(sha256
|
||
(base32
|
||
"0pjgzpvhdb6ql8asb20xr8d01m646zpghmcp9fmscks0n1k4di4g"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
`(#:tests? #f)) ; Requires mailman running
|
||
(propagated-inputs
|
||
`(("python-requests" ,python-requests)))
|
||
;(native-inputs
|
||
; `(("mailman" ,mailman)
|
||
; ("python-falcon" ,python-falcon)
|
||
; ("python-pytest" ,python-pytest)
|
||
; ("python-pytest-services" ,python-pytest-services)))
|
||
(home-page "https://www.list.org/")
|
||
(synopsis "Python bindings for the Mailman 3 REST API")
|
||
(description
|
||
"The mailmanclient library provides official Python bindings for
|
||
the GNU Mailman 3 REST API.")
|
||
(properties `((python2-variant . ,(delay python2-mailmanclient))))
|
||
(license license:lgpl3+)))
|
||
|
||
;; This is the last version which supports Python-2.
|
||
(define-public python2-mailmanclient
|
||
(let ((base (package-with-python2
|
||
(strip-python2-variant python-mailmanclient))))
|
||
(package
|
||
(inherit base)
|
||
(version "3.1.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "mailmanclient" version))
|
||
(sha256
|
||
(base32
|
||
"0fdfs5g3pf30v2i7w18pdkv9xnfxmfcv66mzv56dck0a1igq07m3"))))
|
||
(propagated-inputs
|
||
`(("python2-six" ,python2-six)
|
||
("python2-httplib2" ,python2-httplib2))))))
|
||
|
||
(define-public mlmmj
|
||
(package
|
||
(name "mlmmj")
|
||
(version "1.3.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://mlmmj.org/releases/mlmmj-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0hpj10qad821ci11si8xc2qnmkzfn90y13s43fm4fca38f0qjp8w"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("perl" ,perl))) ; For "contrib/web/"
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(arguments
|
||
`(#:configure-flags
|
||
;; mlmmj-receive-strip is a replacement for mlmmj-receive
|
||
;; It opens the files control/mimedeny and control/mimestrip to get a list
|
||
;; of mimetypes for parts of multipart/mime messages that should be denied
|
||
;; or stripped. The parts then get stripped directly when the mail is
|
||
;; received. mlmmj-receive-strip also appends an extra header
|
||
;; X-ThisMailContainsUnwantedMimeParts: Y when the mail contains unwanted
|
||
;; mime parts
|
||
(list "--enable-receive-strip")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'install 'install-contrib
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(share (string-append out "/share/mlmmj"))
|
||
(contrib (string-append share "/contrib/web"))
|
||
(texts (string-append share "/listtexts")))
|
||
(copy-recursively "contrib/web/" contrib)
|
||
(copy-recursively "listtexts" texts)
|
||
(rename-file texts (string-append share "/texts"))
|
||
#t))))))
|
||
(home-page "http://mlmmj.org")
|
||
(synopsis "Mailing list managing made joyful")
|
||
(description
|
||
"Mlmmj is a simple and slim mailing list manager (MLM) inspired by ezmlm.
|
||
It works with many different Mail Transport Agents (MTAs) and is simple for a
|
||
system administrator to install, configure and integrate with other software.
|
||
As it uses very few resources, and requires no daemons, it is ideal for
|
||
installation on systems where resources are limited. Its features include:
|
||
@enumerate
|
||
@item Archive, Custom headers / footer,
|
||
@item Fully automated bounce handling (similar to ezmlm),
|
||
@item Complete requeueing functionality, Moderation functionality, Subject prefix,
|
||
@item Subscribers only posting, Regular expression access control,
|
||
@item Functionality to retrieve old posts, Web interface, Digests,
|
||
@item No-mail subscription, VERP support,
|
||
@item Delivery Status Notification (RFC1891) support,
|
||
@item Rich and customisable texts for automated operations.
|
||
@end enumerate\n")
|
||
(license license:expat)))
|
||
|
||
(define-public python-django-mailman3
|
||
(package
|
||
(name "python-django-mailman3")
|
||
(version "1.3.4")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "django-mailman3" version))
|
||
(sha256
|
||
(base32
|
||
"1yrm7wpjy34xai72vn2vkhc9131cdrbqy08rrabf36kynj5vcdvy"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'check
|
||
(lambda _
|
||
(setenv "DJANGO_SETTINGS_MODULE"
|
||
"django_mailman3.tests.settings_test")
|
||
(invoke "django-admin" "test"
|
||
"--pythonpath=."))))))
|
||
(propagated-inputs
|
||
`(("python-django" ,python-django)
|
||
("python-django-allauth" ,python-django-allauth)
|
||
("python-django-gravatar2" ,python-django-gravatar2)
|
||
("python-mailmanclient" ,python-mailmanclient)
|
||
("python-pytz" ,python-pytz)))
|
||
(native-inputs
|
||
`(("python-mock" ,python-mock)))
|
||
(home-page "https://gitlab.com/mailman/django-mailman3")
|
||
(synopsis "Django library to help interaction with Mailman")
|
||
(description
|
||
"This package contains libraries and templates for Django-based interfaces
|
||
interacting with Mailman.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public python-mailman-hyperkitty
|
||
(package
|
||
(name "python-mailman-hyperkitty")
|
||
(version "1.1.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "mailman-hyperkitty" version))
|
||
(sha256
|
||
(base32
|
||
"1lfqa9admhvdv71f528jmz2wl0i5cv77v6l64px2pm4zqr9ckkjx"))
|
||
(patches
|
||
(list
|
||
(origin
|
||
;; see: https://gitlab.com/mailman/mailman-hyperkitty/issues/17
|
||
;; fixes test_archive_message_unserializable
|
||
(method url-fetch)
|
||
(uri "https://salsa.debian.org/mailman-team/mailman-hyperkitty/raw/debian/1.1.0-9/debian/patches/0002-Skip-the-test_archive_message_unserializable.patch")
|
||
(sha256
|
||
(base32
|
||
"0p1fwm46c4bl81lvsg3kjhn2r1lwgkpgxamb3xyqn7h9qdrw10hw")))))))
|
||
(build-system python-build-system)
|
||
(propagated-inputs
|
||
`(("python-requests" ,python-requests)
|
||
("python-zope-interface" ,python-zope-interface)))
|
||
(inputs
|
||
`(("mailman" ,mailman)))
|
||
(native-inputs
|
||
`(("python-mock" ,python-mock)
|
||
("python-nose" ,python-nose)
|
||
("python-nose2" ,python-nose2)))
|
||
(home-page "https://gitlab.com/mailman/mailman-hyperkitty/")
|
||
(synopsis "Mailman archiver plugin for HyperKitty")
|
||
(description
|
||
"Mailman3 allows emails sent to its mailing lists to be archived by any
|
||
software provided that there is a plugin (loadable by Mailman3) designed to
|
||
communicate with it properly. This module contains a Mailman3 archiver plugin
|
||
which sends emails to HyperKitty, the official Mailman3 web archiver.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public python-hyperkitty
|
||
(package
|
||
(name "python-hyperkitty")
|
||
(version "1.3.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "HyperKitty" version))
|
||
(sha256
|
||
(base32
|
||
"0p85r9q6mn5as5b39xp9hkkipnk0156acx540n2ygk3qb3jd4a5n"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'check
|
||
(lambda _
|
||
(setenv "PYTHONPATH" (string-append ".:" (getenv "PYTHONPATH")))
|
||
(invoke "example_project/manage.py" "test"
|
||
"--settings=hyperkitty.tests.settings_test"))))))
|
||
(propagated-inputs
|
||
`(("python-dateutil" ,python-dateutil)
|
||
("python-django" ,python-django-2.2)
|
||
("python-django-compressor" ,python-django-compressor)
|
||
("python-django-extensions" ,python-django-extensions)
|
||
("python-django-gravatar2" ,python-django-gravatar2)
|
||
("python-django-haystack" ,python-django-haystack)
|
||
("python-django-mailman3" ,python-django-mailman3)
|
||
("python-django-q" ,python-django-q)
|
||
("python-djangorestframework" ,python-djangorestframework)
|
||
("python-flufl-lock" ,python-flufl-lock)
|
||
("python-mailmanclient" ,python-mailmanclient)
|
||
("python-networkx" ,python-networkx)
|
||
("python-pytz" ,python-pytz)
|
||
("python-robot-detection" ,python-robot-detection)))
|
||
(native-inputs
|
||
`(("python-beautifulsoup4" ,python-beautifulsoup4)
|
||
("python-elasticsearch" ,python-elasticsearch)
|
||
("python-isort" ,python-isort)
|
||
("python-mock" ,python-mock)
|
||
("python-whoosh" ,python-whoosh)))
|
||
(home-page "https://gitlab.com/mailman/hyperkitty")
|
||
(synopsis "Web interface to access GNU Mailman v3 archives")
|
||
(description
|
||
"The hyperkitty Django app provides a web user interface to access GNU
|
||
Mailman3 archives, and manage it. This interface uses django, and requires
|
||
some configuration.")
|
||
(license license:gpl3))) ; Some files are gpl2+
|
||
|
||
(define-public postorius
|
||
(package
|
||
(name "postorius")
|
||
(version "1.3.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "postorius" version))
|
||
(sha256
|
||
(base32
|
||
"08jn23gblbkfl09qlykbpsmp39mmach3sl69h1j5cd5kkx839rwa"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'check
|
||
(lambda* (#:key inputs outputs tests? #:allow-other-keys)
|
||
(add-installed-pythonpath inputs outputs)
|
||
(if tests?
|
||
(invoke "python" "example_project/manage.py" "test"
|
||
"--settings=test_settings" "postorius")
|
||
#t))))
|
||
#:tests? #f)) ; Tests try to run a mailman instance to test against.
|
||
(inputs
|
||
`(("python-django" ,python-django)
|
||
("python-django-mailman3" ,python-django-mailman3)
|
||
("python-mailmanclient" ,python-mailmanclient)
|
||
("python-readme-renderer" ,python-readme-renderer)))
|
||
(native-inputs
|
||
`(("python-beautifulsoup4" ,python-beautifulsoup4)
|
||
("python-isort" ,python-isort)
|
||
("python-mock" ,python-mock)
|
||
("python-vcrpy" ,python-vcrpy)))
|
||
(home-page "https://gitlab.com/mailman/postorius")
|
||
(synopsis "Web user interface for GNU Mailman")
|
||
(description
|
||
"Postorius is a Django app which provides a web user interface
|
||
to access GNU Mailman.")
|
||
(license (list license:gpl3+ license:lgpl3+))))
|
||
|
||
(define-public blists
|
||
(package
|
||
(name "blists")
|
||
(version "2.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://download.openwall.net/pub/projects/"
|
||
"blists/blists-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1xll5wn7py3bbncbwrj172f56nz75c9gwfsa80rwd96ss9gfmp3c"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; No tests
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin")))
|
||
(install-file "bindex" bin)
|
||
(install-file "bit" bin)
|
||
#t))))))
|
||
(home-page "http://www.openwall.com/blists/")
|
||
(synopsis "Web interface to mailing list archives")
|
||
(description
|
||
"Blists is a web interface to mailing list archives that works off
|
||
indexed mbox files. There are two programs: @code{bindex} and @code{bit}.
|
||
@code{bindex} generates or updates the index file (incremental updates
|
||
are supported). @code{bit} is a CGI/SSI program that generates web pages
|
||
on the fly. Both programs are written in C and are very fast.")
|
||
(license license:expat)))
|
||
|
||
(define-public swaks
|
||
(package
|
||
(name "swaks")
|
||
(version "20201014.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/jetmore/swaks")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "131i2b1yxhnbqkfk4kky40pfanqw2c5lcgbnjhfqp5cvpawpk2ai"))))
|
||
(build-system perl-build-system)
|
||
(inputs
|
||
`(("perl-io-socket-inet6" ,perl-io-socket-inet6)
|
||
("perl-net-dns" ,perl-net-dns)
|
||
("perl-net-ssleay" ,perl-net-ssleay)
|
||
("perl-socket6" ,perl-socket6))) ; used by perl-io-socket-inet6
|
||
(arguments
|
||
`(#:tests? #f ; no tests
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'set-build_version
|
||
(lambda _
|
||
(substitute* "swaks"
|
||
(("\"DEVRELEASE\"") (format #f "\"~a\"" ,version)))
|
||
#true))
|
||
(delete 'configure)
|
||
(replace 'build
|
||
(lambda _
|
||
(invoke "pod2man" "doc/base.pod" "swaks.1")))
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(install-file "swaks" (string-append out "/bin"))
|
||
(install-file "swaks.1" (string-append out "/share/man/man1")))
|
||
#t))
|
||
(add-after 'install 'wrap-program
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(wrap-program (string-append (assoc-ref outputs "out")
|
||
"/bin/swaks")
|
||
`("PERL5LIB" ":" = (,(getenv "PERL5LIB"))))
|
||
#t)))))
|
||
(home-page "https://jetmore.org/john/code/swaks/")
|
||
(synopsis "Featureful SMTP test tool")
|
||
(description "Swaks is a flexible, scriptable, transaction-oriented SMTP
|
||
test tool. It handles SMTP features and extensions such as TLS,
|
||
authentication, and pipelining; multiple versions of the SMTP protocol
|
||
including SMTP, ESMTP, and LMTP; and multiple transport methods including
|
||
unix-domain sockets, internet-domain sockets, and pipes to spawned processes.
|
||
Options can be specified in environment variables, configuration files, and
|
||
the command line allowing maximum configurability and ease of use for
|
||
operators and scripters.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public alpine
|
||
(package
|
||
(name "alpine")
|
||
(version "2.24")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
;; There are two versions: the plain continuation of Alpine without extra
|
||
;; patches and the version which adds extra fixes. Every distro uses
|
||
;; the patched version, and so do we to not break expectations.
|
||
;; http://alpine.freeiz.com/alpine/readme/README.patches
|
||
(uri (git-reference
|
||
(url "http://repo.or.cz/alpine.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0d5ybnsv29gs8krl66db56avmssq28jlg0qj5i1wka05ncc3740d"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
;; Remove pre-built binaries scattered across the source repository.
|
||
(for-each delete-file (find-files "." "\\.(dll|exe)"))
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:make-flags
|
||
(list (string-append "CC=" ,(cc-for-target)))
|
||
#:configure-flags (list (string-append "--with-ssl-include-dir="
|
||
(assoc-ref %build-inputs "openssl")
|
||
"/include/openssl")
|
||
(string-append "--with-ssl-dir="
|
||
(assoc-ref %build-inputs "openssl"))
|
||
(string-append "--with-ssl-certs-dir="
|
||
"/etc/ssl/certs/")
|
||
(string-append "--with-ssl-lib-dir="
|
||
(assoc-ref %build-inputs "openssl")
|
||
"/lib")
|
||
(string-append "--with-interactive-spellcheck="
|
||
(assoc-ref %build-inputs "aspell")
|
||
"/bin/aspell")
|
||
"--with-date-stamp=Thu 1 Jan 01:00:01 CET 1970")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'assume-shadow-passwords
|
||
;; Alpine's configure script confuses ‘shadow password support’ with
|
||
;; ‘/etc/shadow exists in the build environment’. It does not.
|
||
(lambda _
|
||
(substitute* "configure"
|
||
(("test -f /etc/shadow") "true"))
|
||
#t))
|
||
(add-after 'unpack 'make-reproducible
|
||
(lambda _
|
||
;; This removes time-dependent code to make alpine reproducible.
|
||
(substitute* "pico/blddate.c"
|
||
(("%02d-%s-%d") "1970-01-01"))
|
||
#t)))))
|
||
(inputs
|
||
`(("ncurses" ,ncurses)
|
||
("openssl" ,openssl)
|
||
("gnutls" ,gnutls)
|
||
("openldap" ,openldap)
|
||
("cyrus-sasl" ,cyrus-sasl)
|
||
("mit-krb5" ,mit-krb5)
|
||
("aspell" ,aspell)
|
||
("tcl" ,tcl)
|
||
("linux-pam" ,linux-pam)))
|
||
(home-page "https://repo.or.cz/alpine.git")
|
||
(synopsis "Alternatively Licensed Program for Internet News and Email")
|
||
(description
|
||
"Alpine is a text-based mail and news client. Alpine includes several
|
||
tools and applications:
|
||
@enumerate
|
||
@item alpine, the Alpine mailer
|
||
@item pico, the standalone text editor, GNU nano's predecessor
|
||
@item pilot, the standalone file system navigator
|
||
@end enumerate\n")
|
||
(license license:asl2.0)))
|
||
|
||
(define-public balsa
|
||
(package
|
||
(name "balsa")
|
||
(version "2.6.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://pawsa.fedorapeople.org/balsa/"
|
||
"balsa-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "1xkxx801p7sbfkn0bh3cz85wra4xf1z1zhjqqc80z1z1nln7fhb4"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
'(;; Balsa tries to install additional MIME icons
|
||
;; under gtk+ directory.
|
||
"--enable-extra-mimeicons=no"
|
||
"--with-gtksourceview"
|
||
"--with-canberra"
|
||
"--with-spell-checker=gtkspell"
|
||
"--with-gpgme"
|
||
"--with-sqlite"
|
||
"--with-compface"
|
||
"--with-ldap")))
|
||
(inputs
|
||
`(("cyrus-sasl" ,cyrus-sasl)
|
||
("enchant" ,enchant)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("gmime" ,gmime)
|
||
("gnutls" ,gnutls)
|
||
("gpgme" ,gpgme)
|
||
("gtk+" ,gtk+)
|
||
("gtksourceview" ,gtksourceview-3)
|
||
("gtkspell3" ,gtkspell3)
|
||
("libcanberra" ,libcanberra)
|
||
("libesmtp" ,libesmtp)
|
||
("libical" ,libical)
|
||
("libnotify" ,libnotify)
|
||
("libsecret" ,libsecret)
|
||
("openldap" ,openldap)
|
||
("sqlite" ,sqlite)
|
||
("webkitgtk" ,webkitgtk)))
|
||
(native-inputs
|
||
`(("compface" ,compface)
|
||
("glib" ,glib "bin")
|
||
("intltool" ,intltool)
|
||
("pkg-config" ,pkg-config)
|
||
("yelp-tools" ,yelp-tools)))
|
||
(home-page "https://pawsa.fedorapeople.org/balsa")
|
||
(synopsis "E-mail client for GNOME")
|
||
(description "Balsa is a highly configurable and robust mail client for
|
||
the GNOME desktop. It supports both POP3 and IMAP servers as well as the
|
||
mbox, maildir and mh local mailbox formats. Balsa also supports SMTP and/or
|
||
the use of a local MTA such as Sendmail.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public afew
|
||
(package
|
||
(name "afew")
|
||
(version "3.0.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "afew" version))
|
||
(sha256
|
||
(base32
|
||
"0wpfqbqjlfb9z0hafvdhkm7qw56cr9kfy6n8vb0q42dwlghpz1ff"))))
|
||
(build-system python-build-system)
|
||
(inputs
|
||
`(("notmuch" ,notmuch)
|
||
("python-chardet" ,python-chardet)
|
||
("python-dkimpy" ,python-dkimpy)
|
||
("python-notmuch" ,python-notmuch)))
|
||
(native-inputs
|
||
`(("python-freezegun" ,python-freezegun)
|
||
("python-setuptools-scm" ,python-setuptools-scm)))
|
||
(home-page "https://github.com/afewmail/afew")
|
||
(synopsis "Initial tagging script for notmuch mail")
|
||
(description "afew is an initial tagging script for notmuch mail. It
|
||
provides automatic tagging each time new mail is registered with notmuch. It
|
||
can add tags based on email headers or Maildir folders and can handle spam and
|
||
killed threads.")
|
||
(license license:isc)))
|
||
|
||
(define-public pan
|
||
(package
|
||
(name "pan")
|
||
(version "0.146")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://pan.rebelbase.com/download/releases/"
|
||
version "/source/" name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "17agd27sn4a7nahvkpg0w39kv74njgdrrygs74bbvpaj8rk2hb55"))))
|
||
(arguments
|
||
`(#:configure-flags '("--with-gtk3" "--with-gtkspell" "--with-gnutls"
|
||
"--enable-libnotify" "--enable-manual"
|
||
"--enable-gkr")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'patch-gpg2
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "pan/usenet-utils/gpg.cc"
|
||
(("\"gpg2\"") (string-append "\""
|
||
(assoc-ref inputs "gnupg")
|
||
"/bin/gpg\"")))
|
||
#t)))))
|
||
(inputs
|
||
`(("gmime" ,gmime-2.6)
|
||
("gnupg" ,gnupg)
|
||
("gnutls" ,gnutls)
|
||
("gtk+" ,gtk+)
|
||
("gtkspell3" ,gtkspell3)
|
||
("libnotify" ,libnotify)
|
||
("libsecret" ,libsecret)
|
||
("libxml2" ,libxml2)
|
||
("zlib" ,zlib)))
|
||
(native-inputs
|
||
`(("gettext-minimal" ,gettext-minimal)
|
||
("itstool" ,itstool)
|
||
("pkg-config" ,pkg-config)))
|
||
(build-system gnu-build-system)
|
||
(home-page "http://pan.rebelbase.com/")
|
||
(synopsis "Pan newsreader")
|
||
(description "@code{pan} is a Usenet newsreader that's good at both text
|
||
and binaries. It supports offline reading, scoring and killfiles, yEnc, NZB,
|
||
PGP handling, multiple servers, and secure connections.")
|
||
;; License of the docs: fdl-1.1; Others: gpl2.
|
||
(license (list license:fdl1.1+ license:gpl2))))
|
||
|
||
(define-public imapfilter
|
||
(package
|
||
(name "imapfilter")
|
||
(version "2.7.5")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/lefcha/imapfilter")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0a7f85r3axwclzw1s79zl2l8222nj2gklvvq33w9qv0dz5n71dcx"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f
|
||
#:make-flags
|
||
(list (string-append "PREFIX=" (assoc-ref %outputs "out"))
|
||
(string-append "CC=" ,(cc-for-target)))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)))) ; no configure script
|
||
(inputs
|
||
`(("lua" ,lua)
|
||
("pcre2" ,pcre2)
|
||
("openssl" ,openssl)))
|
||
(home-page "https://github.com/lefcha/imapfilter")
|
||
(synopsis "IMAP mail filtering utility")
|
||
(description "IMAPFilter is a mail filtering utility. It connects
|
||
to remote mail servers using IMAP, sends searching queries to the server and
|
||
processes mailboxes based on the results. It can be used to delete, copy,
|
||
move, flag, etc. messages residing in mailboxes at the same or different mail
|
||
servers. The 4rev1 and 4 versions of IMAP are supported.")
|
||
(license license:expat)))
|
||
|
||
(define-public urlscan
|
||
(package
|
||
(name "urlscan")
|
||
(version "0.9.5")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "urlscan" version))
|
||
(sha256
|
||
(base32 "07vcwirap0p4dkqrqblfn1q017slgd8m6qyijvbi3gxnr09pbyx2"))))
|
||
(build-system python-build-system)
|
||
(propagated-inputs
|
||
`(("python-urwid" ,python-urwid)))
|
||
(home-page "https://github.com/firecat53/urlscan")
|
||
(synopsis "View/select the URLs in an email message or file")
|
||
(description
|
||
"Urlscan is a small program that is designed to integrate with the
|
||
Mutt mail reader to allow you to easily launch a Web browser for URLs
|
||
contained in email messages. It parses an email message or file and scans it
|
||
for URLs and email addresses. It then displays the URLs and their context
|
||
within the message, and allows you to choose one or more URLs to send to your
|
||
Web browser. Alternatively, it send a list of all URLs to standard output.
|
||
It is a replacement for the @command{urlview} program.")
|
||
(license license:gpl2)))
|
||
|
||
(define-public tnef
|
||
(package
|
||
(name "tnef")
|
||
(version "1.4.18")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/verdammelt/tnef")
|
||
(commit version)))
|
||
(sha256
|
||
(base32 "104g48mcm00bgiyzas2vf86331w7bnw7h3bc11ib4lp7rz6zqfck"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)))
|
||
(arguments `(#:parallel-tests? #f)) ;tests are side-effect'y
|
||
(home-page "https://github.com/verdammelt/tnef")
|
||
(synopsis "Unpack @code{application/ms-tnef} attachments")
|
||
(description
|
||
"TNEF is a tar-like program that unpacks MIME attachments of type
|
||
@code{application/ms-tnef}.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public mumi
|
||
(let ((commit "8c82c8f104ff0013e2bfb3d6b4277280f32446a6")
|
||
(revision "3"))
|
||
(package
|
||
(name "mumi")
|
||
(version (git-version "0.0.1" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://git.elephly.net/software/mumi.git")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1gkwagy7qplzq2x2zqsbrwhlilxviqb0dqhrvnnhxd7z8wvyzcsi"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:modules ((guix build gnu-build-system)
|
||
((guix build guile-build-system)
|
||
#:select (target-guile-effective-version))
|
||
(guix build utils))
|
||
#:imported-modules ((guix build guile-build-system)
|
||
,@%gnu-build-system-modules)
|
||
|
||
#:configure-flags '("--localstatedir=/var")
|
||
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'wrap-executable
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin"))
|
||
(version (target-guile-effective-version))
|
||
(scm (string-append out "/share/guile/site/" version))
|
||
(go (string-append out "/lib/guile/" version
|
||
"/site-ccache")))
|
||
(wrap-program (string-append bin "/mumi")
|
||
`("GUILE_LOAD_PATH" ":" prefix
|
||
(,scm ,(getenv "GUILE_LOAD_PATH")))
|
||
`("GUILE_LOAD_COMPILED_PATH" ":" prefix
|
||
(,go ,(getenv "GUILE_LOAD_COMPILED_PATH"))))
|
||
#t))))))
|
||
(inputs
|
||
`(("guile-email" ,guile-email-latest)
|
||
("guile-fibers" ,guile-fibers)
|
||
("guile-gcrypt" ,guile-gcrypt)
|
||
("guile-json" ,guile-json-3)
|
||
("guile-redis" ,guile-redis)
|
||
("guile-syntax-highlight" ,guile-syntax-highlight)
|
||
("guile-webutils" ,guile-webutils)
|
||
("guile-xapian" ,guile-xapian)
|
||
("guile" ,guile-3.0)
|
||
("mailutils" ,mailutils)))
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://git.elephly.net/software/mumi.git")
|
||
(synopsis "Debbugs web interface")
|
||
(description "Mumi is a Debbugs web interface.")
|
||
(license license:agpl3+))))
|
||
|
||
(define-public ytnef
|
||
(package
|
||
(name "ytnef")
|
||
(version "1.9.3")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/Yeraze/ytnef")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"07h48s5qf08503pp9kafqbwipdqghiif22ghki7z8j67gyp04l6l"))
|
||
(patches (search-patches "ytnef-CVE-2021-3403.patch"
|
||
"ytnef-CVE-2021-3404.patch"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)))
|
||
(home-page "https://github.com/Yeraze/ytnef/")
|
||
(synopsis "TNEF stream reader for winmail.dat files")
|
||
(description "This package provides a TNEF stream reader library and
|
||
related tools to process winmail.dat files.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public public-inbox
|
||
(package
|
||
(name "public-inbox")
|
||
(version "1.5.0")
|
||
(source
|
||
(origin (method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://public-inbox.org")
|
||
(commit (string-append "v" version))))
|
||
(sha256
|
||
(base32
|
||
"03zj7shdl3vibs7k5lr673bwcf8j1xx8is3mjz34ca4cdh6p5j2k"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system perl-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'qualify-paths
|
||
(lambda _
|
||
;; Use absolute paths for 'xapian-compact'.
|
||
(let ((xapian-compact (which "xapian-compact")))
|
||
(substitute* "script/public-inbox-compact"
|
||
(("xapian-compact") xapian-compact)))
|
||
#t))
|
||
(add-before 'check 'pre-check
|
||
(lambda _
|
||
(substitute* "t/spawn.t"
|
||
(("\\['env'\\]") (string-append "['" (which "env") "']")))
|
||
(substitute* "t/ds-leak.t"
|
||
(("/bin/sh") (which "sh")))
|
||
(invoke "./certs/create-certs.perl")
|
||
;; XXX: This test fails due to zombie process is not reaped by
|
||
;; the builder.
|
||
(substitute* "t/httpd-unix.t"
|
||
(("^SKIP: \\{") "SKIP: { skip('Guix');"))
|
||
#t))
|
||
(add-after 'install 'wrap-programs
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(for-each
|
||
(lambda (prog)
|
||
(wrap-program prog
|
||
;; Let those scripts find their perl modules.
|
||
`("PERL5LIB" ":" prefix
|
||
(,(string-append out "/lib/perl5/site_perl")
|
||
,(getenv "PERL5LIB")))
|
||
;; 'git' is invoked in various files of the PublicInbox
|
||
;; perl module.
|
||
`("PATH" ":" prefix
|
||
(,(string-append (assoc-ref inputs "git") "/bin")))))
|
||
(find-files (string-append out "/bin"))))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("xapian" ,xapian)
|
||
;; For testing.
|
||
("lsof" ,lsof)
|
||
("openssl" ,openssl)))
|
||
(inputs
|
||
`(("git" ,git)
|
||
("perl-dbd-sqlite" ,perl-dbd-sqlite)
|
||
("perl-dbi" ,perl-dbi)
|
||
("perl-email-address-xs" ,perl-email-address-xs)
|
||
("perl-email-mime-contenttype" ,perl-email-mime-contenttype)
|
||
("perl-email-mime" ,perl-email-mime)
|
||
("perl-email-simple" ,perl-email-simple)
|
||
("perl-net-server" ,perl-net-server)
|
||
("perl-filesys-notify-simple" ,perl-filesys-notify-simple)
|
||
("perl-plack-middleware-deflater" ,perl-plack-middleware-deflater)
|
||
("perl-plack-middleware-reverseproxy" ,perl-plack-middleware-reverseproxy)
|
||
("perl-plack" ,perl-plack)
|
||
("perl-search-xapian" ,perl-search-xapian)
|
||
("perl-timedate" ,perl-timedate)
|
||
("perl-uri-escape" ,perl-uri-escape)
|
||
;; For testing.
|
||
("perl-ipc-run" ,perl-ipc-run)
|
||
("perl-xml-feed" ,perl-xml-feed)))
|
||
(home-page "https://public-inbox.org/README.html")
|
||
(synopsis "Archive mailing lists in git repositories")
|
||
(description
|
||
"public-inbox implements the sharing of an email inbox via git to
|
||
complement or replace traditional mailing lists. Readers may read via NNTP,
|
||
Atom feeds or HTML archives.")
|
||
(license license:agpl3+)))
|
||
|
||
(define-public sylpheed
|
||
(package
|
||
(name "sylpheed")
|
||
(version "3.7.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://sylpheed.sraoss.jp/sylpheed/v3.7/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0j9y5vdzch251s264diw9clrn88dn20bqqkwfmis9l7m8vmwasqd"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("bogofilter" ,bogofilter)
|
||
("compface" ,compface)
|
||
("gnupg" ,gnupg-1)
|
||
("gpgme" ,gpgme)
|
||
("gtk+-2.0" ,gtk+-2)
|
||
("gtkspell" ,gtkspell3)
|
||
("libnsl" ,libnsl)
|
||
("openldap" ,openldap)
|
||
("openssl" ,openssl)))
|
||
(home-page "https://sylpheed.sraoss.jp/en/")
|
||
(synopsis "Lightweight GTK+ email client")
|
||
(description
|
||
"Sylpheed is a simple, lightweight but featureful, and easy-to-use e-mail
|
||
client. Sylpheed provides intuitive user-interface. Sylpheed is also
|
||
designed for keyboard-oriented operation.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public python-authres
|
||
(package
|
||
(name "python-authres")
|
||
(version "1.2.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "authres" version))
|
||
(sha256
|
||
(base32
|
||
"1dr5zpqnb54h4f5ax8334l1dcp8j9083d7v4vdi1xqkwmnavklck"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'check
|
||
;; Run doctests as described in the README.
|
||
(lambda _
|
||
(invoke "python" "-m" "authres" "-v"))))))
|
||
(home-page "https://launchpad.net/authentication-results-python")
|
||
(synopsis "Authentication-Results email header creator and parser")
|
||
(description
|
||
"This Python module can be used to generate and parse RFC 5451/7001/7601
|
||
@code{Authentication-Results} email headers. It supports extensions such as:
|
||
@itemize
|
||
@item RFC 5617 DKIM/ADSP
|
||
@item RFC 6008 DKIM signature identification (@code{header.b})
|
||
@item RFC 6212 @acronym{VBR, Vouch By Reference}
|
||
@item RFC 6577 @acronym{SPF, Sender Policy Framework}
|
||
@item RFC 7281 @code{Authentication-Results} registration for S/MIME
|
||
@item RFC 7293 The @code{Require-Recipient-Valid-Since} header field
|
||
@item RFC 7489 @acronym{DMARC, Domain-based Message Authentication Reporting
|
||
and Conformance}
|
||
@item @acronym{ARC, Authenticated Received Chain}
|
||
(draft-ietf-dmarc-arc-protocol-08)
|
||
@end itemize\n")
|
||
(license license:asl2.0)))
|
||
|
||
(define-public python-dkimpy
|
||
(package
|
||
(name "python-dkimpy")
|
||
(version "1.0.5")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "dkimpy" version))
|
||
(sha256
|
||
(base32 "088iz5cqjqh4c7141d94pvn13bh25aizqlrifwv6fs5g16zj094s"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'patch-source-shebangs 'patch-more-source
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((openssl (assoc-ref inputs "openssl")))
|
||
(substitute* "dkim/dknewkey.py"
|
||
(("/usr/bin/openssl") (string-append openssl "/bin/openssl"))))
|
||
#t))
|
||
(replace 'check
|
||
(lambda _
|
||
(invoke "python" "test.py"))))))
|
||
(propagated-inputs
|
||
`(("python-dnspython" ,python-dnspython)))
|
||
(native-inputs
|
||
`(("python-authres" ,python-authres)
|
||
("python-pynacl" ,python-pynacl)))
|
||
(inputs
|
||
`(("openssl" ,openssl)))
|
||
(home-page "https://launchpad.net/dkimpy")
|
||
(synopsis "DKIM (DomainKeys Identified Mail)")
|
||
(description "Python module that implements @dfn{DKIM} (DomainKeys
|
||
Identified Mail) email signing and verification (RFC6376). It also provides
|
||
helper scripts for command line signing and verification. It supports DKIM
|
||
signing/verifying of ed25519-sha256 signatures (RFC 8463). It also supports
|
||
the RFC 8617 Authenticated Received Chain (ARC) protocol.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public python-authheaders
|
||
(package
|
||
(name "python-authheaders")
|
||
(version "0.13.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "authheaders" version))
|
||
(sha256
|
||
(base32
|
||
"14k6i72k5f8dyvps8vc0aq0cczc8lvqpgjfjzsy6qqychjvjcmwk"))))
|
||
(build-system python-build-system)
|
||
(propagated-inputs
|
||
`(("python-authres" ,python-authres)
|
||
("python-dkimpy" ,python-dkimpy)
|
||
("python-dnspython" ,python-dnspython)
|
||
("python-publicsuffix2" ,python-publicsuffix2)))
|
||
(home-page "https://github.com/ValiMail/authentication-headers")
|
||
(synopsis "Library wrapping email authentication header verification and generation")
|
||
(description
|
||
"This is a Python library for the generation of email authentication
|
||
headers. The library can perform DKIM, SPF, and DMARC validation, and the
|
||
results are packaged into the Authentication-Results header. The library can
|
||
DKIM and ARC sign messages and output the corresponding signature headers.")
|
||
;; The package's metadata claims it were MIT licensed, but the source file
|
||
;; headers disagree. MPL-2 for the public suffix list.
|
||
(license (list license:zpl2.1 license:zlib license:mpl2.0))))
|
||
|
||
(define-public python-aiosmtpd
|
||
(package
|
||
(name "python-aiosmtpd")
|
||
(version "1.2.2")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/aio-libs/aiosmtpd")
|
||
(commit version)))
|
||
(sha256
|
||
(base32 "0083d6nf75xv8nq1il6jabz36v6c452svy4p402csxwwih5pw6sk"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'delete-failing-tests
|
||
(lambda _
|
||
;; This test uses an expired certificate.
|
||
(delete-file "aiosmtpd/tests/test_smtps.py")
|
||
#t))
|
||
(replace 'check
|
||
(lambda _
|
||
(invoke "python" "-m" "nose2" "-v"))))))
|
||
(native-inputs
|
||
`(("python-flufl-testing" ,python-flufl-testing)
|
||
("python-nose2" ,python-nose2)))
|
||
(propagated-inputs
|
||
`(("python-atpublic" ,python-atpublic)))
|
||
(home-page "https://aiosmtpd.readthedocs.io/")
|
||
(synopsis "Asyncio based SMTP server")
|
||
(description
|
||
"This project is a reimplementation of the Python stdlib @code{smtpd.py}
|
||
based on asyncio.")
|
||
(license (list license:asl2.0
|
||
license:lgpl3)))) ; only for setup_helpers.py
|
||
|
||
(define-public rspamd
|
||
(package
|
||
(name "rspamd")
|
||
(version "2.7")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/rspamd/rspamd")
|
||
(commit version)))
|
||
(sha256
|
||
(base32 "0fw6nbfc3xqapzq5nydakwgpw6cz6vb3qby2aqlr06lzf87d3hic"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
'(#:configure-flags '("-DENABLE_LUAJIT=ON")))
|
||
(inputs
|
||
`(("openssl" ,openssl)
|
||
("glib" ,glib)
|
||
("ragel" ,ragel)
|
||
("luajit" ,luajit)
|
||
("sqlite" ,sqlite)
|
||
("file" ,file)
|
||
("icu4c" ,icu4c)
|
||
("pcre" ,pcre)
|
||
("zlib" ,zlib)
|
||
("perl" ,perl)
|
||
("libsodium" ,libsodium)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(synopsis "Spam filtering system")
|
||
(description "Rspamd is an advanced spam filtering system that
|
||
allows evaluation of messages by a number of rules including regular
|
||
expressions, statistical analysis and custom services such as URL
|
||
black lists. Each message is analysed by Rspamd and given a spam
|
||
score.")
|
||
(home-page "https://www.rspamd.com/")
|
||
(license license:asl2.0)))
|