diff options
author | Bill Wohler <[email protected]> | 2006-01-30 00:49:56 +0000 |
---|---|---|
committer | Bill Wohler <[email protected]> | 2006-01-30 00:49:56 +0000 |
commit | 0f1f01d652849a378c73d6a7160b128bd065cb96 (patch) | |
tree | 1a5a4d79c1c9d581f6249e2d26788147f321d658 /lisp | |
parent | 19750a726ea25690b2c4d13230fd42780ff01c9c (diff) |
(mh-letter-menu): Remove. Defvar no longer needed to shush compiler.
(mh-letter-mode): Remove Mail menu.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mh-e/mh-letter.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/mh-e/mh-letter.el b/lisp/mh-e/mh-letter.el index 952dc90071..b9fa52858f 100644 --- a/lisp/mh-e/mh-letter.el +++ b/lisp/mh-e/mh-letter.el @@ -84,7 +84,6 @@ semi-obsolete and is only used if `mail-citation-hook' is nil.") ;;; Letter Menu -(eval-when-compile (defvar mh-letter-menu nil)) (easy-menu-define mh-letter-menu mh-letter-mode-map "Menu for MH-E letter mode." '("Letter" @@ -353,6 +352,11 @@ order). ;; ...or the header only (setq font-lock-defaults '((mh-show-font-lock-keywords) t)))) (easy-menu-add mh-letter-menu) + ;; Maybe we want to use the existing Mail menu from mail-mode in + ;; 9.0; in the mean time, let's remove it since the redundancy will + ;; only produce confusion. + (define-key mh-letter-mode-map [menu-bar mail] 'undefined) + (mh-do-in-xemacs (easy-menu-remove mail-menubar-menu)) (setq fill-column mh-letter-fill-column) ;; If text-mode-hook turned on auto-fill, tune it for messages (when auto-fill-function |