diff options
| author | Stefan Monnier | 2002-09-02 17:24:54 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-09-02 17:24:54 +0000 |
| commit | 567bb3dd3aa79e63f67d6ec4b9508139a37a34f2 (patch) | |
| tree | 0cffdc2b8db07fd40fe812cfc54e318a707da221 | |
| parent | dba28077d303d2afb44f2b8ea05e99c935d1636f (diff) | |
| download | emacs-567bb3dd3aa79e63f67d6ec4b9508139a37a34f2.tar.gz emacs-567bb3dd3aa79e63f67d6ec4b9508139a37a34f2.zip | |
(mail-mode): Don't set local-abbrev-table.
(mail-mode-abbrev-table): Set to text-mode-abbrev-table.
| -rw-r--r-- | lisp/mail/sendmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 5fbb6558775..7be8c973762 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -473,6 +473,7 @@ actually occur.") | |||
| 473 | :type 'hook | 473 | :type 'hook |
| 474 | :options '(footnote-mode)) | 474 | :options '(footnote-mode)) |
| 475 | 475 | ||
| 476 | (defvar mail-mode-abbrev-table text-mode-abbrev-table) | ||
| 476 | ;;;###autoload | 477 | ;;;###autoload |
| 477 | (define-derived-mode mail-mode text-mode "Mail" | 478 | (define-derived-mode mail-mode text-mode "Mail" |
| 478 | "Major mode for editing mail to be sent. | 479 | "Major mode for editing mail to be sent. |
| @@ -489,7 +490,6 @@ Here are commands that move to a header field (and create it if there isn't): | |||
| 489 | \\[mail-sent-via] mail-sent-via (add a Sent-via field for each To or CC). | 490 | \\[mail-sent-via] mail-sent-via (add a Sent-via field for each To or CC). |
| 490 | Turning on Mail mode runs the normal hooks `text-mode-hook' and | 491 | Turning on Mail mode runs the normal hooks `text-mode-hook' and |
| 491 | `mail-mode-hook' (in that order)." | 492 | `mail-mode-hook' (in that order)." |
| 492 | (setq local-abbrev-table text-mode-abbrev-table) | ||
| 493 | (make-local-variable 'mail-reply-action) | 493 | (make-local-variable 'mail-reply-action) |
| 494 | (make-local-variable 'mail-send-actions) | 494 | (make-local-variable 'mail-send-actions) |
| 495 | (setq buffer-offer-save t) | 495 | (setq buffer-offer-save t) |