diff options
| author | Richard M. Stallman | 1997-09-03 07:08:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-03 07:08:43 +0000 |
| commit | f03ca5f57c3ef2033819c3b595bf34e2a73fe515 (patch) | |
| tree | 8600cb58e5da3d76c09428bf2fedaa8449c6ff6c | |
| parent | b8cd1360b12951a47ff37eefb68d9e59c2c83309 (diff) | |
| download | emacs-f03ca5f57c3ef2033819c3b595bf34e2a73fe515.tar.gz emacs-f03ca5f57c3ef2033819c3b595bf34e2a73fe515.zip | |
(mail-mode): Set adaptive-fill-first-line-regexp
specially, not same as adaptive-fill-regexp.
| -rw-r--r-- | lisp/mail/sendmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 3ead946218f..b692f8f012c 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -359,7 +359,8 @@ C-c C-v mail-sent-via (add a Sent-via field for each To or CC)." | |||
| 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 adaptive-fill-regexp) | 362 | (setq adaptive-fill-first-line-regexp |
| 363 | (concat "[ \t]*[a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-first-line-regexp)) | ||
| 363 | ;; `-- ' precedes the signature. `-----' appears at the start of the | 364 | ;; `-- ' precedes the signature. `-----' appears at the start of the |
| 364 | ;; lines that delimit forwarded messages. | 365 | ;; lines that delimit forwarded messages. |
| 365 | ;; Lines containing just >= 3 dashes, perhaps after whitespace, | 366 | ;; Lines containing just >= 3 dashes, perhaps after whitespace, |