(mh-folder-message-menu, mh-folder-mode-map): Add

folder mode support for mh-show-preferred-alternative.  (Clooses
SF 1777321).

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index b4b7b8a..4e25ce1 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,5 +1,16 @@
 2007-08-21  Jeffrey C Honig  <jch@honig.net>
 
+       * mh-folder.el (mh-folder-message-menu, mh-folder-mode-map): Add
+       folder mode support for mh-show-preferred-alternative.  (Clooses
+       SF 1777321).
+
+       * mh-show.el (mh-show-preferred-alternative)
+       (mh-show-write-message-to-file, mh-show-message-menu)
+       (mh-show-mode-map): Add mh-show-preferred-alternative (bound to
+       ":") which will show the message's preferred alternative
+       overriding the users configured preference.  Useful for showing
+       HTML when text content is lacking.  (Closses SF 1777321).
+
        * mh-e.el: 
        (mh-invisible-header-fields-internal): Exclude Fax and Phone.  Put
        known exclusions as comments before the list and move parens to

diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el
index 42abad4..75cebfe 100644 (file)
--- 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