* mml.el (mml-parse-1): Don't test multiple-charsets within mml tag.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 178262f..ce08482 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-05-19 01:45:40  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mml.el (mml-parse-1): Don't test multiple-charsets within mml tag.
+
 2000-05-18  Dave Love  <fx@gnu.org>
 
        * gnus-art.el: Use defalias, not fset.

diff --git a/lisp/mml.el b/lisp/mml.el
index 2168a3d..b035bc5 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -137,7 +137,8 @@ The function is called with one parameter, which is the generated part.")
                  (setq charsets (delq nil charsets))
                (setq warn nil))
            (error "Edit your message to remove those characters")))
-       (if (< (length charsets) 2)
+       (if (or (eq 'mml (car tag))
+               (< (length charsets) 2))
            (if (or (not no-markup-p)
                    (string-match "[^ \t\r\n]" contents))
                ;; Don't create blank parts.