From 5bb548d2f33c344be8f2b6b6979afc70b6ba67e8 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Thu, 4 Jan 2001 14:47:59 +0000
Subject: [PATCH] (mm-inline-media-tests): Add image/x-portable-bitmap.
 (mm-get-image): Grok pbm.

---
 lisp/gnus/ChangeLog    |  6 ++++++
 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
-- 
2.39.5