From patchwork Thu Jun 22 08:16:36 2023 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Hilton Chain X-Patchwork-Id: 51159 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 04ED227BBEA; Thu, 22 Jun 2023 09:17:19 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-0.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,FROM_SUSPICIOUS_NTLD,MAILING_LIST_MULTI,PDS_OTHER_BAD_TLD, SPF_HELO_PASS,URIBL_BLOCKED autolearn=no autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 4A15027BBE2 for ; Thu, 22 Jun 2023 09:17:18 +0100 (BST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qCFV3-0006om-2k; Thu, 22 Jun 2023 04:17:05 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qCFV1-0006lp-6o for guix-patches@gnu.org; Thu, 22 Jun 2023 04:17:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1qCFV0-0001i8-Tm for guix-patches@gnu.org; Thu, 22 Jun 2023 04:17:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1qCFUz-0008FJ-OC; Thu, 22 Jun 2023 04:17:01 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#64217] [PATCH 1/3] gnu: Add emacs-spamfilter-el. Resent-From: Hilton Chain Original-Sender: "Debbugs-submit" Resent-CC: andrew@trop.in, liliana.prikler@gmail.com, guix-patches@gnu.org Resent-Date: Thu, 22 Jun 2023 08:17:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 64217 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 64217@debbugs.gnu.org Cc: Hilton Chain , Andrew Tropin , Liliana Marie Prikler X-Debbugs-Original-Xcc: Andrew Tropin , Liliana Marie Prikler Received: via spool by 64217-submit@debbugs.gnu.org id=B64217.168742181131654 (code B ref 64217); Thu, 22 Jun 2023 08:17:01 +0000 Received: (at 64217) by debbugs.gnu.org; 22 Jun 2023 08:16:51 +0000 Received: from localhost ([127.0.0.1]:34751 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qCFUp-0008EU-1F for submit@debbugs.gnu.org; Thu, 22 Jun 2023 04:16:51 -0400 Received: from mail.boiledscript.com ([144.168.59.46]:47282) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qCFUm-0008EF-DT for 64217@debbugs.gnu.org; Thu, 22 Jun 2023 04:16:49 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=ultrarare.space; s=dkim; t=1687421615; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:cc:mime-version:mime-version: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references; bh=f3b7yKBe3Fl9z1n+bijJg6/JwiTplMhT5I1BuA1Zcmk=; b=q613JLQWirfw8miKxve45bitB48ghSMfYFEpOZR+HBf/y1nddAq5ClbtnzWV1B1bbkv118 8xWxtvQ6J/eHtb0gLlmfIPCVSo3GTN3xT79LjOhakQ9nVIuDpXHyS9D6k3CurcQr8BoibG 4wG9L95yCu3xlDsvra1f93l9Kr4MqBzkqOL207k72ukBSJvYZF7yX3go5Zo66XppIXEl3e 2G1t1RHuPIh6dFNiyGQAAGJKe4DgFLw35BkKW9r1KKsFD6cJAE3n4rfPOgdPjC3Uznw71Q WZ0D1B451a30+P8BUw1/KwVRFN3kE02RYTbNo2ps8feYhx31CwhlSPgjxq2pAw== Date: Thu, 22 Jun 2023 16:16:36 +0800 Message-Id: <89d82b6ce264ce533bf7029d6bff4ff22452278f.1687420809.git.hako@ultrarare.space> In-Reply-To: References: MIME-Version: 1.0 X-Spamd-Bar: -- Authentication-Results: mail.boiledscript.com; auth=pass smtp.mailfrom=hako@ultrarare.space X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-to: Hilton Chain X-ACL-Warn: , Hilton Chain via Guix-patches X-Patchwork-Original-From: Hilton Chain via Guix-patches via From: Hilton Chain Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org X-getmail-retrieved-from-mailbox: Patches * gnu/packages/emacs-xyz.scm (emacs-spamfilter-el): New variable. (emacs-wanderlust)[propagated-inputs]: Add emacs-spamfilter-el. --- gnu/packages/emacs-xyz.scm | 44 +++++++++++++++++++++++++++++++++++++- 1 file changed, 43 insertions(+), 1 deletion(-) diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index 08d53be8a9..9d9dc26179 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -35405,6 +35405,48 @@ (define-public emacs-spaceleader provides an easy way to bind keys under a configurable prefix key.") (license license:gpl3+)))) +(define-public emacs-spamfilter-el + (package + (name "emacs-spamfilter-el") + (version "1.13") + (source (origin + (method url-fetch) + (uri (string-append + "https://web.archive.org/web/20190227001412/" + "http://www.geocities.co.jp/SiliconValley-PaloAlto/7043/" + "spamfilter-1.1.tar.gz")) + (sha256 + (base32 + "1rd7wfn24bqlqlrrhq0d87vfhhcq09pnmrkkr7jpcnsls081a2iv")))) + (build-system emacs-build-system) + (arguments + (list #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'convert-encoding + (lambda _ + (for-each + (lambda (name) + (invoke "iconv" "-f" "EUC-JP" "-t" "UTF-8" name "-o" name)) + (find-files "." "\\.el"))))))) + (home-page + (string-append + "https://web.archive.org/web/20190326203214/" + "http://www.geocities.co.jp/SiliconValley-PaloAlto/7043/index.html#spamfilter.el")) + (synopsis "Bayesian spam filter") + (description + "This package provides a spam filtering library for Emacs MUAs. It +supports Japanese and has the following features: + +@itemize +@item Pure Emacs Lisp implementation. +@item Interactive process within the MUA. +@item Incremental corpus learning. +@item Three different methods for Japanese word segmentation. +@item Built-in support for @code{emacs-wanderlust} and @code{emacs-mew}. +@item @url{https://github.com/naota/navi2ch, Navi2ch} integration. +@end itemize\n") + (license license:gpl2+))) + (define-public emacs-promise ;; XXX: Last stable release fails to build with "(wrong-number-of-arguments ;; (3 . 4) 2)" error. @@ -37138,7 +37180,7 @@ (define-public emacs-wanderlust (string-append m infodir)))) (invoke "make" "install") (invoke "make" "install-info")))))) - (propagated-inputs (list emacs-semi-epg)) + (propagated-inputs (list emacs-semi-epg emacs-spamfilter-el)) (home-page "https://www.emacswiki.org/emacs/WanderLust") (synopsis "Yet Another Message Interface on Emacsen") (description