From 443ccc99928524672948f04acb0c69b8a3642d29 Mon Sep 17 00:00:00 2001 From: keiichi Date: Fri, 24 Dec 1999 07:30:45 +0000 Subject: [PATCH] (mm-mailcap-mime-info): If `string' is invalid content type format, use `string' as major content type. --- lisp/mm-mailcap.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4