(Emacs-20.2) Symbol's function definition is void ((caddr))

[Makoto Fujiwara <makoto@komekome.bay.prug.or.jp>]

I have been using Gnus from the age of 5.0.15 ( or even before ), 
but I am quite new, I have just get subscribed to this list.

I think I have problem on loading cl.el with the combination of 
Emacs-20.2 and Quassia Gnus 0.12. 
( I don't believe it is specific to this version.)

I got 
  !! Symbol's function definition is void ((caddr))
when I hit space on *Summary* buffer to read listed (any) article.

The things I did was very simple ( I think ). 

(0) set ENVIRONMENT variable just for convenience,
  setenv LISP /usr/local/emacs-20.2/share/emacs/20.2/lisp

(1) build emacs-20.2 with leim-20.2.

  tar zxf /pub/Mule/emacs-20.2.tar.gz
  tar zxf /pub/Mule/leim-20.2.tar.gz
  cd emacs-20.2
  ./configure \
  --prefix=/usr/local/emacs-20.2 \
  --with-gcc \
  --with-x-toolkit=yes \
  --with-x

(2) hide Gnus-5.5
   cd $LISP
   mv gnus gnus-5.5

(3) byte compile qgnus
   (in some working directory)
   tar zxf /pub/Mule/lisp/qgnus-0.12.tar.gz
   cd qgnus-0.12/lisp
   make 
   mkdir $LISP/qgnus
   cp -p *.el *.elc $LISP/qgnus
   (add qgnus onto $LISP/subdirs.el)

(4) prepare gnus-setup.el
    ( as for simple setup for gnus only )
--------------------------
(setq gnus-local-domain "bay.prug.or.jp")
(setq gnus-local-distributions nil)
(setq gnus-local-organization "PRUG Network at Chiba,Japan")
(setq gnus-subscribe-newsgroup-method
        (function gnus-subscribe-hierarchically))
(setq gnus-show-all-headers t)
(setq gnus-local-timezone "JST +900")
(setq gnus-thread-hide-subject t)
(setq gnus-thread-hide-subtree t)
(setq gnus-thread-ignore-subject t)
(setq gnus-select-method '(nntp "komekome" (nntp-port-number 119)))
(setq debug-on-error t)
--------------------------

(5) run emacs with above init-file,
    emacs -q -l gnus-setup.el
    M-x gnus
    (select newsgroup)
    (select article)

(6) Then I got following Backtrace

Signaling: (void-function caddr)
  (caddr spec)
  (format "gnus-emphasis-%s" (caddr spec))
  (intern (format "gnus-emphasis-%s" (caddr spec)))
  (list (format format (car spec) (cadr spec)) 2 3 (intern (format "gnus-emphasis-%s" ...)))
  (lambda (spec) (list (format format ... ...) 2 3 (intern ...)))(("_" "_" underline))

  mapcar((lambda (spec) (list (format format ... ...) 2 3 (intern ...))) (("_" "_" underline) ("/" "/" italic) ("\\*" "\\*" bold) ("_/" "/_" underline-italic) ("_\\*" "\\*_" underline-bold) ("\\*/" "/\\*" bold-italic) ("_\\*/" "/\\*_" underline-bold-italic)))
  (cons (quote ("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)" 2 3 gnus-emphasis-underline)) (mapcar (lambda ... ...) types))
  (\` (("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)" 2 3 gnus-emphasis-underline) (\,@ ...)))
  (let ((format "\\(\\s-\\|^\\|[-\"]\\|\\s(\\|\\s)\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-?!.,;:\"]\\|\\s(\\|\\s)\\)") (types ...)) (\` (... ...)))
  eval((let ((format "\\(\\s-\\|^\\|[-\"]\\|\\s(\\|\\s)\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-?!.,;:\"]\\|\\s(\\|\\s)\\)") (types ...)) (\` (... ...))))
  custom-initialize-reset(gnus-emphasis-alist (let ((format "\\(\\s-\\|^\\|[-\"]\\|\\s(\\|\\s)\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-?!.,;:\"]\\|\\s(\\|\\s)\\)") (types ...)) (\` (... ...))))
  custom-declare-variable(gnus-emphasis-alist (let ((format "\\(\\s-\\|^\\|[-\"]\\|\\s(\\|\\s)\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\s-\\|[-?!.,;:\"]\\|\\s(\\|\\s)\\)") (types ...)) (\` (... ...))) ("/usr/local/emacs-20.2/share/emacs/20.2/lisp/qgnus/gnus-art.elc" . 5886) :type (repeat (list :value ("" 0 0 default) regexp (integer :tag "Match group") (integer :tag "Emphasize group") face)) :group gnus-article-emphasis)
  gnus-hack-decode-rfc1522()
  run-hooks(gnus-parse-headers-hook)
  gnus-get-newsgroup-headers-xover((2707) nil nil "fj.test" t)
  gnus-select-newsgroup("fj.test" nil)
  gnus-summary-read-group-1("fj.test" nil nil nil nil)
  gnus-summary-read-group("fj.test" nil nil nil nil)
  gnus-group-read-group(nil)
  call-interactively(gnus-group-read-group)

---
(Makoto Fujiwara)