(message-yank-original): Delete newlines only if they are excessive.

diff --git a/ChangeLog b/ChangeLog
index f5f4f03..0276fe2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-01  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/message.el (message-yank-original): Delete newlines only if
+       they are excessive.
+
 2005-01-31  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus-msg.el (gnus-inews-yank-articles): Delete newlines

diff --git a/lisp/message.el b/lisp/message.el
index 6634e39..0aa19c1 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3476,7 +3476,10 @@ be added to the \"References\" field."
                           '(References . message-fill-references)))
                 (list (cons 'References (mapconcat 'identity
                                                    (nreverse newrefs) " "))))
-               (backward-delete-char 1))))))
+               (delete-region (point)
+                              (progn
+                                (skip-chars-backward "\n")
+                                (1+ (point)))))))))
       (unless arg
        (if (and message-suspend-font-lock-when-citing
                 (boundp 'font-lock-mode)