(gnus-cite-blank-line-after-header): New variable.

(gnus-article-hide-citation): Respect it.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5c3f0590791799ec41cc6fe896475e36e28ba2b6..bfcdcc2d1ee9cdb8de8f46c7fffe0b142591c971 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-09  Miles Bader  <miles@gnu.org>
+
+       * gnus-cite.el (gnus-cite-blank-line-after-header): New variable.
+       (gnus-article-hide-citation): Respect it.
+
 2002-04-12  Juanma Barranquero  <lektu@terra.es>
 
        * pop3.el (pop3-open-server): Fix typo.
@@ -95,7 +100,7 @@
 
        * mml.el (mml-preview): Bind `q'.
        
-2002-02-05  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+2002-02-05  Pavel Jan\e,Am\e(Bk  <Pavel@Janik.cz>
 
        * binhex.el (binhex-decoder-switches): Doc fix.
 
@@ -139,7 +144,7 @@
        * message.el, gnus-art.el, gnus.el, gnus-cite.el: 
        Adapt face definitions to use :weight and :slant.
 
-2001-12-12  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+2001-12-12  Pavel Jan\e,Am\e(Bk  <Pavel@Janik.cz>
 
        * gnus-mlspl.el (gnus-group-split-fancy): Doc fix (add reference
        to variable, follow doc-string conventions).
@@ -215,7 +220,7 @@
 
        * gnus-score.el: Fixed some doc strings to properly quote symbols.
 
-2001-11-10  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+2001-11-10  Pavel Jan\e,Am\e(Bk  <Pavel@Janik.cz>
 
        * gnus.el (gnus-local-domain): Reformat the doc-string to refer to
        function `system-name' instead of both function and variable.
@@ -333,7 +338,7 @@
        * imap.el (imap-mailbox-examine, imap-mailbox-examine-1): Fix a
        typo: `exmine' --> `examine'.
 
-2001-08-20  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+2001-08-20  Pavel Jan\e,Am\e(Bk  <Pavel@Janik.cz>
 
        * earcon.el (earcon-auto-play): Remove unused option.
 
@@ -377,7 +382,7 @@
        (gnus-ask-server-for-new-groups): Ditto.
        (gnus-check-first-time-used): Ditto.
 
-2001-07-13  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+2001-07-13  Pavel Jan\e,Am\e(Bk  <Pavel@Janik.cz>
 
        * gnus-setup.el (gnus-use-installed-gnus): Fix a typo.
 
@@ -3113,7 +3118,7 @@
        * gnus-draft.el (gnus-draft-send): Move gnus-draft-setup inside of
        let.
 
-2000-04-26  Pavel Jan\e,Bm\e(Bk <Pavel@Janik.cz>
+2000-04-26  Pavel Jan\e,Am\e(Bk <Pavel@Janik.cz>
 
        * gnus-draft.el (gnus-draft-setup): Fix comments.
 

diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el
index 2bca7c25d6e3a83c551c652e29a390759f0f32f3..47812a727dc83ff99e422fbcc763b75710a4d948 100644 (file)
--- a/lisp/gnus/gnus-cite.el
+++ b/lisp/gnus/gnus-cite.el
@@ -265,6 +265,11 @@ This should make it easier to see who wrote what."
   :group 'gnus-cite
   :type 'integer)
 
+(defcustom gnus-cite-blank-line-after-header t
+  "If non-nil, put a blank line between the citation header and the button."
+  :group 'gnus-cite
+  :type 'boolean)
+
 ;;; Internal Variables:
 
 (defvar gnus-cite-article nil)
@@ -520,7 +525,8 @@ always hide."
                    end (set-marker (make-marker) end))
              (gnus-add-text-properties-when 'article-type nil beg end props)
              (goto-char beg)
-             (unless (save-excursion (search-backward "\n\n" nil t))
+             (when (and gnus-cite-blank-line-after-header
+                        (not (save-excursion (search-backward "\n\n" nil t))))
                (insert "\n"))
              (put-text-property
               (setq start (point-marker))