diff options
| -rw-r--r-- | lisp/mail/sendmail.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 659de4f227c..932f52204c5 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -512,8 +512,9 @@ Turning on Mail mode runs the normal hooks `text-mode-hook' and | |||
| 512 | ;; Allow using comment commands to add/remove quoting (this only does | 512 | ;; Allow using comment commands to add/remove quoting (this only does |
| 513 | ;; anything if mail-yank-prefix is set to a non-nil value). | 513 | ;; anything if mail-yank-prefix is set to a non-nil value). |
| 514 | (set (make-local-variable 'comment-start) mail-yank-prefix) | 514 | (set (make-local-variable 'comment-start) mail-yank-prefix) |
| 515 | (set (make-local-variable 'comment-start-skip) | 515 | (if mail-yank-prefix |
| 516 | (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*")) | 516 | (set (make-local-variable 'comment-start-skip) |
| 517 | (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*"))) | ||
| 517 | (make-local-variable 'adaptive-fill-regexp) | 518 | (make-local-variable 'adaptive-fill-regexp) |
| 518 | (setq adaptive-fill-regexp | 519 | (setq adaptive-fill-regexp |
| 519 | (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|" | 520 | (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|" |