From 0e2aea5231767dc54426e192e2a52a86e7773d94 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 31 Jan 2005 00:42:00 +0000 Subject: [PATCH] (gnus-inews-yank-articles): Delete newlines only if they are excessive. --- ChangeLog | 5 +++++ lisp/gnus-msg.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index c2b79d8..f5f4f03 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2005-01-31 Katsumi Yamaoka + + * lisp/gnus-msg.el (gnus-inews-yank-articles): Delete newlines + only if they are excessive. + 2004-05-02 Katsumi Yamaoka * 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 ;; Lars Magne Ingebrigtsen @@ -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)) -- 1.7.10.4