diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index a07cb1b004..574bb3f4b9 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès +;;; Copyright © 2013, 2014, 2015, 2016, 2017 Ludovic Courtès ;;; Copyright © 2014, 2015, 2017 Mark H Weaver ;;; Copyright © 2014 Ian Denhardt ;;; Copyright © 2014 Sou Bunnbu @@ -117,19 +117,19 @@ (define-public mailutils (package (name "mailutils") - (version "3.2") + (version "3.3") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/mailutils/mailutils-" version ".tar.bz2")) (sha256 (base32 - "0c06yj5hgqibi24ib9sx865kq6i1h18wn201g6iwcfbpi2a7psdm")))) + "1v110avpdz0bvz3yh3cfvvd0dnn7sa6hrpql2h8dgnri8fww6cag")))) (build-system gnu-build-system) (arguments '(#:phases (modify-phases %standard-phases - (add-before 'build 'pre-build + (add-before 'check 'prepare-test-suite (lambda _ ;; Use the right file name for `cat'. (substitute* "testsuite/lib/mailutils.exp" @@ -162,6 +162,17 @@ (("\\$\\(SHELL\\) \\$\\(TESTSUITE\\)" all) (string-append "-" all))) + ;; '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 '("--sysconfdir=/etc")