From: yamaoka <yamaoka>
Date: Tue, 30 Nov 1999 06:17:11 +0000 (+0000)
Subject: (gnus-emphasis-alist): Use `car' and `cdr' instead of `cadr'.
X-Git-Tag: t-gnus-6_13_3-07~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f8869decefaf3119b01dc408e057812d71825858;p=elisp%2Fgnus.git-

(gnus-emphasis-alist): Use `car' and `cdr' instead of `cadr'.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index c0f2d72..20a2ea8 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -245,7 +245,7 @@ asynchronously.	 The compressed face will be piped to this command."
       ,@(mapcar
 	 (lambda (spec)
 	   (list
-	    (format format (car spec) (cadr spec))
+	    (format format (car spec) (car (cdr spec)))
 	    2 3 (intern (format "gnus-emphasis-%s" (nth 2 spec)))))
 	 types)))
   "*Alist that says how to fontify certain phrases.