From: yamaoka <yamaoka>
Date: Tue, 1 Feb 2005 03:18:09 +0000 (+0000)
Subject: * gnus-msg.el (gnus-inews-yank-articles): Don't delete newlines.
X-Git-Tag: t-gnus-6_17_4-quimby-~576
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fa9bc4f556bc7ca46c155f9c4e54f378296d0f9b;p=elisp%2Fgnus.git-

* gnus-msg.el (gnus-inews-yank-articles): Don't delete newlines.

* message.el (message-yank-original): Don't delete newlines.
(message-fill-references): Don't insert a newline.
---

diff --git a/ChangeLog b/ChangeLog
index d1c7618..0204e25 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2005-02-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* lisp/gnus-msg.el (gnus-inews-yank-articles): Don't delete newlines.
+
+	* lisp/message.el (message-yank-original): Don't delete newlines.
+	(message-fill-references): Don't insert a newline.
+
+2005-02-01  Katsumi Yamaoka  <yamaoka@jpl.org>
+
 	* lisp/message.el (message-yank-original): Delete newlines only if
 	they are excessive.
 
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index da6fede..d7d1d70 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -837,11 +837,7 @@ active, the entire article will be yanked."
 	 (list (or (assq 'References message-header-format-alist)
 		   '(References . message-shorten-references)))
 	 (list (cons 'References
-		     (mapconcat 'identity (nreverse refs) " "))))
-	(delete-region (point)
-		       (progn
-			 (skip-chars-backward "\n")
-			 (1+ (point)))))
+		     (mapconcat 'identity (nreverse refs) " ")))))
       (setq beg (mark t))
       (pop-mark))
 
diff --git a/lisp/message.el b/lisp/message.el
index f840552..8f67848 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3569,12 +3569,9 @@ be added to the \"References\" field."
 		(mail-header-format
 		 (list (or (assq 'References message-header-format-alist)
 			   '(References . message-fill-references)))
-		 (list (cons 'References (mapconcat 'identity
-						    (nreverse newrefs) " "))))
-		(delete-region (point)
-			       (progn
-				 (skip-chars-backward "\n")
-				 (1+ (point)))))))))
+		 (list (cons 'References
+			     (mapconcat 'identity
+					(nreverse newrefs) " ")))))))))
       (unless arg
 	(if (and message-suspend-font-lock-when-citing
 		 (boundp 'font-lock-mode)
@@ -5822,8 +5819,7 @@ Headers already prepared in the buffer are not modified."
   (insert (capitalize (symbol-name header))
 	  ": "
 	  (std11-fill-msg-id-list-string
-	   (if (consp value) (car value) value))
-	  "\n"))
+	   (if (consp value) (car value) value))))
 
 (defun message-split-line ()
   "Split current line, moving portion beyond point vertically down.