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

diff --git a/mailcap.el b/mailcap.el
index 3bc3207..f3b82ce 100644 (file)
--- 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)))
                        ))))))))