Mercurial > emacs

changeset 82496:79a51974e5fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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).
author Jeffrey C Honig <jch@bsdi.com>
date Tue, 21 Aug 2007 12:13:48 +0000
parents 35a9b12beb25
children c490a6236b89
files lisp/mh-e/mh-show.el
diffstat 1 files changed, 15 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mh-e/mh-show.el	Tue Aug 21 12:03:41 2007 +0000
+++ b/lisp/mh-e/mh-show.el	Tue Aug 21 12:13:48 2007 +0000
@@ -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