2000-11-01 08:54:11 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mml.el (mml-read-tag): Remove spaces and LF.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 702ab02..96b02af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,11 @@
+2000-11-01 08:54:11  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mml.el (mml-read-tag): Remove spaces and LF.
+
 2000-11-01 08:01:03  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
-       * mml2015.el (mml2015-mailcrypt-encrypt): Use from and sign parameter.
-       * mml.el (mml-generate-mime-1): Add sender and recipients attribute.
+       * mml2015.el (mml2015-mailcrypt-encrypt): Use from and sign parameters.
+       * mml.el (mml-generate-mime-1): Add sender and recipients attributes.
 
 2000-11-01 07:39:24  ShengHuo ZHU  <zsh@cs.rochester.edu>
 

diff --git a/lisp/mml.el b/lisp/mml.el
index 8bb4a1a..64ba761 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -219,7 +219,7 @@ one charsets.")
     (setq name (buffer-substring-no-properties
                (point) (progn (forward-sexp 1) (point))))
     (skip-chars-forward " \t\n")
-    (while (not (looking-at ">"))
+    (while (not (looking-at ">[ \t]*\n?"))
       (setq elem (buffer-substring-no-properties
                  (point) (progn (forward-sexp 1) (point))))
       (skip-chars-forward "= \t\n")
@@ -229,7 +229,7 @@ one charsets.")
        (setq val (match-string 1 val)))
       (push (cons (intern elem) val) contents)
       (skip-chars-forward " \t\n"))
-    (forward-char 1)
+    (goto-char (match-end 0))
     ;; Don't skip the leading space.
     ;;(skip-chars-forward " \t\n")
     (cons (intern name) (nreverse contents))))