[Emacs-commit] emacs/lisp/mh-e mh-show.el

[Jeffrey C Honig]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jeffrey C Honig <jchonig>       07/08/21 12:13:49

Modified files:
        lisp/mh-e      : mh-show.el 

Log message:
        (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).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-show.el?cvsroot=emacs&r1=1.9&r2=1.10

Patches:
Index: mh-show.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-show.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- mh-show.el  13 Aug 2007 13:41:24 -0000      1.9
+++ mh-show.el  21 Aug 2007 12:13:48 -0000      1.10
@@ -103,6 +103,17 @@
       (mh-recenter 0))
     (setq mh-showing-with-headers t)))
 
+;;;###mh-autoload
+(defun  mh-show-preferred-alternative ()
+  "Display message with the default preferred alternative.
+I.e. we set \\mm-discouraged-alternatives to nil.
+
+Use the command \\[mh-show] to show the message normally again."
+  (interactive)
+  (let
+      ((mm-discouraged-alternatives))
+    (mh-show nil t)))
+
 
 
 ;;; Support Routines for MH-Folder Commands
@@ -401,6 +412,7 @@
 (mh-defun-show-buffer mh-show-refile-or-write-again
                       mh-refile-or-write-again)
 (mh-defun-show-buffer mh-show-show mh-show)
+(mh-defun-show-buffer mh-show-show-preferred-alternative 
mh-show-preferred-alternative)
 (mh-defun-show-buffer mh-show-write-message-to-file
                       mh-write-msg-to-file)
 (mh-defun-show-buffer mh-show-extract-rejected-mail
@@ -513,6 +525,8 @@
   '("Message"
     ["Show Message"                     mh-show-show t]
     ["Show Message with Header"         mh-show-header-display t]
+    ["Show Message with Preferred Alternative"
+                                        mh-show-show-preferred-alternative t]
     ["Next Message"                     mh-show-next-undeleted-msg t]
     ["Previous Message"                 mh-show-previous-undeleted-msg t]
     ["Go to First Message"              mh-show-first-msg t]
@@ -568,6 +582,7 @@
   "'"    mh-show-toggle-tick
   ","    mh-show-header-display
   "."    mh-show-show
+  ":"    mh-show-show-preferred-alternative
   ">"    mh-show-write-message-to-file
   "?"    mh-help
   "E"    mh-show-extract-rejected-mail