# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1286948357 0
# Node ID 8c6b3fc2a999fb593f6aa177e5b06bc3fd8a34a9
# Parent  388aaaced495915ef166631286792842dd6cd953
gnus-dired.el (gnus-dired-attach): Silence XEmacs 21.5 when compiling.

diff -r 388aaaced495 -r 8c6b3fc2a999 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Oct 12 20:30:36 2010 -0700
+++ b/lisp/gnus/ChangeLog	Wed Oct 13 05:39:17 2010 +0000
@@ -1,5 +1,7 @@
 2010-10-13  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* gnus-dired.el (gnus-dired-attach): Silence XEmacs 21.5 when compiling.
+
 	* gnus-gravatar.el (gnus-gravatar-transform-address): Adjust avatars'
 	position when (X-)Faces exist.
 	(gnus-treat-from-gravatar, gnus-treat-mail-gravatar): Force displaying
diff -r 388aaaced495 -r 8c6b3fc2a999 lisp/gnus/gnus-dired.el
--- a/lisp/gnus/gnus-dired.el	Tue Oct 12 20:30:36 2010 -0700
+++ b/lisp/gnus/gnus-dired.el	Wed Oct 13 05:39:17 2010 +0000
@@ -133,7 +133,9 @@
 	  (mapcar
 	   ;; don't attach directories
 	   (lambda (f) (if (file-directory-p f) nil f))
-	   (nreverse (dired-map-over-marks (dired-get-filename) nil))))))
+	   (nreverse
+	    (let ((arg nil)) ;; Silence XEmacs 21.5 when compiling.
+	      (dired-map-over-marks (dired-get-filename) arg)))))))
   (let ((destination nil)
 	(files-str nil)
 	(bufs nil))