Mercurial > emacs

diff lisp/gnus/spam.el @ 57265:cee5a9d8ee71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-580 Merge from gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-37 Update from CVS
author Miles Bader <miles@gnu.org>
date Wed, 29 Sep 2004 06:35:14 +0000
parents 55fd4f77387a
children 8479451930d1
line wrap: on
line diff
--- a/lisp/gnus/spam.el	Wed Sep 29 03:14:30 2004 +0000
+++ b/lisp/gnus/spam.el	Wed Sep 29 06:35:14 2004 +0000
@@ -1746,7 +1746,7 @@
 		  (goto-char (point-min))
 		  (when (re-search-forward "^X-Spam: yes;" nil t)
 		    spam-split-group))
-	      (error "Error running spamoracle" status))))))))
+	      (error "Error running spamoracle: %s" status))))))))
 
 (defun spam-spamoracle-learn (articles article-is-spam-p &optional unregister)
   "Run spamoracle in training mode."
@@ -1768,8 +1768,8 @@
 			   `("-f" ,spam-spamoracle-database
 			     "add" ,arg)
 			 `("add" ,arg)))))
-	  (when (not (eq 0 status))
-	    (error "Error running spamoracle" status)))))))
+	  (unless (eq 0 status)
+	    (error "Error running spamoracle: %s" status)))))))
 
 (defun spam-spamoracle-learn-ham (articles &optional unregister)
   (spam-spamoracle-learn articles nil unregister))