Commit d78f466f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail-mode): Make adaptive-fill-regexp

match more values.  Bind adaptive-fill-first-line-regexp too.
parent feb1ff7f
......@@ -348,7 +348,9 @@ C-c C-v mail-sent-via (add a Sent-via field for each To or CC)."
(setq fill-paragraph-function 'mail-mode-fill-paragraph)
(make-local-variable 'adaptive-fill-regexp)
(setq adaptive-fill-regexp
(concat "[ \t]+[a-z0-9A-Z]+> *\\|" adaptive-fill-regexp))
(concat "[ \t]+[a-z0-9A-Z]*>+ *\\|" adaptive-fill-regexp))
(make-local-variable 'adaptive-fill-first-line-regexp)
(setq adaptive-fill-first-line-regexp adaptive-fill-regexp)
;; `-- ' precedes the signature. `-----' appears at the start of the
;; lines that delimit forwarded messages.
;; Lines containing just >= 3 dashes, perhaps after whitespace,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment