(message-insert-formated-citation-line): Remove newline.

(message-citation-line-format): Add final \n here so that the user can
avoid a blank line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a6843f1..5d2516b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-05-08  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * message.el (message-insert-formated-citation-line): Remove newline.
+       (message-citation-line-format): Add final \n here so that the user can
+       avoid a blank line.
+
 2007-05-03  Dan Christensen  <jdc@uwo.ca>
 
        * nndoc.el (nndoc-type-alist, nndoc-lanl-gov-announce-type-p)

diff --git a/lisp/message.el b/lisp/message.el
index 6e8027f..30c58fc 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -928,7 +928,7 @@ configuration.  See the variable `gnus-cite-attribution-suffix'."
   :link '(custom-manual "(message)Insertion Variables")
   :group 'message-insertion)
 
-(defcustom message-citation-line-format "On %a, %b %d %Y, %N wrote:"
+(defcustom message-citation-line-format "On %a, %b %d %Y, %N wrote:\n"
   "Format of the \"Whomever writes:\" line.
 
 The string is formatted using `format-spec'.  The following
@@ -3751,7 +3751,6 @@ See `message-citation-line-format'."
              (reverse lst)))
           (spec (apply 'format-spec-make flist)))
       (insert (format-spec message-citation-line-format spec)))
-    (newline)
     (newline)))
 
 (defun message-cite-original-without-signature ()