mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 00:10:48 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-decode-babyl-format): Use

Browse source 
with-coding-priority instead of detect-coding-with-priority.
This commit is contained in:
Kenichi Handa 2004-04-09 00:25:07 +00:00
parent 745465b07a
commit 9d2cd7ef37
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/mail/rmail.el
View file

@ -784,17 +784,17 @@ Note: it means the file has no messages in it.\n\^_")))
(unless (and coding-system
(coding-system-p coding-system))
(setq coding-system
;; Emacs 21.1 and later writes RMAIL files in emacs-mule, but
;; earlier versions did that with the current buffer's encoding.
;; So we want to favor detection of emacs-mule (whose normal
;; priority is quite low), but still allow detection of other
;; encodings if emacs-mule won't fit. The call to
;; detect-coding-with-priority below achieves that.
(car (detect-coding-with-priority
from to
'((coding-category-emacs-mule . emacs-mule))))))
(unless (memq coding-system
'(undecided undecided-unix))
;; If rmail-file-coding-system is nil, Emacs 21 writes
;; RMAIL files in emacs-mule, Emacs 22 in utf-8, but
;; earlier versions did that with the current buffer's
;; encoding. So we want to favor detection of emacs-mule
;; (whose normal priority is quite low) and utf-8, but
;; still allow detection of other encodings if they won't
;; fit. The call to with-coding-priority below achieves
;; that.
(with-coding-priority '(emacs-mule utf-8)
(detect-coding-region from to 'highest))))
(unless (eq (coding-system-type coding-system) 'undecided)
(set-buffer-modified-p t) ; avoid locking when decoding
(let ((buffer-undo-list t))
(decode-coding-region from to coding-system))