Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
568f71a8
Commit
568f71a8
authored
Oct 06, 2010
by
Katsumi Yamaoka
Browse files
gnus-art.el (gnus-mime-view-part-as-type): Make it work when being called interactively.
parent
4583e796
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
1 deletion
+6
-1
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+3
-0
lisp/gnus/gnus-art.el
lisp/gnus/gnus-art.el
+3
-1
No files found.
lisp/gnus/ChangeLog
View file @
568f71a8
2010-10-06 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-mime-view-part-as-type): Make it work when being
called interactively.
* gnus-util.el (gnus-remove-if): Allow hash table.
(gnus-remove-if-not): New function.
...
...
lisp/gnus/gnus-art.el
View file @
568f71a8
...
...
@@ -5139,7 +5139,9 @@ available media-types."
(let ((default (gnus-mime-view-part-as-type-internal)))
(gnus-completing-read
"View as MIME type"
(gnus-remove-if-not pred (mailcap-mime-types))
(if pred
(gnus-remove-if-not pred (mailcap-mime-types))
(mailcap-mime-types))
nil nil nil
(car default)))))
(gnus-article-check-buffer)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment