# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1291345386 28800
# Node ID 636a2b5cff1da4377ecd5aa0b632ebef00079c08
# Parent  b2c5606310f568785011eab906a7073c7f068bc1
emacsbug.el trivia.
* lisp/mail/emacsbug.el (report-emacs-bug-create-existing-bugs-buffer):
Remove more undefined cl functions.

diff -r b2c5606310f5 -r 636a2b5cff1d lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Dec 02 19:01:16 2010 -0800
+++ b/lisp/ChangeLog	Thu Dec 02 19:03:06 2010 -0800
@@ -1,5 +1,8 @@
 2010-12-03  Glenn Morris  <rgm@gnu.org>
 
+	* mail/emacsbug.el (report-emacs-bug-create-existing-bugs-buffer):
+	Remove more undefined cl functions.
+
 	* vc/diff.el (diff-sentinel): Make new arguments optional.
 	* ibuf-ext.el (diff-sentinel): Update declaration.
 
diff -r b2c5606310f5 -r 636a2b5cff1d lisp/mail/emacsbug.el
--- a/lisp/mail/emacsbug.el	Thu Dec 02 19:01:16 2010 -0800
+++ b/lisp/mail/emacsbug.el	Thu Dec 02 19:03:06 2010 -0800
@@ -399,11 +399,11 @@
 		       (dolist (bug bugs)
 			 (push (list
 				'url-link
-				:format (concat "Bug#" (number-to-string (third bug))
+				:format (concat "Bug#" (number-to-string (nth 2 bug))
 						": " (cadr bug) "\n    %[%v%]\n")
 				;; FIXME: Why is only the link of the
 				;; active item clickable?
-				(first bug))
+				(car bug))
 			       items))
 		       (nreverse items))))
       (widget-insert "No bugs maching your keywords found.\n"))