From 5fe0e218d6d36ea1802bc53a3580d23b74c7a05c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 31 Jan 2005 00:41:55 +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 c6fe76b..4ed0dbf 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. + 2005-01-16 Katsumi Yamaoka * 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 --- 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 @@ -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)) -- 1.7.10.4