(defcustom gnus-cite-blank-line-after-header t
"If non-nil, put a blank line between the citation header and the button."
+ :version "21.4"
:group 'gnus-cite
:type 'boolean)
If an article has more pages below the one you are looking at, but
nothing on those pages is a word of at least three letters that is not
in a boring face, then the pages will be skipped."
+ :version "21.4"
:type '(repeat face)
:group 'gnus-article-hiding)
(setq end (+ begin gnus-cite-max-prefix)))
;; Ignore quoted envelope From_.
(when (and gnus-cite-ignore-quoted-from
- (looking-at ">from "))
+ (prog2
+ (setq case-fold-search nil)
+ (looking-at ">From ")
+ (setq case-fold-search t)))
(setq end (1+ begin)))
(while (re-search-forward prefix-regexp (1- end) t)
;; Each prefix.