Commit 5bb548d2 authored by Dave Love's avatar Dave Love
Browse files

(mm-inline-media-tests): Add

image/x-portable-bitmap.
(mm-get-image): Grok pbm.
parent 0f2ac578
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> 2000-12-24 11:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
* message.el (message-mail): Support yank-action. * message.el (message-mail): Support yank-action.
......
...@@ -114,6 +114,10 @@ ...@@ -114,6 +114,10 @@
mm-inline-image mm-inline-image
(lambda (handle) (lambda (handle)
(mm-valid-and-fit-image-p 'bmp 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/plain" mm-inline-text identity)
("text/enriched" mm-inline-text identity) ("text/enriched" mm-inline-text identity)
("text/richtext" mm-inline-text identity) ("text/richtext" mm-inline-text identity)
...@@ -164,7 +168,7 @@ ...@@ -164,7 +168,7 @@
(defcustom mm-automatic-display (defcustom mm-automatic-display
'("text/plain" "text/enriched" "text/richtext" "text/html" '("text/plain" "text/enriched" "text/richtext" "text/html"
"text/x-vcard" "image/.*" "message/delivery-status" "multipart/.*" "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") "application/emacs-lisp")
"A list of MIME types to be displayed automatically." "A list of MIME types to be displayed automatically."
:type '(repeat string) :type '(repeat string)
...@@ -227,7 +231,7 @@ to: ...@@ -227,7 +231,7 @@ to:
"Keymap for input viewer with completion.") "Keymap for input viewer with completion.")
;; Should we bind other key to minibuffer-complete-word? ;; 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. ;;; The functions.
...@@ -724,7 +728,7 @@ external if displayed external." ...@@ -724,7 +728,7 @@ external if displayed external."
(completing-read "Viewer: " methods)))) (completing-read "Viewer: " methods))))
(when (string= method "") (when (string= method "")
(error "No method given")) (error "No method given"))
(if (string-match "^[^% \t]+$" method) (if (string-match "^[^% \t]+$" method)
(setq method (concat method " %s"))) (setq method (concat method " %s")))
(mm-display-external (copy-sequence handle) method))) (mm-display-external (copy-sequence handle) method)))
...@@ -775,6 +779,8 @@ external if displayed external." ...@@ -775,6 +779,8 @@ external if displayed external."
"xpm") "xpm")
((equal type "x-xbitmap") ((equal type "x-xbitmap")
"xbm") "xbm")
((equal type "x-portable-bitmap")
"pbm")
(t type))) (t type)))
(or (mm-handle-cache handle) (or (mm-handle-cache handle)
(mm-with-unibyte-buffer (mm-with-unibyte-buffer
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment