2001-11-24 Simon Josefsson <jas@extundo.com>

	* mm-bodies.el (mm-body-encoding): Intern encoding if needed
	(compare mm-charset-to-coding-system).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb072d5..4173b6b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-24  Simon Josefsson  <jas@extundo.com>
+
+       * mm-bodies.el (mm-body-encoding): Intern encoding if needed
+       (compare mm-charset-to-coding-system).
+
 2001-11-23 02:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * canlock.el (canlock-sha1-with-openssl): Use unibyte

diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el
index 1cb753d..19cd5a4 100644 (file)
--- a/lisp/mm-bodies.el
+++ b/lisp/mm-bodies.el
@@ -131,6 +131,8 @@ If no encoding was done, nil is returned."
 
 (defun mm-body-encoding (charset &optional encoding)
   "Do Content-Transfer-Encoding and return the encoding of the current buffer."
+  (when (stringp encoding)
+    (setq encoding (intern (downcase encoding))))
   (let ((bits (mm-body-7-or-8))
        (longp (mm-long-lines-p 1000)))
     (require 'message)