2000-11-17 08:02 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-newline-and-reformat): Match extra WSPs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b70581..8e1a4e8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-17 08:02  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-newline-and-reformat): Match extra WSPs.
+
 2000-11-16 23:31  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mml.el (mml-generate-mime-1): Ignore ascii.

diff --git a/lisp/message.el b/lisp/message.el
index f7a32fe..cbcfabb 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1718,7 +1718,7 @@ With the prefix argument FORCE, insert the header anyway."
     (unless (bolp)
       (save-excursion
        (beginning-of-line)
-       (when (looking-at message-cite-prefix-regexp)
+       (when (looking-at (concat message-cite-prefix-regexp "[ \t]*"))
          (setq quoted (match-string 0))))
       (insert "\n"))
     (setq point (point))