You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

165 lines
6.3 KiB

  1. ;;; GNU Guix --- Functional package management for GNU
  2. ;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
  3. ;;;
  4. ;;; This file is part of GNU Guix.
  5. ;;;
  6. ;;; GNU Guix is free software; you can redistribute it and/or modify it
  7. ;;; under the terms of the GNU General Public License as published by
  8. ;;; the Free Software Foundation; either version 3 of the License, or (at
  9. ;;; your option) any later version.
  10. ;;;
  11. ;;; GNU Guix is distributed in the hope that it will be useful, but
  12. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14. ;;; GNU General Public License for more details.
  15. ;;;
  16. ;;; You should have received a copy of the GNU General Public License
  17. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
  18. (define-module (gnu packages mail)
  19. #:use-module (gnu packages)
  20. #:use-module (gnu packages autotools)
  21. #:use-module (gnu packages cyrus-sasl)
  22. #:use-module (gnu packages dejagnu)
  23. #:use-module (gnu packages gdbm)
  24. #:use-module (gnu packages gnupg)
  25. #:use-module (gnu packages gnutls)
  26. #:use-module (gnu packages guile)
  27. #:use-module (gnu packages linux)
  28. #:use-module (gnu packages m4)
  29. #:use-module (gnu packages mysql)
  30. #:use-module (gnu packages ncurses)
  31. #:use-module (gnu packages openssl)
  32. #:use-module (gnu packages perl)
  33. #:use-module (gnu packages readline)
  34. #:use-module (gnu packages texinfo)
  35. #:use-module ((guix licenses)
  36. #:select (gpl2+ gpl3+ lgpl3+))
  37. #:use-module (guix packages)
  38. #:use-module (guix download)
  39. #:use-module (guix build-system gnu))
  40. (define-public mailutils
  41. (package
  42. (name "mailutils")
  43. (version "2.2")
  44. (source (origin
  45. (method url-fetch)
  46. (uri (string-append "mirror://gnu/mailutils/mailutils-"
  47. version ".tar.bz2"))
  48. (sha256
  49. (base32
  50. "0szbqa12zqzldqyw97lxqax3ja2adis83i7brdfsxmrfw68iaf65"))
  51. (patches (list (search-patch "m4-gets-undeclared.patch")))))
  52. (build-system gnu-build-system)
  53. (arguments
  54. '(;; TODO: Add `--with-sql'.
  55. #:phases (alist-cons-before
  56. 'build 'pre-build
  57. (lambda _
  58. ;; Use Guile 2.0's public API.
  59. (substitute* "libmu_scm/mu_message.c"
  60. (("scm_i_string_length")
  61. "scm_c_string_length"))
  62. ;; This file should be generated to use the right
  63. ;; value of $(libdir) et al.
  64. (delete-file "libmu_scm/mailutils.scm")
  65. ;; Use the right file name for `cat'.
  66. (substitute* "testsuite/lib/mailutils.exp"
  67. (("/bin/cat")
  68. (which "cat"))))
  69. %standard-phases)
  70. #:parallel-tests? #f))
  71. (inputs
  72. `(("dejagnu" ,dejagnu)
  73. ("m4" ,m4)
  74. ("texinfo" ,texinfo)
  75. ("guile" ,guile-2.0)
  76. ("gnutls" ,gnutls)
  77. ("ncurses" ,ncurses)
  78. ("readline" ,readline)
  79. ("linux-pam" ,linux-pam)
  80. ("libtool" ,libtool)
  81. ("gdbm" ,gdbm)))
  82. (home-page "http://www.gnu.org/software/mailutils/")
  83. (synopsis "Utilities and library for reading and serving mail")
  84. (description
  85. "Mailutils is a \"swiss army knife of electronic mail handling.\" It is
  86. a suite of programs for managing, viewing and processing e-mail. It contains
  87. both utilities and server daemons and all operate in a protocol-agnostic way.
  88. The underlying libraries are also made available, making adding mail
  89. capabilities to new software simple.")
  90. (license
  91. ;; Libraries are under LGPLv3+, and programs under GPLv3+.
  92. (list gpl3+ lgpl3+))))
  93. (define-public fetchmail
  94. (package
  95. (name "fetchmail")
  96. (version "6.3.26")
  97. (source (origin
  98. (method url-fetch)
  99. (uri (string-append "mirror://sourceforge/fetchmail/branch_6.3/fetchmail-"
  100. version ".tar.xz"))
  101. (sha256
  102. (base32
  103. "0l78ayvi9dm8hd190gl139cs2xqsrf7r9ncilslw20mgvd6cbd3r"))))
  104. (build-system gnu-build-system)
  105. (inputs
  106. `(("openssl" ,openssl)))
  107. (arguments
  108. `(#:configure-flags (list (string-append "--with-ssl="
  109. (assoc-ref %build-inputs "openssl")))))
  110. (home-page "http://fetchmail.berlios.de/")
  111. (synopsis "Remote-mailr etrieval and forwarding utility")
  112. (description
  113. "Fetchmail is a full-featured, robust, well-documented remote-mail
  114. retrieval and forwarding utility intended to be used over on-demand
  115. TCP/IP links (such as SLIP or PPP connections). It supports every
  116. remote-mail protocol now in use on the Internet: POP2, POP3, RPOP, APOP,
  117. KPOP, all flavors of IMAP, ETRN, and ODMR. It can even support IPv6
  118. and IPSEC.
  119. Fetchmail retrieves mail from remote mail servers and forwards it via SMTP,
  120. so it can then be read by normal mail user agents such as mutt, elm
  121. or BSD Mail. It allows all your system MTA's filtering, forwarding, and
  122. aliasing facilities to work just as they would on normal mail.")
  123. (license gpl2+))) ; most files are actually public domain or x11
  124. (define-public mutt
  125. (package
  126. (name "mutt")
  127. (version "1.5.21")
  128. (source (origin
  129. (method url-fetch)
  130. (uri (string-append "ftp://ftp.mutt.org/mutt/devel/mutt-"
  131. version ".tar.gz"))
  132. (sha256
  133. (base32
  134. "1864cwz240gh0zy56fb47qqzwyf6ghg01037rb4p2kqgimpg6h91"))))
  135. (build-system gnu-build-system)
  136. (inputs
  137. `(("cyrus-sasl" ,cyrus-sasl)
  138. ("gpgme" ,gpgme)
  139. ("ncurses" ,ncurses)
  140. ("openssl" ,openssl)
  141. ("perl" ,perl)))
  142. (arguments
  143. `(#:configure-flags '("--enable-smtp"
  144. "--enable-imap"
  145. "--enable-pop"
  146. "--enable-gpgme"
  147. "--with-ssl"
  148. "--with-sasl"
  149. ;; so that mutt does not check whether the path
  150. ;; exists, which it does not in the chroot
  151. "--with-mailpath=/var/mail")))
  152. (home-page "http://www.mutt.org/")
  153. (synopsis "Mail client")
  154. (description
  155. "Mutt is a small but very powerful text-based mail client for Unix
  156. operating systems.")
  157. (license gpl2+)))