From: morioka <morioka>
Date: Thu, 12 Mar 1998 18:27:27 +0000 (+0000)
Subject: (mailcap-look-at-type-field): Change type and subtype to symbol.
X-Git-Tag: JR-Himi-~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6270ca8debda8eb92f171d0a5f355efdce1393c3;p=elisp%2Fsemi.git

(mailcap-look-at-type-field): Change type and subtype to symbol.
---

diff --git a/mailcap.el b/mailcap.el
index 3bc3207..f3b82ce 100644
--- a/mailcap.el
+++ b/mailcap.el
@@ -61,9 +61,9 @@
 	  (forward-char)
 	  (let ((subtype (mailcap-look-at-token)))
 	    (if subtype
-		(cons (cons 'type type)
+		(cons (cons 'type (intern type))
 		      (unless (string= subtype "*")
-			(list (cons 'subtype subtype))
+			(list (cons 'subtype (intern subtype)))
 			))))))))