Mercurial > emacs
comparison lisp/mh-e/mh-letter.el @ 68473:e238dd02cdad
(mh-letter-menu): Remove. Defvar no longer needed to shush compiler.
(mh-letter-mode): Remove Mail menu.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Mon, 30 Jan 2006 00:49:56 +0000 |
| parents | 4bd450a8dbe2 |
| children | 0f44616074ba |
comparison
equal
deleted
inserted
replaced
| 68472:a7a6f6c663c9 | 68473:e238dd02cdad |
|---|---|
| 82 | 82 |
| 83 | 83 |
| 84 | 84 |
| 85 ;;; Letter Menu | 85 ;;; Letter Menu |
| 86 | 86 |
| 87 (eval-when-compile (defvar mh-letter-menu nil)) | |
| 88 (easy-menu-define | 87 (easy-menu-define |
| 89 mh-letter-menu mh-letter-mode-map "Menu for MH-E letter mode." | 88 mh-letter-menu mh-letter-mode-map "Menu for MH-E letter mode." |
| 90 '("Letter" | 89 '("Letter" |
| 91 ["Send This Draft" mh-send-letter t] | 90 ["Send This Draft" mh-send-letter t] |
| 92 ["Split Current Line" mh-open-line t] | 91 ["Split Current Line" mh-open-line t] |
| 351 (setq font-lock-defaults '(mh-letter-font-lock-keywords t))) | 350 (setq font-lock-defaults '(mh-letter-font-lock-keywords t))) |
| 352 (t | 351 (t |
| 353 ;; ...or the header only | 352 ;; ...or the header only |
| 354 (setq font-lock-defaults '((mh-show-font-lock-keywords) t)))) | 353 (setq font-lock-defaults '((mh-show-font-lock-keywords) t)))) |
| 355 (easy-menu-add mh-letter-menu) | 354 (easy-menu-add mh-letter-menu) |
| 355 ;; Maybe we want to use the existing Mail menu from mail-mode in | |
| 356 ;; 9.0; in the mean time, let's remove it since the redundancy will | |
| 357 ;; only produce confusion. | |
| 358 (define-key mh-letter-mode-map [menu-bar mail] 'undefined) | |
| 359 (mh-do-in-xemacs (easy-menu-remove mail-menubar-menu)) | |
| 356 (setq fill-column mh-letter-fill-column) | 360 (setq fill-column mh-letter-fill-column) |
| 357 ;; If text-mode-hook turned on auto-fill, tune it for messages | 361 ;; If text-mode-hook turned on auto-fill, tune it for messages |
| 358 (when auto-fill-function | 362 (when auto-fill-function |
| 359 (make-local-variable 'auto-fill-function) | 363 (make-local-variable 'auto-fill-function) |
| 360 (setq auto-fill-function 'mh-auto-fill-for-letter))) | 364 (setq auto-fill-function 'mh-auto-fill-for-letter))) |