(require 'gnus-load)
(require 'gnus-score)
-;(require 'parse-time)
(require 'gnus-util)
;;; Internal variables.
(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
("head" nil gnus-advanced-body)
("body" nil gnus-advanced-body)
("all" nil gnus-advanced-body)))
+
+(eval-and-compile
+ (autoload 'parse-time-string "parse-time"))
(defun gnus-score-advanced (rule &optional trace)
"Apply advanced scoring RULE to all the articles in the current group."
(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)
(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.