From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Fri, 7 Mar 2003 17:00:21 +0000 (+0000)
Subject: (spam-use-hashcash): new variable
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=ccbec9d22b7e21bb2ca2b8778234bec2ef31d2b2;p=gnus

(spam-use-hashcash): new variable
(spam-list-of-checks): added spam-use-hashcash with associated spam-check-hashcash
(spam-check-hashcash): new function, installed iff hashcash.el is loaded
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e261c60d..07b62c143 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-03-07  Teodor Zlatanov  <tzz@lifelogs.com>
+
+	* spam.el (spam-use-hashcash): new variable
+	(spam-list-of-checks): added spam-use-hashcash with associated spam-check-hashcash
+	(spam-check-hashcash): new function, installed iff hashcash.el is loaded
+
 2003-03-06  Kevin Greiner  <kgreiner@xpediantsolutions.com>
 
 	* gnus-agent.el (gnus-agent-fetch-group-1): Added default
diff --git a/lisp/spam.el b/lisp/spam.el
index 35f221362..451f64f03 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -112,6 +112,11 @@ are considered spam."
   :type 'boolean
   :group 'spam)
 
+(defcustom spam-use-hashcash nil
+  "Whether hashcash payments should be detected by spam-split."
+  :type 'boolean
+  :group 'spam)
+
 (defcustom spam-use-regex-headers nil
   "Whether a header regular expression match should be used by spam-split.
 Also see the variable `spam-spam-regex-headers' and `spam-ham-regex-headers'."
@@ -558,6 +563,7 @@ your main source of newsgroup names."
     (spam-use-ifile	 		. 	spam-check-ifile)
     (spam-use-stat	 		. 	spam-check-stat)
     (spam-use-blackholes 		. 	spam-check-blackholes)
+    (spam-use-hashcash  		. 	spam-check-hashcash)
     (spam-use-bogofilter-headers 	. 	spam-check-bogofilter-headers)
     (spam-use-bogofilter 		. 	spam-check-bogofilter))
 "The spam-list-of-checks list contains pairs associating a parameter
@@ -670,6 +676,20 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
     (when matches
       spam-split-group)))
 
+;;;; Hashcash.
+
+(condition-case nil
+    (progn
+      (require 'hashcash)
+      
+      (defun spam-check-hashcash ()
+	"Check the headers for hashcash payments."
+	(mail-check-payment)))		;mail-check-payment returns a boolean
+
+  (file-error (progn
+		(defalias 'mail-check-payment 'ignore)
+		(defalias 'spam-check-hashcash 'ignore))))
+
 ;;;; BBDB 
 
 ;;; original idea for spam-check-BBDB from Alexander Kotelnikov