X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnmaildir.el;h=8e2cd4bdde34138c5dee91d4f5b02473f238504d;hb=8a16d10321644083c43621cfa178f673b0ca7142;hp=8a018dc6acabf318e004b1e0f405c487a21cdb2c;hpb=06e3d74faa6b1196f0a7b877acc1bb6b6c1563a8;p=gnus

diff --git a/lisp/nnmaildir.el b/lisp/nnmaildir.el
index 8a018dc6a..8e2cd4bdd 100644
--- a/lisp/nnmaildir.el
+++ b/lisp/nnmaildir.el
@@ -59,7 +59,7 @@
    )
 ]
 
-;; For Emacs < 22.2.
+;; For Emacs <22.2 and XEmacs.
 (eval-and-compile
   (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
 
@@ -1559,7 +1559,7 @@ by nnmaildir-request-article.")
 		  (t (signal (car err) (cdr err))))))
 	     todo-marks))
 	  set-action (lambda (article)
-		       (funcall add-action)
+		       (funcall add-action article)
 		       (mapcar (lambda (mark)
 				 (unless (memq mark todo-marks)
 				   (funcall del-mark mark)))
@@ -1590,7 +1590,7 @@ by nnmaildir-request-article.")
 	(nnmaildir--nlist-iterate nlist ranges
 				  (cond ((eq 'del (cadr action)) del-action)
 					((eq 'add (cadr action)) add-action)
-					(t set-action))))
+					((eq 'set (cadr action)) set-action))))
       nil)))
 
 (defun nnmaildir-close-group (gname &optional server)