From: Simon Josefsson <jas@extundo.com>
Date: Fri, 30 Sep 2005 00:19:15 +0000 (+0000)
Subject: * spam.el: Load hashcash when compiling, to avoid warnings.  Don't
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=ebaa4a30f736d351108ba62a65dae977643ead91

* spam.el: Load hashcash when compiling, to avoid warnings.  Don't
autoload mail-check-payment.
(spam-check-hashcash): Define unconditionally, since hashcash.el
is part of Gnus now.  Ignore errors from payment checking.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a5d15e989..b11e94800 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2005-09-29  Simon Josefsson  <jas@extundo.com>
+
+	* spam.el: Load hashcash when compiling, to avoid warnings.  Don't
+	autoload mail-check-payment.
+	(spam-check-hashcash): Define unconditionally, since hashcash.el
+	is part of Gnus now.  Ignore errors from payment checking.
+
 2005-09-28  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* message.el (message-bold-region, message-unbold-region): Rename
diff --git a/lisp/spam.el b/lisp/spam.el
index 0ba194675..0c4922c87 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -42,6 +42,7 @@
 
 (eval-when-compile (require 'cl))
 (eval-when-compile (require 'spam-report))
+(eval-when-compile (require 'hashcash))
 
 (require 'gnus-sum)
 
@@ -2023,18 +2024,10 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
 
 ;;{{{ Hashcash.
 
-(eval-when-compile
-  (autoload 'mail-check-payment "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
+(defun spam-check-hashcash ()
+  "Check the headers for hashcash payments."
+  (ignore-errors (mail-check-payment)))	 ;mail-check-payment returns a boolean
 
-  (file-error))
 ;;}}}
 
 ;;{{{ BBDB