X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmessage.el;h=2a529468cbb464e3b5c5240c789d350c61728a72;hb=6c4d3ee21e0eef17511f20e8a575f5ab302f5778;hp=7f5a8c2a0732dbf3c3569fd15075d474bc806d0c;hpb=2c288ff29ac5cfb28d8f9f9de7993d1f4daac3e0;p=gnus

diff --git a/lisp/message.el b/lisp/message.el
index 7f5a8c2a0..2a529468c 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2888,13 +2888,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))