From 09a13e95e9e492cf1e41d01ba94714d8305d70ab Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 7 Aug 2005 23:42:27 +0000 Subject: [PATCH] Synch to No Gnus 200508071743. --- lisp/ChangeLog | 6 ++++++ lisp/message.el | 5 +++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 389bd8c..57b5cb2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-08-07 Jesper Harder + + * message.el (message-kill-to-signature): Don't insert newline at + bol. + (message-newline-and-reformat): Bind fill-paragraph-function to nil. + 2005-08-06 Romain Francoise * message.el (message-user-fqdn): Fix typo in docstring. diff --git a/lisp/message.el b/lisp/message.el index 3b57bef..143b4ea 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3145,13 +3145,14 @@ of lines before the signature intact." (end-of-line -1))) (unless (= point (point)) (kill-region point (point)) - (insert "\n")))))) + (unless (bol) + (insert "\n"))))))) (defun message-newline-and-reformat (&optional arg not-break) "Insert four newlines, and then reformat if inside quoted text. Prefix arg means justify as well." (interactive (list (if current-prefix-arg 'full))) - (let (quoted point beg end leading-space bolp) + (let (quoted point beg end leading-space bolp fill-paragraph-function) (setq point (point)) (beginning-of-line) (setq beg (point)) -- 1.7.10.4