(mailcap-parse-mailcap-extras): "test" key must go into alists as symbol not

 string, since that's what mailcap-viewer-passes-test and
 mailcap-mailcap-entry-passes-test look for.  From Kevin Ryde.

diff --git a/lisp/mailcap.el b/lisp/mailcap.el
index 7159009..374b461 100644 (file)
--- a/lisp/mailcap.el
+++ b/lisp/mailcap.el
@@ -532,7 +532,12 @@ MAILCAPS if set; otherwise (on Unix) use the path from RFC 1524, plus
                    (skip-chars-forward ";"))
                (setq done t))))
          (setq value (buffer-substring val-pos (point))))
-       (setq results (cons (cons name value) results))
+       ;; `test' as symbol, others like "copiousoutput" and "needsx11" as
+       ;; strings
+       (setq results (cons (cons (if (string-equal name "test")
+                                      'test
+                                    name)
+                                  value) results))
        (skip-chars-forward " \";\n\t"))
       results)))