guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: gnu: Add procmail.


From: Leo Famulari
Subject: 01/01: gnu: Add procmail.
Date: Thu, 03 Mar 2016 01:45:10 +0000

lfam pushed a commit to branch master
in repository guix.

commit e90819c40af5ffd84dcfd24e3c478edbe7e89c75
Author: Lukas Gradl <address@hidden>
Date:   Mon Feb 29 22:07:35 2016 -0600

    gnu: Add procmail.
    
     * gnu/packages/patches/procmail-ambiguous-getline-debian.patch: New file.
     * gnu-system.am (dist_patch_DATA): Add it.
     * gnu/packages/mail.scm (procmail): New variable.
    
    Signed-off-by: Leo Famulari <address@hidden>
---
 gnu-system.am                                      |    1 +
 gnu/packages/mail.scm                              |   53 +++++++++++++++++
 .../procmail-ambiguous-getline-debian.patch        |   61 ++++++++++++++++++++
 3 files changed, 115 insertions(+), 0 deletions(-)

diff --git a/gnu-system.am b/gnu-system.am
index 61ee02f..11d582c 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -663,6 +663,7 @@ dist_patch_DATA =                                           
\
   gnu/packages/patches/plotutils-libpng-jmpbuf.patch           \
   gnu/packages/patches/polkit-drop-test.patch                  \
   gnu/packages/patches/portaudio-audacity-compat.patch         \
+  gnu/packages/patches/procmail-ambiguous-getline-debian.patch  \
   gnu/packages/patches/pt-scotch-build-parallelism.patch       \
   gnu/packages/patches/pulseaudio-fix-mult-test.patch          \
   gnu/packages/patches/pulseaudio-longer-test-timeout.patch    \
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index e4fc65f..013954b 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -12,6 +12,7 @@
 ;;; Copyright © 2016 Christopher Allan Webber <address@hidden>
 ;;; Copyright © 2016 Al McElrath <address@hidden>
 ;;; Copyright © 2016 Leo Famulari <address@hidden>
+;;; Copyright © 2016 Lukas Gradl <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1098,4 +1099,56 @@ deliver it in various ways.")
      ;; with that information.
      (non-copyleft "https://github.com/nicm/fdm/blob/master/command.c";))))
 
+
+(define-public procmail
+  (package
+    (name "procmail")
+    (version "3.22")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "ftp://ftp.fu-berlin.de/pub/unix/mail/procmail/procmail-";
+             version
+             ".tar.gz"))
+       (sha256
+        (base32
+         "05z1c803n5cppkcq99vkyd5myff904lf9sdgynfqngfk9nrpaz08"))
+       ;; The following patch fixes an ambiguous definition of
+       ;; getline() in formail.c.  The patch is provided by Debian as
+       ;; patch 24.
+       (patches
+        (list
+         (search-patch "procmail-ambiguous-getline-debian.patch")))))
+    (arguments
+     `(#:phases (modify-phases %standard-phases
+                  (replace 'configure
+                    (lambda _
+                      (substitute* "Makefile"
+                        (("/bin/sh")
+                         (which "sh"))
+                        (("/usr")
+                         (assoc-ref %outputs "out"))
+                        (("/bin/rm")
+                         (which "rm")))
+                      #t)))
+       #:tests? #f)) ;; There are no tests indicating a successful
+    ;; build.  Some tests of basic locking mechanisms provided by the
+    ;; filesystem are performed during 'make install'.  However, these
+    ;; are performed before the actual build process.
+    (build-system gnu-build-system)
+    (inputs `(("glibc" ,glibc)
+              ("exim" ,exim)))
+    (home-page "http://www.procmail.org/";)
+    (synopsis "Versatile mail delivery agent (MDA)")
+    (description "Procmail is a mail delivery agent (MDA) featuring support
+for a variety of mailbox formats such as mbox, mh and maildir.  Incoming mail
+can be sorted into separate files/directories and arbitrary commands can be
+executed on mail arrival.  Procmail is considered stable, but is no longer
+maintained.")
+    (license gpl2+))) ;; procmail allows to choose the
+                      ;; nonfree Artistic License 1.0
+                      ;; as alternative to the GPL2+.
+                      ;; This option is not listed here.
 ;;; mail.scm ends here
+
diff --git a/gnu/packages/patches/procmail-ambiguous-getline-debian.patch 
b/gnu/packages/patches/procmail-ambiguous-getline-debian.patch
new file mode 100644
index 0000000..5dc91b1
--- /dev/null
+++ b/gnu/packages/patches/procmail-ambiguous-getline-debian.patch
@@ -0,0 +1,61 @@
+Rename getline() to procmail_getline() to avoid namespace clash with
+POSIX getline(). Fixes FTBFS.
+
+Copied from Debian:
+http://sources.debian.net/src/procmail/3.22-24/debian/patches/24/
+
+References:
+http://bugs.debian.org/549426
+
+--- a/src/fields.c
++++ b/src/fields.c
+@@ -110,16 +110,16 @@
+                   /* try and append one valid field to rdheader from stdin */
+ int readhead P((void))
+ { int idlen;
+-  getline();
++  procmail_getline();
+   if((idlen=breakfield(buf,buffilled))<=0) /* not the start of a valid field 
*/
+      return 0;
+   if(idlen==STRLEN(FROM)&&eqFrom_(buf))                       /* it's a From_ 
line */
+    { if(rdheader)
+       return 0;                              /* the From_ line was a fake! */
+-     for(;buflast=='>';getline());        /* gather continued >From_ lines */
++     for(;buflast=='>';procmail_getline());       /* gather continued >From_ 
lines */
+    }
+   else
+-     for(;;getline())               /* get the rest of the continued field */
++     for(;;procmail_getline())                      /* get the rest of the 
continued field */
+       { switch(buflast)                            /* will this line be 
continued? */
+        { case ' ':case '\t':                            /* yep, it sure is */
+             continue;
+--- a/src/formail.c
++++ b/src/formail.c
+@@ -819,7 +819,7 @@
+       { if(split)                    /* gobble up the next start separator */
+        { buffilled=0;
+ #ifdef sMAILBOX_SEPARATOR
+-         getline();buffilled=0;                /* but only if it's defined */
++         procmail_getline();buffilled=0;               /* but only if it's 
defined */
+ #endif
+          if(buflast!=EOF)                                        /* if any */
+             goto splitit;
+--- a/src/formisc.c
++++ b/src/formisc.c
+@@ -115,7 +115,7 @@
+   buf[buffilled++]=c;
+ }
+ 
+-int getline P((void))                    /* read a newline-terminated line */
++int procmail_getline P((void))                           /* read a 
newline-terminated line */
+ { if(buflast==EOF)                     /* at the end of our Latin already? */
+    { loadchar('\n');                                    /* fake empty line */
+      return EOF;                                        /* spread the word */
+--- a/src/formisc.h
++++ b/src/formisc.h
+@@ -17,4 +17,4 @@
+ char*
+  skipwords P((char*start));
+ int
+- getline P((void));
++ procmail_getline P((void));



reply via email to

[Prev in Thread] Current Thread [Next in Thread]