(gnus-emphasis-alist): Use nth, not caddr.

c2a2ac1a · Karl Heuer · cdcd5553 · c2a2ac1a
Commit c2a2ac1a authored Apr 12, 1998 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/gnus/gnus-art.el lisp/gnus/gnus-art.el +1 -1

No files found.
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -191,7 +191,7 @@ asynchronously.	 The compressed face will be piped to this command."
 	 (lambda (spec)
 	   (list
 	    (format format (car spec) (cadr spec))
-	    2 3 (intern (format "gnus-emphasis-%s" (caddr spec)))))
+	    2 3 (intern (format "gnus-emphasis-%s" (nth 2 spec)))))
 	 types)))
  "Alist that says how to fontify certain phrases.
 Each item looks like this: