[Emacs-diffs] Changes to emacs/lisp/gnus/mailcap.el

[Miles Bader]

Index: emacs/lisp/gnus/mailcap.el
diff -u emacs/lisp/gnus/mailcap.el:1.13 emacs/lisp/gnus/mailcap.el:1.14
--- emacs/lisp/gnus/mailcap.el:1.13     Sat Aug  6 19:51:42 2005
+++ emacs/lisp/gnus/mailcap.el  Wed Jan 25 06:47:24 2006
@@ -528,7 +528,12 @@
                    (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)))