summaryrefslogtreecommitdiff
path: root/gnu/packages/mail.scm
diff options
context:
space:
mode:
authorRaghav Gururajan <rg@raghavgururajan.name>2021-07-20 06:00:34 -0400
committerRaghav Gururajan <rg@raghavgururajan.name>2021-07-20 06:03:36 -0400
commit7b9c4417d54009efd9140860ce07dec97120676f (patch)
tree04475afceba05a2ecde518fb61c184957e49a9ac /gnu/packages/mail.scm
parent541066a02f87e0dbb01387252dda9d0c4eced542 (diff)
downloadguix-patches-7b9c4417d54009efd9140860ce07dec97120676f.tar
guix-patches-7b9c4417d54009efd9140860ce07dec97120676f.tar.gz
gnu: claws-mail: Use absolute paths to referenced programs.
* gnu/packages/mail.scm (claws-mail)[phases](patch-source): New phase. [inputs]: Add mailutils and sendmail.
Diffstat (limited to 'gnu/packages/mail.scm')
-rw-r--r--gnu/packages/mail.scm12
1 files changed, 12 insertions, 0 deletions
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index eb7f148b7a..f0f1540cc9 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -1629,6 +1629,16 @@ compresses it.")
"gtk_update_icon_cache=true")
#: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
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/procmime.c"
@@ -1674,6 +1684,7 @@ compresses it.")
("libsm" ,libsm)
("libsoup" ,libsoup)
("libxml2" ,libxml2)
+ ("mailutils" ,mailutils)
("nettle" ,nettle)
("network-manager" ,network-manager)
("openldap" ,openldap)
@@ -1681,6 +1692,7 @@ compresses it.")
("poppler" ,poppler)
("python" ,python)
("python-pygobject" ,python-pygobject)
+ ("sendmail" ,sendmail)
("shared-mime-info" ,shared-mime-info)
("startup-notification" ,startup-notification)
;;("webkitgtk" ,webkitgtk)