From 72d1fcb3d2889a6eef814f750cef8e643f521b71 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Wed, 26 Apr 2006 15:32:25 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 6 ++++++ lisp/gnus-sum.el | 2 ++ 3 files changed, 13 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f7667faec..7d74f82ab 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2006-04-26 Reiner Steib + * 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 ec1cf490f..661c32779 100644 --- 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 e65e35274..5b2bb85ca 100644 --- 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 -- 2.34.1