(gnus-inews-yank-articles): Delete newlines only if they are excessive.

diff --git a/ChangeLog b/ChangeLog
index c6fe76b..4ed0dbf 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-31  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/gnus-msg.el (gnus-inews-yank-articles): Delete newlines
+       only if they are excessive.
+
 2005-01-16  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/message.el (invisible-region): Don't advise it when

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 738f9c7..da6fede 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1,6 +1,6 @@
 ;;; gnus-msg.el --- mail and post interface for Semi-gnus
 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
-;;        Free Software Foundation, Inc.
+;;        2005 Free Software Foundation, Inc.
 
 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
 ;;     Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -838,7 +838,10 @@ active, the entire article will be yanked."
                   '(References . message-shorten-references)))
         (list (cons 'References
                     (mapconcat 'identity (nreverse refs) " "))))
-       (backward-delete-char 1))
+       (delete-region (point)
+                      (progn
+                        (skip-chars-backward "\n")
+                        (1+ (point)))))
       (setq beg (mark t))
       (pop-mark))