[mew-int 2750] Re: Emacs 23, uses utf-8 instead of iso-8859-1

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)