# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1290827759 28800
# Node ID afde28b09d797eec100aea10465c631bd7281b67
# Parent  67a08cfa1976921a0fd64738daf1d1452c1c783e
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.

diff -r 67a08cfa1976 -r afde28b09d79 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 26 19:02:53 2010 -0800
+++ b/lisp/ChangeLog	Fri Nov 26 19:15:59 2010 -0800
@@ -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 -r 67a08cfa1976 -r afde28b09d79 lisp/mail/emacsbug.el
--- a/lisp/mail/emacsbug.el	Fri Nov 26 19:02:53 2010 -0800
+++ b/lisp/mail/emacsbug.el	Fri Nov 26 19:15:59 2010 -0800
@@ -394,13 +394,13 @@
     (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 @@
 			       (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