[Emacs-diffs] /srv/bzr/emacs/trunk r101947: gnus-dired.el (gnus-dired-attach): Silence XEmacs 21.5 when compiling.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101947
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-10-13 05:39:17 +0000
message:
  gnus-dired.el (gnus-dired-attach): Silence XEmacs 21.5 when compiling.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-dired.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-13 02:19:11 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-13 05:39:17 +0000
@@ -1,5 +1,7 @@
 2010-10-13  Katsumi Yamaoka  <address@hidden>
 
+       * 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

=== modified file 'lisp/gnus/gnus-dired.el'
--- a/lisp/gnus/gnus-dired.el   2010-09-30 08:39:23 +0000
+++ b/lisp/gnus/gnus-dired.el   2010-10-13 05:39:17 +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))