mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Remove XEmacs compat functions from mm-util.el

Browse source 
* lisp/gnus/mm-util.el (mm-special-display-p): Remove.
(mm-decode-coding-string, mm-encode-coding-string)
(mm-decode-coding-region, mm-encode-coding-region): Remove.
(mm-string-to-multibyte): Remove.
(mm-char-or-char-int-p): Remove.
(mm-ucs-to-char): Remove compat versions of the function.
(mm-read-coding-system): Remove.
(mm-coding-system-p): Remove compat code.
(mm-enrich-utf-8-by-mule-ucs): Remove.
(mm-enable-multibyte, mm-disable-multibyte): Remove compat versions.
(mm-delete-duplicates): Remove.
(mm-multibyte-p): Remove compat versions.
(mm-xemacs-find-mime-charset-1): Remove.
(mm-xemacs-find-mime-charset): Remove.
(mm-make-temp-file): Made obsolete.
(mm-find-buffer-file-coding-system): Remove XEmacs compat.
This commit is contained in:
Lars Ingebrigtsen 2016-02-12 14:39:30 +11:00
parent 87931c8dc0
commit 37cf4454b1
46 changed files with 255 additions and 753 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/mml.el
View file

@ -643,7 +643,7 @@ be \"related\" or \"alternate\"."
(mm-with-unibyte-buffer
(cond
((cdr (assq 'buffer cont))
(insert (mm-string-as-unibyte
(insert (string-as-unibyte
(with-current-buffer (cdr (assq 'buffer cont))
(buffer-string)))))
((and filename
@ -658,7 +658,7 @@ be \"related\" or \"alternate\"."
(let ((contents (cdr (assq 'contents cont))))
(if (if (featurep 'xemacs)
(string-match "[^\000-\377]" contents)
(mm-multibyte-string-p contents))
(multibyte-string-p contents))
(progn
(mm-enable-multibyte)
(insert contents)
@ -1377,7 +1377,7 @@ body) or \"attachment\" (separate from the body)."
'type type
;; icicles redefines read-file-name and returns a
;; string w/ text properties :-/
'filename (mm-substring-no-properties file)
'filename (substring-no-properties file)
'disposition (or disposition "attachment")
'description description)
;; When using Mail mode, make sure it does the mime encoding
@ -1606,7 +1606,7 @@ or the `pop-to-buffer' function."
;; FIXME: Buffer is in article mode, but most tool bar commands won't
;; work. Maybe only keep the following icons: search, print, quit
(goto-char (point-min))))
(if (and (not (mm-special-display-p (buffer-name mml-preview-buffer)))
(if (and (not (special-display-p (buffer-name mml-preview-buffer)))
(boundp 'gnus-buffer-configuration)
(assq 'mml-preview gnus-buffer-configuration))
(let ((gnus-message-buffer (current-buffer)))