[mew-int 2750] Re: Emacs 23, uses utf-8 instead of iso-8859-1
Kazu Yamamoto ( 山本和彦 )
kazu at example.com
Wed Oct 28 14:47:34 JST 2009
Hello,
> I am using Emacs 23 with the latest CVS version of Mew. With this
> version of Emacs, Mew systematically uses utf-8 as soon as it sees a
> single accented char like "é" while Emacs 22 was using iso-8859-1
> whenever possible (with the same config file). How can I teach Emacs
> 23 to use iso-8859-1 (or iso-8859-15) if possible ? (Unfortunately,
> some of my friends' mailers do not display well utf-8.)
The following patch should work. Please test especially for
iso-8859-15.
--Kazu
Index: mew-mule3.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-mule3.el,v
retrieving revision 1.53
diff -c -r1.53 mew-mule3.el
*** mew-mule3.el 21 Jan 2009 05:54:56 -0000 1.53
--- mew-mule3.el 28 Oct 2009 05:46:24 -0000
***************
*** 192,198 ****
;; CS
;;
! (defalias 'mew-find-cs-region 'find-charset-region)
;; to internal
(defun mew-cs-decode-region (beg end cs)
--- 192,210 ----
;; CS
;;
! (if (fboundp 'set-charset-priority)
! (defun mew-find-cs-region (beg end)
! (let ((charset-list (charset-priority-list)))
! (set-charset-priority 'japanese-jisx0208 'korean-ksc5601
! 'latin-iso8859-1 'latin-iso8859-2
! 'latin-iso8859-3 'latin-iso8859-4
! 'latin-iso8859-15
! 'thai-tis620
! 'japanese-jisx0208
! 'unicode)
! (prog1 (find-charset-region beg end)
! (apply 'set-charset-priority charset-list))))
! (defalias 'mew-find-cs-region 'find-charset-region))
;; to internal
(defun mew-cs-decode-region (beg end cs)
More information about the Mew-int
mailing list