Re: [PATCH] gnu: Add mlmmj.

[ng0 <ng0@libertad.pw>]

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/