(mm-inline-media-tests): Add

image/x-portable-bitmap.
(mm-get-image): Grok pbm.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 041eea81f9c17e89aaa562888d92d308ec9d0e35..5c59189dfc66ac3e0c947db3e6c06fe4a18c76cd 100644 (file)
--- 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 a44f6e5756c85e07ca995e9a9e794af625c68bbd..63c6c2e9f5fef833aff06c085dacfb30f0be617f 100644 (file)
--- 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