diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-08 10:28:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-08 10:28:45 +0000 |
| commit | 5068ad1dfd3b11508519ddcb60338798edf2f80b (patch) | |
| tree | e1ef3194c5ed0f8904b2b46212d97bf83ff69084 | |
| parent | 24a3b48d905ded3074590dc2e29dae1583385a67 (diff) | |
| download | emacs-5068ad1dfd3b11508519ddcb60338798edf2f80b.tar.gz | |
(mail-mode): Allow dash in citation prefixes
in adaptive-fill-regexp and adaptive-fill-first-line-regexp.
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index b692f8f012c..e5f1495ca81 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -357,10 +357,10 @@ 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]*>+[ \t]*\\|" adaptive-fill-regexp)) + (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp)) (make-local-variable 'adaptive-fill-first-line-regexp) (setq adaptive-fill-first-line-regexp - (concat "[ \t]*[a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-first-line-regexp)) + (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-first-line-regexp)) ;; `-- ' precedes the signature. `-----' appears at the start of the ;; lines that delimit forwarded messages. ;; Lines containing just >= 3 dashes, perhaps after whitespace, |