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

6
lisp/gnus/gnus-srvr.el
View file

@ -802,7 +802,7 @@ claim them."
(while (not (eobp))
(ignore-errors
(push (cons
(mm-string-as-unibyte
(string-as-unibyte
(buffer-substring
(point)
(progn
@ -815,7 +815,7 @@ claim them."
(while (not (eobp))
(ignore-errors
(push (cons
(mm-string-as-unibyte
(string-as-unibyte
(if (eq (char-after) ?\")
(read cur)
(let ((p (point)) (name ""))
@ -883,7 +883,7 @@ claim them."
(if (and (fboundp 'detect-coding-string)
(eq (detect-coding-string name t) 'undecided))
name
(mm-decode-coding-string
(decode-coding-string
name
(inline (gnus-group-name-charset method name)))))))
(list 'gnus-group name)