mail-parse-charset is a MIME charset, not MULE.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 699c28f..3061941 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-14 16:21:45  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-util.el (mm-find-charset-region): mail-parse-charset is a
+       MIME charset not a MULE charset.
+
 1999-12-14 15:08:03  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-ems.el: Translate more ugly characters.

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 19f0557..69861e9 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -340,7 +340,10 @@ See also `with-temp-file' and `with-output-to-string'."
        (skip-chars-forward "\0-\177")
        (if (eobp)
            '(ascii)
-         (delq nil (list 'ascii mail-parse-charset))))))
+         (delq nil (list 'ascii 
+                         (or (car (last (assq mail-parse-charset
+                                              mm-mime-mule-charset-alist)))
+                             'latin-iso8859-1)))))))
    (t
     ;; We are in a unibyte buffer, so we futz around a bit.
     (save-excursion
@@ -352,7 +355,9 @@ See also `with-temp-file' and `with-output-to-string'."
          (skip-chars-forward "\0-\177")
          (if (eobp)
              '(ascii)
-           (delq nil (list 'ascii (car (last (assq 'charset entry))))))))))))
+           (delq nil (list 'ascii 
+                           (or (car (last (assq 'charset entry)))
+                               'latin-iso8859-1))))))))))
 
 (defun mm-read-charset (prompt)
   "Return a charset."