aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-09-08 10:28:45 +0000
committerRichard M. Stallman1997-09-08 10:28:45 +0000
commit12eb951fa57000dd62097ffd901f76880804f8b8 (patch)
tree70da349f952f12b461706bb99bb028200bb5b244
parente35832ba251539c7bb883eee137097f0b27758b8 (diff)
downloademacs-12eb951fa57000dd62097ffd901f76880804f8b8.tar.gz
emacs-12eb951fa57000dd62097ffd901f76880804f8b8.zip
(mail-mode): Allow dash in citation prefixes
in adaptive-fill-regexp and adaptive-fill-first-line-regexp.
-rw-r--r--lisp/mail/sendmail.el4
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)."
357 (setq fill-paragraph-function 'mail-mode-fill-paragraph) 357 (setq fill-paragraph-function 'mail-mode-fill-paragraph)
358 (make-local-variable 'adaptive-fill-regexp) 358 (make-local-variable 'adaptive-fill-regexp)
359 (setq adaptive-fill-regexp 359 (setq adaptive-fill-regexp
360 (concat "[ \t]*[a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp)) 360 (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp))
361 (make-local-variable 'adaptive-fill-first-line-regexp) 361 (make-local-variable 'adaptive-fill-first-line-regexp)
362 (setq adaptive-fill-first-line-regexp 362 (setq adaptive-fill-first-line-regexp
363 (concat "[ \t]*[a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-first-line-regexp)) 363 (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-first-line-regexp))
364 ;; `-- ' precedes the signature. `-----' appears at the start of the 364 ;; `-- ' precedes the signature. `-----' appears at the start of the
365 ;; lines that delimit forwarded messages. 365 ;; lines that delimit forwarded messages.
366 ;; Lines containing just >= 3 dashes, perhaps after whitespace, 366 ;; Lines containing just >= 3 dashes, perhaps after whitespace,