# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1020909047 0
# Node ID 79139aa0f18cb3b38fcd3398975f119e805a5700
# Parent  e898b956ee116d97af708c16e4204c8111c94930
(gnus-cite-blank-line-after-header): New variable.
(gnus-article-hide-citation): Respect it.

diff -r e898b956ee11 -r 79139aa0f18c lisp/gnus/gnus-cite.el
--- a/lisp/gnus/gnus-cite.el	Wed May 08 23:43:41 2002 +0000
+++ b/lisp/gnus/gnus-cite.el	Thu May 09 01:50:47 2002 +0000
@@ -265,6 +265,11 @@
   :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 @@
 		    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))