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

[elisp/gnus.git-] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 7cc3a31..8f67848 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3569,9 +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) " "))))
-               (backward-delete-char 1))))))
+                (list (cons 'References
+                            (mapconcat 'identity
+                                       (nreverse newrefs) " ")))))))))
       (unless arg
        (if (and message-suspend-font-lock-when-citing
                 (boundp 'font-lock-mode)
@@ -5819,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.