From: keiichi <keiichi>
Date: Fri, 24 Dec 1999 07:30:45 +0000 (+0000)
Subject: (mm-mailcap-mime-info): If `string' is invalid content type format, use
X-Git-Tag: nana-gnus-7_1_0_16~67
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=443ccc99928524672948f04acb0c69b8a3642d29;p=elisp%2Fgnus.git-

(mm-mailcap-mime-info): If `string' is invalid content type format, use
`string' as major content type.
---

diff --git a/lisp/mm-mailcap.el b/lisp/mm-mailcap.el
index 278b50e..d94c948 100644
--- a/lisp/mm-mailcap.el
+++ b/lisp/mm-mailcap.el
@@ -664,8 +664,10 @@ this type is returned."
 	ctl)
     (save-excursion
       (setq ctl (mail-header-parse-content-type (or string "text/plain")))
-      (setq major (symbol-name (mime-content-type-primary-type ctl)))
-      (setq minor (symbol-name (mime-content-type-subtype ctl)))
+      (setq major (if ctl
+		      (symbol-name (mime-content-type-primary-type ctl))
+		    string))
+      (setq minor (and ctl (symbol-name (mime-content-type-subtype ctl))))
       (when (setq major-info (cdr (assoc major mm-mailcap-mime-data)))
 	(when (setq viewers (mm-mailcap-possible-viewers major-info minor))
 	  (setq info (mapcar (lambda (a) (cons (symbol-name (car a))