gnus-dired.el (gnus-dired-attach): Silence XEmacs 21.5 when compiling.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 14f7092b6b9..c90dc7c77c2 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/gnus-dired.el b/lisp/gnus/gnus-dired.el
index da20c66ddbc..a12046f73b8 100644
--- a/lisp/gnus/gnus-dired.el
+++ b/lisp/gnus/gnus-dired.el
@@ -133,7 +133,9 @@ filenames."
           (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))