From: Miles Bader <miles@gnu.org>
Date: Thu, 9 May 2002 01:51:16 +0000 (+0000)
Subject: (gnus-cite-blank-line-after-header): New variable.
X-Git-Tag: ttn-vms-21-2-B4~15130
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb1666e20cb972b060b8ca64a7106add0d99b5d8;p=emacs.git

(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 5c3f0590791..bfcdcc2d1ee 100644
--- 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,Bm(Bk  <Pavel@Janik.cz>
+2002-02-05  Pavel Jan,Am(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,Bm(Bk  <Pavel@Janik.cz>
+2001-12-12  Pavel Jan,Am(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,Bm(Bk  <Pavel@Janik.cz>
+2001-11-10  Pavel Jan,Am(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,Bm(Bk  <Pavel@Janik.cz>
+2001-08-20  Pavel Jan,Am(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,Bm(Bk  <Pavel@Janik.cz>
+2001-07-13  Pavel Jan,Am(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,Bm(Bk <Pavel@Janik.cz>
+2000-04-26  Pavel Jan,Am(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 2bca7c25d6e..47812a727dc 100644
--- 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))