Mercurial > emacs
changeset 45202:79139aa0f18c
(gnus-cite-blank-line-after-header): New variable.
(gnus-article-hide-citation): Respect it.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 09 May 2002 01:50:47 +0000 |
| parents | e898b956ee11 |
| children | c9d37a07c5a4 |
| files | lisp/gnus/gnus-cite.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))