diff options
| -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)." | |||
| 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, |