diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-12 15:02:32 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-12 15:02:32 +1100 |
| commit | 9f7711815b808d69f74af93c5a7a36ae6a73900c (patch) | |
| tree | 18a9a7d30cf5a2ebaa6f22ded99f9d54e81a30bd /lisp/gnus/mm-uu.el | |
| parent | 37cf4454b1646481935e7b5bfffc8f64eb484b3a (diff) | |
| download | emacs-9f7711815b808d69f74af93c5a7a36ae6a73900c.tar.gz emacs-9f7711815b808d69f74af93c5a7a36ae6a73900c.tar.bz2 emacs-9f7711815b808d69f74af93c5a7a36ae6a73900c.zip | |
Remove XEmacs compat code from Gnus backends
* lisp/gnus/mm-view.el (mm-inline-image-xemacs): Remove.
(mm-inline-image): Rename from mm-inline-image-emacs.
* lisp/gnus/mml.el: Remove XEmacs compat code.
* lisp/gnus/nnheader.el: Remove XEmacs compat code.
* lisp/gnus/nnimap.el (nnimap-open-connection-1): Remove
XEmacs compat code.
* lisp/gnus/nnir.el (nnir-run-gmane): Remove XEmacs compat code.
* lisp/gnus/nnmail.el (nnmail-pathname-coding-system): Remove
XEmacs compat code.
* lisp/gnus/nnmairix.el: Remove XEmacs compat code.
* lisp/gnus/nnrss.el: Remove XEmacs compat code.
* lisp/gnus/nntp.el: Remove XEmacs compat code.
Diffstat (limited to 'lisp/gnus/mm-uu.el')
| -rw-r--r-- | lisp/gnus/mm-uu.el | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el index 2fa856cc1ef..b1ff318c4c7 100644 --- a/lisp/gnus/mm-uu.el +++ b/lisp/gnus/mm-uu.el @@ -249,14 +249,7 @@ To disable dissecting shar codes, for instance, add (defsubst mm-uu-function-2 (entry) (nth 5 entry)) -;; In Emacs 22, we could use `min-colors' in the face definition. But Emacs -;; 21 and XEmacs don't support it. -(defcustom mm-uu-hide-markers - (< 16 (or (and (fboundp 'defined-colors) - (length (defined-colors))) - (and (fboundp 'device-color-cells) - (device-color-cells)) - 0)) +(defcustom mm-uu-hide-markers (< 16 (length (defined-colors))) "If non-nil, hide verbatim markers. The value should be nil on displays where the face `mm-uu-extract' isn't distinguishable to the face `default'." @@ -299,10 +292,7 @@ apply the face `mm-uu-extract'." (let ((obuf (current-buffer)) (multi (and (boundp 'enable-multibyte-characters) enable-multibyte-characters)) - (coding-system - ;; Might not exist in non-MULE XEmacs - (when (boundp 'buffer-file-coding-system) - buffer-file-coding-system))) + (coding-system buffer-file-coding-system)) (with-current-buffer (generate-new-buffer " *mm-uu*") (if multi (mm-enable-multibyte) (mm-disable-multibyte)) (setq buffer-file-coding-system coding-system) |