Synch to Gnus 200312071540.

[elisp/gnus.git-] / lisp / spam.el

diff --git a/lisp/spam.el b/lisp/spam.el
index 57638a7..cc13931 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -1536,8 +1536,8 @@ REMOVE not nil, remove the ADDRESSES."
                 (point-min) (point-max) 
                 spam-bogofilter-path
                 nil temp-buffer-name nil
-                (if db `("-d" ,db "-v") `("-v"))))
-       (setq return (spam-check-bogofilter-headers score))))
+                (if db `("-d" ,db "-v") `("-v")))
+         (setq return (spam-check-bogofilter-headers score)))))
     return))
 
 (defun spam-bogofilter-register-with-bogofilter (articles 
@@ -1594,7 +1594,7 @@ REMOVE not nil, remove the ADDRESSES."
                        (if spam-spamoracle-database
                            `("-f" ,spam-spamoracle-database "mark")
                          '("mark")))))
-           (if (zerop status)
+           (if (eq 0 status)
                (progn
                  (set-buffer temp-buffer-name)
                  (goto-char (point-min))
@@ -1622,7 +1622,7 @@ REMOVE not nil, remove the ADDRESSES."
                           `("-f" ,spam-spamoracle-database 
                             "add" ,arg)
                         `("add" ,arg)))))
-         (when (not (zerop status))
+         (when (not (eq 0 status))
            (error "Error running spamoracle" status)))))))
 
 (defun spam-spamoracle-learn-ham (articles &optional unregister)