Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(mm-find-mime-charset-region): Fix :mime-charset

Browse source 
part.
This commit is contained in:
Dave Love 2002-07-09 22:35:42 +00:00
parent 7619dee9f1
commit f615c3bbea
2 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2002-07-09 Dave Love <fx@gnu.org>
* mm-util.el (mm-find-mime-charset-region): Fix :mime-charset
part.
2002-06-26 Dave Love <fx@gnu.org>
* rfc2047.el (rfc2047-encodable-p): Avoid mm-find-charset-region.

10
lisp/gnus/mm-util.el
View file

@ -504,9 +504,9 @@ charset, and a longer list means no appropriate charset."
(setq systems (delq 'compound-text systems))
(unless (equal systems '(undecided))
(while systems
(let ((cs (or (coding-system-get (pop systems)
:mime-charset)
(coding-system-get systems 'mime-charset))))
(let* ((head (pop systems))
(cs (or (coding-system-get head :mime-charset)
(coding-system-get head 'mime-charset))))
(if cs
(setq systems nil
charsets (list cs))))))
@ -537,7 +537,7 @@ Use unibyte mode for this."
(put 'mm-with-unibyte-buffer 'edebug-form-spec '(body))
(defmacro mm-with-unibyte-current-buffer (&rest forms)
"Evaluate FORMS with current current buffer temporarily made unibyte.
"Evaluate FORMS with current buffer temporarily made unibyte.
Also bind `default-enable-multibyte-characters' to nil.
Equivalent to `progn' in XEmacs"
(let ((multibyte (make-symbol "multibyte"))
@ -632,7 +632,7 @@ Equivalent to `progn' in XEmacs"
A buffer may be modified in several ways after reading into the buffer due
to advanced Emacs features, such as file-name-handlers, format decoding,
find-file-hooks, etc.
If INHIBIT is non-nil, inhibit mm-inhibit-file-name-handlers.
If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'.
This function ensures that none of these modifications will take place."
(let ((format-alist nil)
(auto-mode-alist (if inhibit nil (mm-auto-mode-alist)))