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

68d9bf4b · Katsumi Yamaoka · 35744400 · 68d9bf4b · 68d9bf4b
Commit 68d9bf4b authored Oct 13, 2010 by Katsumi Yamaoka
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/gnus/ChangeLog lisp/gnus/ChangeLog +2 -0

lisp/gnus/gnus-dired.el lisp/gnus/gnus-dired.el +3 -1

No files found.
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
 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

--- 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))