me/guix
Archived
1
0
Fork 0
Code Activity

gnu: claws-mail: Use absolute paths to referenced programs.

Browse source 
* gnu/packages/mail.scm (claws-mail)[phases](patch-source): New phase.
[inputs]: Add mailutils and sendmail.
This commit is contained in:
Raghav Gururajan 2021-07-20 06:00:34 -04:00
parent 541066a02f
commit 7b9c4417d5
No known key found for this signature in database
GPG key ID: 5F5816647F8BE551
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/mail.scm
View file

@ -1629,6 +1629,16 @@ compresses it.")
"gtk_update_icon_cache=true") "gtk_update_icon_cache=true")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-source
(lambda* (#:key inputs #:allow-other-keys)
;; Use absolute paths to referenced programs.
(let* ((mailutils (assoc-ref inputs "mailutils"))
(inc (string-append mailutils "/bin/mu-mh/inc"))
(send-mail (assoc-ref inputs "sendmail"))
(sendmail (string-append send-mail "/usr/sbin/sendmail")))
(substitute* "src/common/defs.h"
(("/usr/bin/mh/inc") inc)
(("/usr/sbin/sendmail") sendmail)))))
(add-before 'build 'patch-mime (add-before 'build 'patch-mime
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/procmime.c" (substitute* "src/procmime.c"
@ -1674,6 +1684,7 @@ compresses it.")
("libsm" ,libsm) ("libsm" ,libsm)
("libsoup" ,libsoup) ("libsoup" ,libsoup)
("libxml2" ,libxml2) ("libxml2" ,libxml2)
("mailutils" ,mailutils)
("nettle" ,nettle) ("nettle" ,nettle)
("network-manager" ,network-manager) ("network-manager" ,network-manager)
("openldap" ,openldap) ("openldap" ,openldap)
@ -1681,6 +1692,7 @@ compresses it.")
("poppler" ,poppler) ("poppler" ,poppler)
("python" ,python) ("python" ,python)
("python-pygobject" ,python-pygobject) ("python-pygobject" ,python-pygobject)
("sendmail" ,sendmail)
("shared-mime-info" ,shared-mime-info) ("shared-mime-info" ,shared-mime-info)
("startup-notification" ,startup-notification) ("startup-notification" ,startup-notification)
;;("webkitgtk" ,webkitgtk) ;;("webkitgtk" ,webkitgtk)