(gnus-read-ephemeral-emacs-bug-group): Make sure that the id is always a number.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b3d221..e40be2c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-07-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-group.el (gnus-read-ephemeral-emacs-bug-group): Make sure that
+       the id is always a number.
+
        * dgnushack.el (debbugs-summary-mode): Shut up compiler about debbugs.
 
        * gnus-group.el (gnus-read-ephemeral-emacs-bug-group): Hook into

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 70be1ce..4ef8412 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2466,8 +2466,9 @@ the bug number, and browsing the URL must return mbox output."
 
 (defun gnus-read-ephemeral-emacs-bug-group (number &optional window-conf)
   "Browse Emacs bug NUMBER as ephemeral group."
-  (interactive (list (read-string "Enter bug number: "
-                                 (thing-at-point 'word) nil)))
+  (interactive (list (string-to-number
+                     (read-string "Enter bug number: "
+                                  (thing-at-point 'word) nil))))
   (gnus-read-ephemeral-bug-group
    number
    (cdr (assoc 'emacs gnus-bug-group-download-format-alist))
@@ -2475,8 +2476,7 @@ the bug number, and browsing the URL must return mbox output."
   (when (boundp 'debbugs-summary-mode)
     (with-current-buffer (window-buffer (selected-window))
       (debbugs-summary-mode 1)
-      (set (make-local-variable 'debbugs-bug-number)
-          (string-to-number number)))))
+      (set (make-local-variable 'debbugs-bug-number) number))))
 
 (defun gnus-group-jump-to-group (group &optional prompt)
   "Jump to newsgroup GROUP.