(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 (file)
--- 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.