From: yamaoka <yamaoka>
Date: Mon, 31 Jan 2005 00:42:00 +0000 (+0000)
Subject: (gnus-inews-yank-articles): Delete newlines only if they are excessive.
X-Git-Tag: t-gnus-6_17_3-00~147
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0e2aea5231767dc54426e192e2a52a86e7773d94;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index c2b79d8..f5f4f03 100644
--- 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.
+
 2004-05-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-vers.el: T-gnus 6.17.2 revision 00.
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index c7cbf23..1d28059 100644
--- 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>
@@ -825,7 +825,10 @@ article number, and the cdr is the string to 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))