diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-11 15:22:45 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-11 15:22:45 +1100 |
| commit | 35953890c59f3d7fc6abe4a5f4aefc4c0d005ad4 (patch) | |
| tree | ca2921c103eb5d01b661d371143ba45a4df04a9d /lisp/gnus/gnus-dired.el | |
| parent | 395f2ad689825f83702cbadc16b9da83493a9929 (diff) | |
| download | emacs-35953890c59f3d7fc6abe4a5f4aefc4c0d005ad4.tar.gz emacs-35953890c59f3d7fc6abe4a5f4aefc4c0d005ad4.tar.bz2 emacs-35953890c59f3d7fc6abe4a5f4aefc4c0d005ad4.zip | |
Remove Gnus XEmacs compatibility
* lisp/gnus/gnus-demon.el (gnus-demon-idle-since): Remove
XEmacs compat.
* lisp/gnus/gnus-dired.el: Remove XEmacs compat.
* lisp/gnus/gnus-draft.el: Remove XEmacs compat.
* lisp/gnus/gnus-gravatar.el (gnus-gravatar-insert): Remove
XEmacs compat.
* lisp/gnus/gnus-group.el: Remove XEmacs compat.
* lisp/gnus/gnus-html.el: Remove XEmacs compat.
* lisp/gnus/gnus-ml.el: Remove XEmacs compat.
* lisp/gnus/gnus-picon.el (gnus-picon-style): Remove XEmacs comment.
Diffstat (limited to 'lisp/gnus/gnus-dired.el')
| -rw-r--r-- | lisp/gnus/gnus-dired.el | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/lisp/gnus/gnus-dired.el b/lisp/gnus/gnus-dired.el index 3bbd4de1fe0..f7eae94a7d8 100644 --- a/lisp/gnus/gnus-dired.el +++ b/lisp/gnus/gnus-dired.el @@ -38,9 +38,6 @@ ;;; Code: -(eval-when-compile - (when (featurep 'xemacs) - (require 'easy-mmode))) ; for `define-minor-mode' (require 'dired) (autoload 'mml-attach-file "mml") (autoload 'mm-default-file-encoding "mm-decode");; Shift this to `mailcap.el'? @@ -86,12 +83,6 @@ See `mail-user-agent' for more information." gnus-user-agent) (function :tag "Other"))) -(eval-when-compile - (when (featurep 'xemacs) - (defvar gnus-dired-mode-hook) - (defvar gnus-dired-mode-on-hook) - (defvar gnus-dired-mode-off-hook))) - (define-minor-mode gnus-dired-mode "Minor mode for intersections of gnus and dired. @@ -134,9 +125,7 @@ filenames." (mapcar ;; don't attach directories (lambda (f) (if (file-directory-p f) nil f)) - (nreverse - (let ((arg nil)) ;; Silence XEmacs 21.5 when compiling. - (dired-map-over-marks (dired-get-filename) arg))))))) + (nreverse (dired-map-over-marks (dired-get-filename) nil)))))) (let ((destination nil) (files-str nil) (bufs nil)) |