From: yamaoka <yamaoka>
Date: Tue, 1 Feb 2005 01:57:36 +0000 (+0000)
Subject: (message-yank-original): Delete newlines only if they are excessive.
X-Git-Tag: t-gnus-6_17_4-quimby-~577
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=014e0ebebb1ec90daf4563b9cce04cdc547db34f;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index 4ed0dbf..d1c7618 100644
--- 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 7cc3a31..f840552 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3571,7 +3571,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)