* gnus-sum.el (gnus-summary-mime-map, gnus-summary-make-menu-bar):

Add gnus-article-view-part-as-type.

* gnus-art.el (gnus-article-view-part-as-type): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7667fa..7d74f82 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2006-04-26  Reiner Steib  <Reiner.Steib@gmx.de>
 
+       * gnus-sum.el (gnus-summary-mime-map, gnus-summary-make-menu-bar):
+       Add gnus-article-view-part-as-type.
+
+       * gnus-art.el (gnus-article-view-part-as-type): New function.
+
        * message.el (message-valid-fqdn-regexp): Add TLDs .cat, jobs,
        .mobi and .travel.  Remove .nato, .bitnet and .uucp.
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index ec1cf49..661c327 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4859,6 +4859,12 @@ N is the numerical prefix."
   (interactive "p")
   (gnus-article-part-wrapper n 'gnus-mime-delete-part t))
 
+(defun gnus-article-view-part-as-type (n)
+  "Choose a MIME media type, and view part N as such.
+N is the numerical prefix."
+  (interactive "p")
+  (gnus-article-part-wrapper n 'gnus-mime-view-part-as-type t))
+
 (defun gnus-article-mime-match-handle-first (condition)
   (if condition
       (let (n)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index e65e352..5b2bb85 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2087,6 +2087,7 @@ increase the score of each group you read."
   "O" gnus-article-save-part-and-strip
   "r" gnus-article-replace-part
   "d" gnus-article-delete-part
+  "t" gnus-article-view-part-as-type
   "j" gnus-article-jump-to-part
   "c" gnus-article-copy-part
   "C" gnus-article-view-part-as-charset
@@ -2234,6 +2235,7 @@ increase the score of each group you read."
               ["Repair multipart" gnus-summary-repair-multipart t]
               ["Pipe part..." gnus-article-pipe-part t]
               ["Inline part" gnus-article-inline-part t]
+              ["View part as type..." gnus-article-view-part-as-type t]
               ["Encrypt body" gnus-article-encrypt-body
                :active (not (gnus-group-read-only-p))
               ,@(if (featurep 'xemacs) nil