* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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.