diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-04-01 22:21:18 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-04-01 23:47:51 +0200 |
| commit | a7e59c50d29ff6c9e1551a70a9987cb37ea864ac (patch) | |
| tree | ef9cc1df57be383adbba6971fbc0d85233b0252b /gnu/packages | |
| parent | 6050a1fb30378b46bf443efd8e99ac310f8356eb (diff) | |
| download | guix-a7e59c50d29ff6c9e1551a70a9987cb37ea864ac.tar.gz | |
gnu: Add Bogofilter.
* gnu/packages/mail.scm (bogofilter): New variable.
Diffstat (limited to 'gnu/packages')
| -rw-r--r-- | gnu/packages/mail.scm | 38 |
1 files changed, 36 insertions, 2 deletions
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index 703762eed3..18307048ec 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> ;;; ;;; This file is part of GNU Guix. @@ -37,8 +37,10 @@ #:use-module (gnu packages compression) #:use-module (gnu packages glib) #:use-module (gnu packages pkg-config) + #:use-module (gnu packages flex) + #:use-module (gnu packages bdb) #:use-module ((guix licenses) - #:select (gpl2+ gpl3+ lgpl2.1+ lgpl3+)) + #:select (gpl2 gpl2+ gpl3+ lgpl2.1+ lgpl3+)) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix build-system gnu) @@ -211,4 +213,36 @@ the creation and parsing of messages using the Multipurpose Internet Mail Extension (MIME).") (license (list lgpl2.1+ gpl2+ gpl3+)))) +(define-public bogofilter + (package + (name "bogofilter") + (version "1.2.4") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/bogofilter/bogofilter-" + version "/bogofilter-" + version ".tar.bz2")) + (sha256 + (base32 + "1d56n2m9inm8gnzm88aa27xl2a7sp7aff3484vmflpqkinjqf0p1")))) + (build-system gnu-build-system) + (arguments + '(#:phases (alist-cons-before + 'check 'pre-check + (lambda _ + (substitute* "src/tests/t.frame" + (("GREP=/bin/grep") + (string-append "GREP=" (which "grep") "\n")))) + %standard-phases))) + (native-inputs `(("flex" ,flex))) + (inputs `(("bdb" ,bdb))) + (home-page "http://bogofilter.sourceforge.net/") + (synopsis "Mail classifier based on a Bayesian filter") + (description + "Bogofilter is a mail filter that classifies mail as spam or ham + (non-spam) by a statistical analysis of the message's header and +content (body). The program is able to learn from the user's classifications +and corrections. It is based on a Bayesian filter.") + (license gpl2))) + ;;; mail.scm ends here |