changeset 112241:98276eb8b0ed

Fix handling of unknown MIME type (bug#7651).
author Kenichi Handa <handa@m17n.org>
date Tue, 04 Jan 2011 16:10:30 +0900
parents ca0df3b7fb20 (current diff) 6fd3dcdcc675 (diff)
children 6de29881faa6 438860427833
files
diffstat 2 files changed, 15 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Jan 03 22:26:22 2011 +0100
+++ b/lisp/ChangeLog	Tue Jan 04 16:10:30 2011 +0900
@@ -1,3 +1,10 @@
+2011-01-04  Kenichi Handa  <handa@m17n.org>
+
+	* mail/rmailmm.el (rmail-mime-insert-bulk): Display an unknown
+	part as a plain text.
+	(rmail-mime-process-multipart): Set the default content-type to
+	nil for unknown multipart subtypes (bug#7651).
+
 2011-01-03  Brent Goodrick  <bgoodr@gmail.com>  (tiny change)
 
 	* abbrev.el (prepare-abbrev-list-buffer): If listing local abbrev
--- a/lisp/mail/rmailmm.el	Mon Jan 03 22:26:22 2011 +0100
+++ b/lisp/mail/rmailmm.el	Tue Jan 04 16:10:30 2011 +0900
@@ -741,7 +741,11 @@
 	  (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 @@
     (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