gnus-dired.el (gnus-dired-attach): Silence XEmacs 21.5 when compiling.
2010-10-13 Katsumi Yamaoka <yamaoka@jpl.org>
2010-10-13 Katsumi Yamaoka <yamaoka@jpl.org>
+ * dgnushack.el (byte-optimize-apply)
+ * 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
* gnus-gravatar.el (gnus-gravatar-transform-address): Adjust avatars'
position when (X-)Faces exist.
(gnus-treat-from-gravatar, gnus-treat-mail-gravatar): Force displaying
(maybe-fbind '(defined-colors face-attribute))
(maybe-bind '(idna-program installation-directory)))
(maybe-fbind '(defined-colors face-attribute))
(maybe-bind '(idna-program installation-directory)))
+(when (featurep 'xemacs)
+ (defadvice byte-optimize-apply (before use-mapcan (form) activate)
+ "Replace (apply 'nconc (mapcar ...)) with (mapcan ...)."
+ (let ((last (nth (1- (length form)) form)))
+ (when (and (eq last (third form))
+ (consp last)
+ (eq 'mapcar (car last))
+ (equal (nth 1 form) ''nconc))
+ (setq form (cons 'mapcan (cdr last)))))))
+
(defun dgnushack-compile-verbosely ()
"Call dgnushack-compile with warnings ENABLED. If you are compiling
patches to gnus, you should consider modifying make.bat to call
(defun dgnushack-compile-verbosely ()
"Call dgnushack-compile with warnings ENABLED. If you are compiling
patches to gnus, you should consider modifying make.bat to call
(mapcar
;; don't attach directories
(lambda (f) (if (file-directory-p f) nil f))
(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))
(let ((destination nil)
(files-str nil)
(bufs nil))