Mercurial > emacs

changeset 110965:8c6b3fc2a999

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-dired.el (gnus-dired-attach): Silence XEmacs 21.5 when compiling.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 13 Oct 2010 05:39:17 +0000
parents 388aaaced495
children 0272ba632fc2
files lisp/gnus/ChangeLog lisp/gnus/gnus-dired.el
diffstat 2 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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))