(spam-check-ifile): fixed the spam-ifile-all-categories

[gnus] / lisp / spam.el

diff --git a/lisp/spam.el b/lisp/spam.el
index 475f579..e0a463b 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -522,10 +522,11 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
        (if (not (eobp))
            (setq category (buffer-substring (point) (spam-point-at-eol))))
        (when (not (zerop (length category))) ; we need a category here
-         (unless spam-ifile-all-categories
+         (if spam-ifile-all-categories
+             (setq return category)
+           ;; else, if spam-ifile-all-categories is not set...
            (when (string-equal spam-ifile-spam-category category)
-             (setq return spam-split-group))
-           (setq return category)))))  ; always accept the ifile category
+             (setq return spam-split-group))))))       ; always accept the ifile category
     return))
 
 (defun spam-ifile-register-with-ifile (article-string category)