diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index 2200e76acdf..96d825db5db 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -1341,86 +1341,67 @@ security functionality including PGP, S/MIME, SSH, and SSL.") (license license:bsd-3)))) (define-public mu - ;; this commit fixes nondeterministic test failing the build - ;; revert back to a tagged release next time - ;; - (let ((commit "46f91ab7b7641caac992a41264ac41a76c001c87") - (revision "1")) - (package - (name "mu") - (version (git-version "1.12.13" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/djcb/mu") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 "1dbadvpl0fwy975f4i58rq7n85gfjhv92lcdmkv1w3h1mjn2v0sd")))) - (build-system meson-build-system) - (native-inputs - (list pkg-config - emacs-minimal - gnupg ; for tests - tzdata-for-tests ; for tests - texinfo)) - (inputs - (list glib gmime guile-3.0 xapian readline python)) - (arguments - (list - #:modules '((guix build meson-build-system) - (guix build emacs-utils) - ((guix build guile-build-system) - #:select (target-guile-effective-version)) - (guix build utils)) - #:imported-modules `(,@%meson-build-system-modules - (guix build guile-build-system) - (guix build emacs-utils)) - #:configure-flags - #~(list (format #f "-Dguile-extension-dir=~a/lib" #$output)) - #:phases - #~(modify-phases %standard-phases - ;; This phase can be removed in the next major release of mu. - ;; - ;; - (add-after 'unpack 'patch-bin-references - (lambda _ - (substitute* '("guile/tests/test-mu-guile.cc" - "mu/tests/test-mu-query.cc") - (("/bin/sh") (which "sh"))) - (substitute* '("lib/tests/bench-indexer.cc" - "lib/utils/mu-utils-file.cc" - "lib/utils/mu-test-utils.cc") - (("/bin/rm") (which "rm"))) - (substitute* '("lib/mu-maildir.cc") - (("/bin/mv") (which "mv"))))) - (add-after 'install 'fix-ffi - (lambda _ - (substitute* (find-files #$output "mu\\.scm") - (("\"libguile-mu\"") - (format #f "\"~a/lib/libguile-mu\"" #$output))))) - (add-after 'install 'install-emacs-autoloads - (lambda _ - (emacs-generate-autoloads - "mu4e" - (string-append #$output - "/share/emacs/site-lisp/mu4e")))) - (add-after 'install 'wrap-executable - (lambda _ - (let* ((bin (string-append #$output "/bin")) - (version (target-guile-effective-version)) - (scm (string-append #$output "/share/guile/site/" version))) - (wrap-program (string-append bin "/mu") - `("GUILE_LOAD_PATH" ":" prefix (,scm))))))))) - (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 + (package + (name "mu") + (version "1.12.14") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/djcb/mu") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "188l9h2smmq6x16l9kjbjk4rbyxgz552kiwr3j1y981cl0nndli2")))) + (build-system meson-build-system) + (native-inputs + (list pkg-config + emacs-minimal + gnupg ; for tests + tzdata-for-tests ; for tests + texinfo)) + (inputs + (list glib gmime guile-3.0 xapian readline python)) + (arguments + (list + #:modules '((guix build meson-build-system) + (guix build emacs-utils) + ((guix build guile-build-system) + #:select (target-guile-effective-version)) + (guix build utils)) + #:imported-modules `(,@%meson-build-system-modules + (guix build guile-build-system) + (guix build emacs-utils)) + #:configure-flags + #~(list (format #f "-Dguile-extension-dir=~a/lib" #$output)) + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'fix-ffi + (lambda _ + (substitute* (find-files #$output "mu\\.scm") + (("\"libguile-mu\"") + (format #f "\"~a/lib/libguile-mu\"" #$output))))) + (add-after 'install 'install-emacs-autoloads + (lambda _ + (emacs-generate-autoloads + "mu4e" + (string-append #$output + "/share/emacs/site-lisp/mu4e")))) + (add-after 'install 'wrap-executable + (lambda _ + (let* ((bin (string-append #$output "/bin")) + (version (target-guile-effective-version)) + (scm (string-append #$output "/share/guile/site/" version))) + (wrap-program (string-append bin "/mu") + `("GUILE_LOAD_PATH" ":" prefix (,scm))))))))) + (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+)))) + (license license:gpl3+))) (define-public alot (package