[mew-int 2756] Re: Mew 6.3 release candidate 2

[Kazu Yamamoto ( 山本和彦 )]

Hello,

> Thanks for your work on this.  I am sorry I did not have time to test
> your patch earlier.  I now upgraded to the latest CVS version and I
> confirm that it works for iso-8859-1.  However, when, say, the "€"
> symbol is present, Mew selects euc-kr instead of iso-8859-15.  Maybe
> just a little bit of fine tuning will do??

Please apply the following patch to rc2 and test it.

--Kazu

Index: mew-mule3.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-mule3.el,v
retrieving revision 1.55
diff -c -r1.55 mew-mule3.el
*** mew-mule3.el	2 Nov 2009 04:39:09 -0000	1.55
--- mew-mule3.el	3 Nov 2009 12:27:32 -0000
***************
*** 197,215 ****
  
  (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
! 			      'cyrillic-iso8859-5 'greek-iso8859-7
! 			      'hebrew-iso8859-8 'latin-iso8859-9
! 			      'latin-iso8859-14 'latin-iso8859-15
! 			      'thai-tis620
! 			      'latin-jisx0201 'japanese-jisx0208-1978
! 			      'japanese-jisx0213-1 'japanese-jisx0213-2
! 			      'unicode)
! 	(prog1 (find-charset-region beg end)
! 	  (apply 'set-charset-priority charset-list))))
    (defalias 'mew-find-cs-region 'find-charset-region))
  
  ;; to internal
--- 197,223 ----
  
  (if (fboundp 'set-charset-priority)
      (defun mew-find-cs-region (beg end)
!       (let ((charset-list (charset-priority-list))
! 	    ret)
! 	(set-charset-priority 'latin-iso8859-15 'cyrillic-iso8859-5 'greek-iso8859-7)
! 	(setq ret (find-charset-region beg end))
! 	(unless (member ret '((ascii latin-iso8859-15)
! 			      (ascii cyrillic-iso8859-5)
! 			      (ascii greek-iso8859-7)))
! 	  (set-charset-priority 'japanese-jisx0208 'korean-ksc5601
! 				'latin-iso8859-1 'latin-iso8859-2
! 				'latin-iso8859-3 'latin-iso8859-4
! 				'hebrew-iso8859-8 'latin-iso8859-9
! 				;; for accent characters
! 				'cyrillic-iso8859-5 'greek-iso8859-7
! 				'latin-iso8859-14 'latin-iso8859-15
! 				'thai-tis620
! 				'latin-jisx0201 'japanese-jisx0208-1978
! 				'japanese-jisx0213-1 'japanese-jisx0213-2
! 				'unicode)
! 	  (setq ret (find-charset-region beg end)))
! 	(apply 'set-charset-priority charset-list)
! 	ret))
    (defalias 'mew-find-cs-region 'find-charset-region))
  
  ;; to internal