diff options
Diffstat (limited to 'lisp/mh-e/mh-folder.el')
| -rw-r--r-- | lisp/mh-e/mh-folder.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el index a04538619c4..ab4be1a6c94 100644 --- a/lisp/mh-e/mh-folder.el +++ b/lisp/mh-e/mh-folder.el @@ -156,6 +156,8 @@ annotation.") '("Message" ["Show Message" mh-show (mh-get-msg-num nil)] ["Show Message with Header" mh-header-display (mh-get-msg-num nil)] + ["Show Message with Preferred Alternative" + mh-show-preferred-alternative (mh-get-msg-num nil)] ["Next Message" mh-next-undeleted-msg t] ["Previous Message" mh-previous-undeleted-msg t] ["Go to First Message" mh-first-msg t] @@ -225,6 +227,7 @@ annotation.") "'" mh-toggle-tick "," mh-header-display "." mh-alt-show + ":" mh-show-preferred-alternative ";" mh-toggle-mh-decode-mime-flag ">" mh-write-msg-to-file "?" mh-help @@ -348,7 +351,7 @@ annotation.") "\M-\t" mh-prev-button) (cond - (mh-xemacs-flag + ((featurep 'xemacs) (define-key mh-folder-mode-map [button2] 'mh-show-mouse)) (t (define-key mh-folder-mode-map [mouse-2] 'mh-show-mouse))) @@ -510,7 +513,7 @@ font-lock is done highlighting.") (defmacro mh-remove-xemacs-horizontal-scrollbar () "Get rid of the horizontal scrollbar that XEmacs insists on putting in." - (when mh-xemacs-flag + (when (featurep 'xemacs) `(if (and (featurep 'scrollbar) (fboundp 'set-specifier)) (set-specifier horizontal-scrollbar-visible-p nil @@ -653,7 +656,7 @@ perform the operation on all messages in that region. (easy-menu-add mh-folder-folder-menu) (mh-inc-spool-make) (mh-set-help mh-folder-mode-help-messages) - (if (and mh-xemacs-flag + (if (and (featurep 'xemacs) font-lock-auto-fontify) (turn-on-font-lock))) ; Force font-lock in XEmacs. |