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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 14f7092b6b98986e362e61324e152492bf6710a1..c90dc7c77c29490a7aef0ae6969efb7116eb1249 100644 (file)
--- 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 da20c66ddbcd0c3641ea27bcb9ce6ac72923f2c5..a12046f73b8a0b3ddfbbcff9b57a3ef826a54ad5 100644 (file)
--- 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))