emacsbug.el trivia.

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 812fa2deba505808d2d0c9cbefdf9075a9f86f37..76f3d6ff082f5aed6bf558a8e633c41eb8b0d889 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index a00f4c3a46e01238328756ff6c31b46bc9f3ce0f..5bc6a7edd82545435824919e1d831330847149fd 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -399,11 +399,11 @@ and send the mail again%s."
                       (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"))