From 68d9bf4b702c6cb2616b1061b34e2d50d4ffe9a3 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 13 Oct 2010 05:39:17 +0000 Subject: [PATCH] gnus-dired.el (gnus-dired-attach): Silence XEmacs 21.5 when compiling. --- lisp/gnus/ChangeLog | 2 ++ lisp/gnus/gnus-dired.el | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) 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)) -- 2.39.5