X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fgnus.git-;a=blobdiff_plain;f=lisp%2Fgnus-util.el;h=aacb877f34c2be89f038de225cfec9834c07b355;hp=350926c28ecc1598d4a87654d5b469742c26357f;hb=3aca09c100b6c60da9524bebf9c9eed6ad3e0174;hpb=a526b7eba49c81420c8caed38c3bafe0e20cdecb

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 350926c..aacb877 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -816,9 +816,12 @@ ARG is passed to the first function."
 	    (if (eq (char-after) ?#)
 		(goto-char (point-max))
 	      (unless (eobp)
-		(setq elem (buffer-substring
-			    (point) (progn (skip-chars-forward "^\t ")
-					   (point))))
+		(setq elem
+		      (if (= (following-char) ?\")
+			  (read (current-buffer))
+			(buffer-substring
+			 (point) (progn (skip-chars-forward "^\t ")
+					(point)))))
 		(cond
 		 ((equal elem "macdef")
 		  ;; We skip past the macro definition.