*** empty log message ***

[gnus] / lisp / gnus-logic.el

diff --git a/lisp/gnus-logic.el b/lisp/gnus-logic.el
index 963256f..af33a36 100644 (file)
--- a/lisp/gnus-logic.el
+++ b/lisp/gnus-logic.el
@@ -33,7 +33,7 @@
 
 (defvar gnus-advanced-headers nil)
 
-;; To avoid having 8-bit charaters in the source file.
+;; To avoid having 8-bit characters in the source file.
 (defvar gnus-advanced-not (intern (format "%c" 172)))
 
 (defconst gnus-advanced-index
@@ -69,8 +69,8 @@
                       (or (nth 1 rule)
                           gnus-score-interactive-default-score)))
          (push (cons (mail-header-number gnus-advanced-headers)
-                      (or (nth 1 rule)
-                          gnus-score-interactive-default-score))
+                     (or (nth 1 rule)
+                         gnus-score-interactive-default-score))
                gnus-newsgroup-scored)
          (when trace
            (push (cons "A file" rule)
@@ -86,7 +86,8 @@
       (if (not rule)
          t                             ; Empty rule is true.
        (while (and rule
-                   (gnus-advanced-score-rule (pop rule))))
+                   (gnus-advanced-score-rule (car rule)))
+         (pop rule))
        ;; If all the rules were true, then `rule' should be nil.
        (not rule)))
      ;; "Or" rule.