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

logic, finally

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b40b5f3..66dab7e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-07  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * spam.el (spam-check-ifile): fixed the spma-ifile-all-categories
+       logic, finally
+
 2003-01-08  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-spec.el (gnus-parse-format): %C is a complex format.

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)