From: Katsumi Yamaoka Date: Wed, 13 Oct 2010 05:39:17 +0000 (+0000) Subject: gnus-dired.el (gnus-dired-attach): Silence XEmacs 21.5 when compiling. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~46^2~28 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68d9bf4b702c6cb2616b1061b34e2d50d4ffe9a3;p=emacs.git gnus-dired.el (gnus-dired-attach): Silence XEmacs 21.5 when compiling. --- 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 + * 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))