Fix handling of unknown MIME type (bug#7651).

1 files changed, 8 insertions, 2 deletions

diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index f6741023e64..a5d5bc149d9 100644
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -741,7 +741,11 @@ directly."
           (cond ((eq (cdr bulk-data) 'text)
                  (rmail-mime-insert-decoded-text entity))
                 ((cdr bulk-data)
-                 (rmail-mime-insert-image entity)))))
+                 (rmail-mime-insert-image entity))
+                (t
+                 ;; As we don't know how to display the body, just
+                 ;; insert it as a text.
+                 (rmail-mime-insert-decoded-text entity)))))
     (put-text-property beg (point) 'rmail-mime-entity entity)))
 
 (defun test-rmail-mime-bulk-handler ()
@@ -819,7 +823,9 @@ The other arguments are the same as `rmail-mime-multipart-handler'."
     (cond ((string-match "mixed" subtype)
            (setq content-type '("text/plain")))
           ((string-match "digest" subtype)
-           (setq content-type '("message/rfc822"))))
+           (setq content-type '("message/rfc822")))
+          (t
+           (setq content-type nil)))
 
     ;; Loop over all body parts, where beg points at the beginning of
     ;; the part and end points at the end of the part.  next points at