From: yamaoka <yamaoka>
Date: Tue, 1 Feb 2005 03:18:20 +0000 (+0000)
Subject: * gnus-msg.el (gnus-inews-yank-articles): Don't delete newlines.
X-Git-Tag: t-gnus-6_17_3-00~145
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=54ac90deccb631d56d4dbff56d60c35da6a79b07;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 0276fe2..477a1ca 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 1d28059..0a5f477 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -824,11 +824,7 @@ article number, and the cdr is the string to 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 0aa19c1..93bd8c6 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3474,12 +3474,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)
@@ -5745,8 +5742,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.