From dfb605b7b9d3597628c6f69189dc18c3c5df9b96 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 1 Feb 2005 01:57:43 +0000 Subject: [PATCH] (message-yank-original): Delete newlines only if they are excessive. --- ChangeLog | 5 +++++ lisp/message.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index f5f4f03..0276fe2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2005-02-01 Katsumi Yamaoka + + * lisp/message.el (message-yank-original): Delete newlines only if + they are excessive. + 2005-01-31 Katsumi Yamaoka * lisp/gnus-msg.el (gnus-inews-yank-articles): Delete newlines diff --git a/lisp/message.el b/lisp/message.el index 6634e39..0aa19c1 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3476,7 +3476,10 @@ be added to the \"References\" field." '(References . message-fill-references))) (list (cons 'References (mapconcat 'identity (nreverse newrefs) " ")))) - (backward-delete-char 1)))))) + (delete-region (point) + (progn + (skip-chars-backward "\n") + (1+ (point))))))))) (unless arg (if (and message-suspend-font-lock-when-citing (boundp 'font-lock-mode) -- 1.7.10.4