diff options
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index c44ea46243a..659de4f227c 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- | 1 | ;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001, 2002, 2003 | 3 | ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001, 2002, 03, 2004 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| @@ -512,6 +512,8 @@ 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) | ||
| 516 | (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*")) | ||
| 515 | (make-local-variable 'adaptive-fill-regexp) | 517 | (make-local-variable 'adaptive-fill-regexp) |
| 516 | (setq adaptive-fill-regexp | 518 | (setq adaptive-fill-regexp |
| 517 | (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|" | 519 | (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|" |