* mm-util.el (mm-charset-to-coding-system): Change charset to cs.

	From: Torsten Hilbrich <email@myrkr.in-berlin.de>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 28a1816..80779dc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-10  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * mm-util.el (mm-charset-to-coding-system): Change charset to cs.
+       From: Torsten Hilbrich <email@myrkr.in-berlin.de>
+
        * gnus.el (gnus-agent-covered-methods): Move here.
        (gnus-online): New function.
        (gnus-agent-method-p): Move here.

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 1413142..e64e325 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -336,7 +336,7 @@ used as the line break code type of the coding system."
     charset)
    ;; Translate invalid charsets.
    ((let ((cs (cdr (assq charset mm-charset-synonym-alist))))
-      (and cs (mm-coding-system-p charset) cs)))
+      (and cs (mm-coding-system-p cs) cs)))
    ;; Last resort: search the coding system list for entries which
    ;; have the right mime-charset in case the canonical name isn't
    ;; defined (though it should be).