mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 13:58:15 -05:00
gnu: gmime: Update to 2.6.20.
* gnu/packages/mail.scm (gmime): Update to 2.6.20. [arguments]: Use modify-phases syntax.
This commit is contained in:
parent
8d5e7ad29a
commit
cc9553562c
1 changed files with 18 additions and 16 deletions
|
@ -8,6 +8,7 @@
|
|||
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
|
||||
;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
|
||||
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
|
||||
;;; Copyright © 2015 Efraim Flashner <efraim@flashner.co.il>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -208,7 +209,7 @@ (define-public mutt
|
|||
(define-public gmime
|
||||
(package
|
||||
(name "gmime")
|
||||
(version "2.6.19")
|
||||
(version "2.6.20")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://gnome/sources/gmime/"
|
||||
|
@ -216,7 +217,7 @@ (define-public gmime
|
|||
"/gmime-" version ".tar.xz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0jm1fgbjgh496rsc0il2y46qd4bqq2ln9168p4zzh68mk4ml1yxg"))))
|
||||
"0rfzbgsh8ira5p76kdghygl5i3fvmmx4wbw5rp7f8ajc4vxp18g0"))))
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs
|
||||
`(("pkg-config" ,pkg-config)
|
||||
|
@ -226,20 +227,21 @@ (define-public gmime
|
|||
("zlib" ,zlib)))
|
||||
(arguments
|
||||
`(#:phases
|
||||
(alist-cons-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 also change "gpg"
|
||||
;; to "gpg2". 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 (if (string=? base "gpg") "gpg2" base))))
|
||||
(string-append pre (or prog (error "not found: " base))))))))
|
||||
%standard-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 also change "gpg"
|
||||
;; to "gpg2". 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 (if (string=? base "gpg") "gpg2" base))))
|
||||
(string-append pre
|
||||
(or prog (error "not found: " base))))))))))))
|
||||
(home-page "http://spruce.sourceforge.net/gmime/")
|
||||
(synopsis "MIME message parser and creator library")
|
||||
(description
|
||||
|
|
Loading…
Reference in a new issue