set no-markup-p and warn to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e173287..d4931ca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-05-01 07:45:43  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mml.el (mml-parse-1): Set no-markup-p and warn to nil.
+
 2000-04-28 21:14:21  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * rfc2047.el (rfc2047-q-encoding-alist): Encode HTAB.

diff --git a/lisp/mml.el b/lisp/mml.el
index b966a17..7663108 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -95,7 +95,9 @@ one charsets.")
              struct))
        (t
        (if (or (looking-at "<#part") (looking-at "<#mml"))
-           (setq tag (mml-read-tag))
+           (setq tag (mml-read-tag)
+                 no-markup-p nil
+                 warn nil)
          (setq tag (list 'part '(type . "text/plain"))
                no-markup-p t
                warn t))