diff options
| author | Miles Bader <miles@gnu.org> | 2002-05-09 01:51:16 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2002-05-09 01:51:16 +0000 |
| commit | eb1666e20cb972b060b8ca64a7106add0d99b5d8 (patch) | |
| tree | 527f5cb650082f5f85401c9ca4544954784ffd5e /lisp/gnus/gnus-cite.el | |
| parent | ad99b6d71395b799073bebf221f3feca4472fc08 (diff) | |
| download | emacs-eb1666e20cb972b060b8ca64a7106add0d99b5d8.tar.gz | |
(gnus-cite-blank-line-after-header): New variable.
(gnus-article-hide-citation): Respect it.
Diffstat (limited to 'lisp/gnus/gnus-cite.el')
| -rw-r--r-- | lisp/gnus/gnus-cite.el | 8 |
1 files changed, 7 insertions, 1 deletions
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)) |