Fix emacsbug.el errors clearly flagged by the byte-compiler.

* lisp/mail/emacsbug.el (report-emacs-bug-create-existing-bugs-buffer):
Replace undefined CL functions.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47d352df116..bd92ca9eb1d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-11-27  Glenn Morris  <rgm@gnu.org>
+
+        * mail/emacsbug.el (report-emacs-bug-create-existing-bugs-buffer):
+        Replace undefined CL functions.
+
 2010-11-26  Eli Zaretskii  <eliz@gnu.org>
 
         * simple.el (prog-mode): Set bidi-paragraph-direction to
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 472c9791f8a..a00f4c3a46e 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -394,13 +394,13 @@ and send the mail again%s."
     (if bugs
         (setq bug-choice-widget
               (apply 'widget-create 'radio-button-choice
-                     :value (car (first bugs))
+                     :value (caar bugs)
                      (let (items)
                        (dolist (bug bugs)
                          (push (list
                                 'url-link
                                 :format (concat "Bug#" (number-to-string (third bug))
-                                                ": " (second bug) "\n    %[%v%]\n")
+                                                ": " (cadr bug) "\n    %[%v%]\n")
                                 ;; FIXME: Why is only the link of the
                                 ;; active item clickable?
                                 (first bug))
@@ -420,7 +420,7 @@ and send the mail again%s."
                                (let ((val (widget-value bug-choice-widget)))
                                  ;; TODO: Do something!
                                  (message "Appending to bug %s!"
-                                          (third (assoc val bug-alist)))))
+                                          (nth 2 (assoc val bug-alist)))))
                      "Append to chosen bug"))
     (widget-insert " ")
     (widget-create 'push-button