diff options
| author | Dave Love <fx@gnu.org> | 2001-01-04 14:47:59 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2001-01-04 14:47:59 +0000 |
| commit | 5bb548d2f33c344be8f2b6b6979afc70b6ba67e8 (patch) | |
| tree | b2b118b417745c0f124ab26a43d6f78918a1c515 /lisp/gnus | |
| parent | 0f2ac578ce57273e4f89dadcca864b80e44765a9 (diff) | |
| download | emacs-5bb548d2f33c344be8f2b6b6979afc70b6ba67e8.tar.gz | |
(mm-inline-media-tests): Add
image/x-portable-bitmap.
(mm-get-image): Grok pbm.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/gnus/mm-decode.el | 12 |
2 files changed, 15 insertions, 3 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 041eea81f9c..5c59189dfc6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2001-01-04 Dave Love <fx@gnu.org> + + * mm-decode.el (mm-inline-media-tests): Add + image/x-portable-bitmap. + (mm-get-image): Grok pbm. + 2000-12-24 11:00:00 ShengHuo ZHU <zsh@cs.rochester.edu> * message.el (message-mail): Support yank-action. diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index a44f6e5756c..63c6c2e9f5f 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -114,6 +114,10 @@ mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'bmp handle))) + ("image/x-portable-bitmap" + mm-inline-image + (lambda (handle) + (mm-valid-and-fit-image-p 'pbm handle))) ("text/plain" mm-inline-text identity) ("text/enriched" mm-inline-text identity) ("text/richtext" mm-inline-text identity) @@ -164,7 +168,7 @@ (defcustom mm-automatic-display '("text/plain" "text/enriched" "text/richtext" "text/html" "text/x-vcard" "image/.*" "message/delivery-status" "multipart/.*" - "message/rfc822" "text/x-patch" "application/pgp-signature" + "message/rfc822" "text/x-patch" "application/pgp-signature" "application/emacs-lisp") "A list of MIME types to be displayed automatically." :type '(repeat string) @@ -227,7 +231,7 @@ to: "Keymap for input viewer with completion.") ;; Should we bind other key to minibuffer-complete-word? -(define-key mm-viewer-completion-map " " 'self-insert-command) +(define-key mm-viewer-completion-map " " 'self-insert-command) ;;; The functions. @@ -724,7 +728,7 @@ external if displayed external." (completing-read "Viewer: " methods)))) (when (string= method "") (error "No method given")) - (if (string-match "^[^% \t]+$" method) + (if (string-match "^[^% \t]+$" method) (setq method (concat method " %s"))) (mm-display-external (copy-sequence handle) method))) @@ -775,6 +779,8 @@ external if displayed external." "xpm") ((equal type "x-xbitmap") "xbm") + ((equal type "x-portable-bitmap") + "pbm") (t type))) (or (mm-handle-cache handle) (mm-with-unibyte-buffer |