[PATCH] gnu: Add mlmmj.

[PATCH] gnu: Add mlmmj.

[ng0]

* gnu/packages/mail.scm (mlmmj): New variable.
---
 gnu/packages/mail.scm | 52 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index baa5a96..1d732f5 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -1493,3 +1493,55 @@ transfer protocols.")
     (license (non-copyleft "file://LICENSE"
                            "See LICENSE in the distribution."))))
 
+(define-public mlmmj
+  (package
+    (name "mlmmj")
+    (version "1.2.19.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://mlmmj.org/releases/mlmmj-" version ".tar.bz2"))
+       (sha256
+        (base32
+         "1piwvcxkqadjwk5x8jicaiyz9nngmaj3w13ghdqgaki32xd7zk9v"))))
+    (build-system gnu-build-system)
+    (inputs
+     `(("perl" ,perl))) ; "contrib/web/"
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (arguments
+     `(#:configure-flags
+       ;; mlmmj-receive-strip is a replacement for mlmmj-receive
+       ;; It opens the files control/mimedeny and control/mimestrip to get a list
+       ;; of mimetypes for parts of multipart/mime messages that should be denied
+       ;; or stripped. The parts then get stripped directly when the mail is
+       ;; received. mlmmj-receive-strip also appends an extra header
+       ;; X-ThisMailContainsUnwantedMimeParts: Y when the mail contains unwanted
+       ;; mime parts
+       (list "--enable-receive-strip")
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'install 'install-contrib
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (share (string-append out "/share/mlmmj")))
+               (copy-recursively "contrib/web/" share)))))))
+    (home-page "http://mlmmj.org")
+    (synopsis "Mailing list managing made joyful")
+    (description
+     "Mlmmj is a simple and slim mailing list manager (MLM) inspired by ezmlm.
+It works with many different Mail Transport Agents (MTAs) and is simple for a
+system adminstrator to install, configure and integrate with other software.
+As it uses very few resources, and requires no daemons, it is ideal for
+installation on systems where resources are limited. Its features include:
+@enumerate
+@item Archive, Custom headers / footer,
+@item Fully automated bounce handling (similar to ezmlm),
+@item Complete requeueing functionality, Moderation functionality, Subject prefix,
+@item Subscribers only posting, Regular expression access control,
+@item Functionality to retrieve old posts, Web interface, Digests,
+@item No-mail subscription, VERP support,
+@item Delivery Status Notification (RFC1891) support,
+@item Rich and customisable texts for automated operations.
+@end enumerate\n")
+    (license license:expat)))
-- 
2.10.1

[PATCH] gnu: Add mlmmj.

[ng0]

* gnu/packages/mail.scm (mlmmj): New variable.
---
 gnu/packages/mail.scm | 52 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index baa5a96..fc0d8e5 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -1493,3 +1493,55 @@ transfer protocols.")
     (license (non-copyleft "file://LICENSE"
                            "See LICENSE in the distribution."))))
 
+(define-public mlmmj
+  (package
+    (name "mlmmj")
+    (version "1.2.19.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://mlmmj.org/releases/mlmmj-" version ".tar.bz2"))
+       (sha256
+        (base32
+         "1piwvcxkqadjwk5x8jicaiyz9nngmaj3w13ghdqgaki32xd7zk9v"))))
+    (build-system gnu-build-system)
+    (inputs
+     `(("perl" ,perl))) ; "contrib/web/"
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (arguments
+     `(#:configure-flags
+       ;; mlmmj-receive-strip is a replacement for mlmmj-receive
+       ;; It opens the files control/mimedeny and control/mimestrip to get a list
+       ;; of mimetypes for parts of multipart/mime messages that should be denied
+       ;; or stripped. The parts then get stripped directly when the mail is
+       ;; received. mlmmj-receive-strip also appends an extra header
+       ;; X-ThisMailContainsUnwantedMimeParts: Y when the mail contains unwanted
+       ;; mime parts
+       (list "--enable-receive-strip")
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'install 'install-contrib
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (share (string-append out "/share/mlmmj")))
+               (copy-recursively "contrib/web/" share)))))))
+    (home-page "http://mlmmj.org")
+    (synopsis "Mailing list managing made joyful")
+    (description
+     "Mlmmj is a simple and slim mailing list manager (MLM) inspired by ezmlm.
+It works with many different Mail Transport Agents (MTAs) and is simple for a
+system adminstrator to install, configure and integrate with other software.
+As it uses very few resources, and requires no daemons, it is ideal for
+installation on systems where resources are limited.  Its features include:
+@enumerate
+@item Archive, Custom headers / footer,
+@item Fully automated bounce handling (similar to ezmlm),
+@item Complete requeueing functionality, Moderation functionality, Subject prefix,
+@item Subscribers only posting, Regular expression access control,
+@item Functionality to retrieve old posts, Web interface, Digests,
+@item No-mail subscription, VERP support,
+@item Delivery Status Notification (RFC1891) support,
+@item Rich and customisable texts for automated operations.
+@end enumerate\n")
+    (license license:expat)))
-- 
2.10.1

Re: [PATCH] gnu: Add mlmmj.

[ng0]

Seeing as this was never added to the master, should I:

 * 1. Write system-service and system-test?
 or
 * 2. Simply send the rebased patch so that someone else can
      write the service? It requires an exim, postfix, or any MTA
      as a service, and I don't think we have this at the moment?

ng0 <ng0@we.make.ritual.n0.is> writes:

> * gnu/packages/mail.scm (mlmmj): New variable.
> ---
>  gnu/packages/mail.scm | 52 +++++++++++++++++++++++++++++++++++++++++++++++++++
>  1 file changed, 52 insertions(+)
>
> diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
> index baa5a96..fc0d8e5 100644
> --- a/gnu/packages/mail.scm
> +++ b/gnu/packages/mail.scm
> @@ -1493,3 +1493,55 @@ transfer protocols.")
>      (license (non-copyleft "file://LICENSE"
>                             "See LICENSE in the distribution."))))
>  
> +(define-public mlmmj
> +  (package
> +    (name "mlmmj")
> +    (version "1.2.19.0")
> +    (source
> +     (origin
> +       (method url-fetch)
> +       (uri (string-append "http://mlmmj.org/releases/mlmmj-" version ".tar.bz2"))
> +       (sha256
> +        (base32
> +         "1piwvcxkqadjwk5x8jicaiyz9nngmaj3w13ghdqgaki32xd7zk9v"))))
> +    (build-system gnu-build-system)
> +    (inputs
> +     `(("perl" ,perl))) ; "contrib/web/"
> +    (native-inputs
> +     `(("pkg-config" ,pkg-config)))
> +    (arguments
> +     `(#:configure-flags
> +       ;; mlmmj-receive-strip is a replacement for mlmmj-receive
> +       ;; It opens the files control/mimedeny and control/mimestrip to get a list
> +       ;; of mimetypes for parts of multipart/mime messages that should be denied
> +       ;; or stripped. The parts then get stripped directly when the mail is
> +       ;; received. mlmmj-receive-strip also appends an extra header
> +       ;; X-ThisMailContainsUnwantedMimeParts: Y when the mail contains unwanted
> +       ;; mime parts
> +       (list "--enable-receive-strip")
> +       #:phases
> +       (modify-phases %standard-phases
> +         (add-before 'install 'install-contrib
> +           (lambda* (#:key outputs #:allow-other-keys)
> +             (let* ((out (assoc-ref outputs "out"))
> +                    (share (string-append out "/share/mlmmj")))
> +               (copy-recursively "contrib/web/" share)))))))
> +    (home-page "http://mlmmj.org")
> +    (synopsis "Mailing list managing made joyful")
> +    (description
> +     "Mlmmj is a simple and slim mailing list manager (MLM) inspired by ezmlm.
> +It works with many different Mail Transport Agents (MTAs) and is simple for a
> +system adminstrator to install, configure and integrate with other software.
> +As it uses very few resources, and requires no daemons, it is ideal for
> +installation on systems where resources are limited.  Its features include:
> +@enumerate
> +@item Archive, Custom headers / footer,
> +@item Fully automated bounce handling (similar to ezmlm),
> +@item Complete requeueing functionality, Moderation functionality, Subject prefix,
> +@item Subscribers only posting, Regular expression access control,
> +@item Functionality to retrieve old posts, Web interface, Digests,
> +@item No-mail subscription, VERP support,
> +@item Delivery Status Notification (RFC1891) support,
> +@item Rich and customisable texts for automated operations.
> +@end enumerate\n")
> +    (license license:expat)))
> -- 
> 2.10.1
>
>

-- 
♥Ⓐ  ng0 -- https://www.inventati.org/patternsinthechaos/

Re: [PATCH] gnu: Add mlmmj.

[Ludovic Courtès]

ng0 <ng0@libertad.pw> skribis:

> Seeing as this was never added to the master, should I:
>
>  * 1. Write system-service and system-test?
>  or
>  * 2. Simply send the rebased patch so that someone else can
>       write the service? It requires an exim, postfix, or any MTA
>       as a service, and I don't think we have this at the moment?

Hi!  Maybe it just fell through the cracks?  Did you get feedback?

We don’t require system tests when there’s not an associated service.
(and from what you say, mlmmj might only be usable on a foreign distro
right now).

Also, “someone else can write…” doesn’t work as a rule of thumb.  :-)

Anyway, if the patch is ready to apply, can you resend it?

Thanks, and apologies for the delay!

Ludo’.

Add mlmmj

[ng0]

> Hi!  Maybe it just fell through the cracks?  Did you get feedback?

As far as all of guix-devel archive tells me, no.

> Also, "someone else can write" doesn't work as a rule of thumb.  :-)

Yeah, I've figured so much out after all the time :)

> Anyway, if the patch is ready to apply, can you resend it?
> Thanks, and apologies for the delay!

No problem.


So, the problem here will be - as it was with opensmtpd - there's no testsuite, we need a service for an MTA and then we can test if it works. I don't see this as a hold-up for the package as it will probably work on non-GuixSD hosts.
It would be really nice if all these Mailing applications would have a make check phase, but well...

[PATCH] gnu: Add mlmmj.

[ng0]

From: ng0 <ng0@we.make.ritual.n0.is>

* gnu/packages/mail.scm (mlmmj): New variable.
---
 gnu/packages/mail.scm | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 60 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 271f50554..dbbe629bc 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -15,7 +15,7 @@
 ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
 ;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
 ;;; Copyright © 2016 Troy Sankey <sankeytms@gmail.com>
-;;; Copyright © 2016 ng0 <ngillmann@runbox.com>
+;;; Copyright © 2016, 2017 <contact.ng0@cryptolab.net>
 ;;; Copyright © 2016 Clément Lassieur <clement@lassieur.org>
 ;;; Copyright © 2016 Arun Isaac <arunisaac@systemreboot.net>
 ;;; Copyright © 2016 John Darrington <jmd@gnu.org>
@@ -1740,3 +1740,62 @@ the GNU Mailman 3 REST API.")
 
 (define-public python2-mailmanclient
   (package-with-python2 python-mailmanclient))
+
+(define-public mlmmj
+  (package
+    (name "mlmmj")
+    (version "1.2.19.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "http://mlmmj.org/releases/mlmmj-"
+                           version ".tar.bz2"))
+       (sha256
+        (base32
+         "1piwvcxkqadjwk5x8jicaiyz9nngmaj3w13ghdqgaki32xd7zk9v"))))
+    (build-system gnu-build-system)
+    (inputs
+     `(("perl" ,perl))) ; For "contrib/web/"
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (arguments
+     `(#:configure-flags
+       ;; mlmmj-receive-strip is a replacement for mlmmj-receive
+       ;; It opens the files control/mimedeny and control/mimestrip to get a list
+       ;; of mimetypes for parts of multipart/mime messages that should be denied
+       ;; or stripped. The parts then get stripped directly when the mail is
+       ;; received. mlmmj-receive-strip also appends an extra header
+       ;; X-ThisMailContainsUnwantedMimeParts: Y when the mail contains unwanted
+       ;; mime parts
+       (list "--enable-receive-strip")
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'install 'install-contrib
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (share (string-append out "/share/mlmmj"))
+                    (contrib (string-append share "/contrib/web"))
+                    (texts (string-append share "/listtexts")))
+               (copy-recursively "contrib/web/" contrib)
+               (copy-recursively "listtexts" texts)
+               (rename-file texts (string-append share "/texts"))
+               #t))))))
+    (home-page "http://mlmmj.org")
+    (synopsis "Mailing list managing made joyful")
+    (description
+     "Mlmmj is a simple and slim mailing list manager (MLM) inspired by ezmlm.
+It works with many different Mail Transport Agents (MTAs) and is simple for a
+system adminstrator to install, configure and integrate with other software.
+As it uses very few resources, and requires no daemons, it is ideal for
+installation on systems where resources are limited.  Its features include:
+@enumerate
+@item Archive, Custom headers / footer,
+@item Fully automated bounce handling (similar to ezmlm),
+@item Complete requeueing functionality, Moderation functionality, Subject prefix,
+@item Subscribers only posting, Regular expression access control,
+@item Functionality to retrieve old posts, Web interface, Digests,
+@item No-mail subscription, VERP support,
+@item Delivery Status Notification (RFC1891) support,
+@item Rich and customisable texts for automated operations.
+@end enumerate\n")
+    (license license:expat)))
-- 
2.11.0

Re: [PATCH] gnu: Add mlmmj.

[Ludovic Courtès]

ng0 <ng0@libertad.pw> skribis:

> From: ng0 <ng0@we.make.ritual.n0.is>
>
> * gnu/packages/mail.scm (mlmmj): New variable.

Pushed, thanks!

Ludo'.