From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 25 Jan 2006 04:57:01 +0000 (+0000)
Subject: (mailcap-parse-mailcap-extras): "test" key must go into alists as symbol not
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=d55294c37bc097cccd72bc3fd72b90941095d84d;p=gnus

(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 7159009f3..374b46153 100644
--- 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)))