2001-01-19 23:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-cite-original-without-signature): Don't peel
	off the blank line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cb3e147..11ccff5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-19 23:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-cite-original-without-signature): Don't peel
+       off the blank line.
+
 2001-01-20  Simon Josefsson  <sj@extundo.com>
 
        * mm-decode.el (mm-handle-multipart-from): Add.

diff --git a/lisp/message.el b/lisp/message.el
index 02a7055..960c96a 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2118,7 +2118,10 @@ prefix, and don't delete any headers."
       (while (looking-at "^[ \t]*$")
        (forward-line -1))
       (forward-line 1)
-      (delete-region (point) end))
+      (delete-region (point) end)
+      (unless (search-backward "\n\n" start t)
+       ;; Insert a blank line if it is peeled off.
+       (insert "\n")))
     (goto-char start)
     (while functions
       (funcall (pop functions)))