[Mew-dist 670] a tiny patch

[Kazuhiko Yamamoto]

I will probably release 1.64 which has icon-based MIME composing mechanism
tonight, however, I'd give you a tiny patch to resolve two problems.

If you write a message which includes ASCII and ISO-2022-JP,
ISO-2022-JP-2 is guessed for charset instead of ISO-2022-JP. This
makes many troubles.

Mew 1.63 causes an error if it receives unknown content-type while
searching an icon for it.

This patch addresses them.

--Kazu

*** mew-x20.el.orig	Thu Mar 13 13:31:14 1997
--- mew-x20.el	Wed Mar 12 12:55:58 1997
***************
*** 76,82 ****
  (defun mew-charset-guess-region (beg end)
    (interactive "r")
    "Guess minimum character set name."
!   (let* ((lc (charsets-in-region beg end)))
      (cond
       ((null lc) "us-ascii")
       ((equal (length lc) 1)
--- 76,82 ----
  (defun mew-charset-guess-region (beg end)
    (interactive "r")
    "Guess minimum character set name."
!   (let* ((lc (delete 'ascii (charsets-in-region beg end))))
      (cond
       ((null lc) "us-ascii")
       ((equal (length lc) 1)
***************
*** 89,95 ****
  (defun mew-charset-guess-string (str)
    (interactive)
    "Guess minimum character set name."
!   (let* ((lc (charsets-in-string str)))
      (cond
       ((null lc) "us-ascii") ;; in case of ""
       ((equal (length lc) 1)
--- 89,95 ----
  (defun mew-charset-guess-string (str)
    (interactive)
    "Guess minimum character set name."
!   (let* ((lc (delete 'ascii (charsets-in-string str))))
      (cond
       ((null lc) "us-ascii") ;; in case of ""
       ((equal (length lc) 1)
*** mew-syntax.el.orig	Thu Mar 13 13:43:51 1997
--- mew-syntax.el	Thu Mar 13 13:44:08 1997
***************
*** 580,586 ****
  	     (vector
  	      (toolbar-make-button-list 
  	       (expand-file-name
! 		(nth 4 (mew-assoc-match ct mew-mime-content-type 0))
  		mew-icon-directory))
  	      'mew-summary-button
  	      t
--- 580,586 ----
  	     (vector
  	      (toolbar-make-button-list 
  	       (expand-file-name
! 		(nth 4 (mew-assoc-match2 ct mew-mime-content-type 0))
  		mew-icon-directory))
  	      'mew-summary-button
  	      t
***************
*** 597,603 ****
  	     (vector
  	      (toolbar-make-button-list 
  	       (expand-file-name
! 		(nth 4 (mew-assoc-match ct mew-mime-content-type 0))
  		mew-icon-directory))
  	      'mew-summary-button
  	      t
--- 597,603 ----
  	     (vector
  	      (toolbar-make-button-list 
  	       (expand-file-name
! 		(nth 4 (mew-assoc-match2 ct mew-mime-content-type 0))
  		mew-icon-directory))
  	      'mew-summary-button
  	      t