Mercurial > emacs

diff lisp/gnus/mailcap.el @ 68380:e1843613ecb8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-14 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 4-7) - Update from CVS
author Miles Bader <miles@gnu.org>
date Wed, 25 Jan 2006 06:47:24 +0000
parents fafd692d1e40
children 04c2548593f7 5b7d410e31f9
line wrap: on
line diff
--- a/lisp/gnus/mailcap.el	Wed Jan 25 04:11:05 2006 +0000
+++ b/lisp/gnus/mailcap.el	Wed Jan 25 06:47:24 2006 +0000
@@ -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)))