;;; Code:
-;; For Emacs < 22.2.
+;; For Emacs <22.2 and XEmacs.
(eval-and-compile
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
(setq nnmail-split-trace nil))
(if (or (and (symbolp nnmail-split-methods)
(fboundp nnmail-split-methods))
- (and (listp ruleset)
+ (and (listp nnmail-split-methods)
;; Not a regular split method, so it has to be a
;; fancy one.
- (not (let ((top-element (car-safe ruleset)))
+ (not (let ((top-element (car-safe nnmail-split-methods)))
(and (= 2 (length top-element))
(stringp (nth 0 top-element))
(stringp (nth 1 top-element)))))))
(unless (eq target 'delete)
(when (or (gnus-request-group target)
(gnus-request-create-group target))
- (let ((group-art (gnus-request-accept-article target nil nil t)))
+ (let ((group-art (gnus-request-accept-article target nil t t)))
(when (consp group-art)
(gnus-group-mark-article-read target (cdr group-art))))))))