- (interactive)
- (let (id)
- (save-excursion
- (beginning-of-line)
- (cond
- ((looking-at " *\\([0-9]+\\)")
- (setq id (string-to-number (match-string 1))))
- ((looking-at "Page:") nil)
- (t (error "No bug report on the current line"))))
- (if (null id)
- ;; We go to another buffer.
- (widget-button-press (point))
- ;; We open the report messages.
- (gnus-read-ephemeral-emacs-bug-group
- id (cons (current-buffer)
- (current-window-configuration)))
- (with-current-buffer (window-buffer (selected-window))
- (debbugs-summary-mode 1)
- (set (make-local-variable 'debbugs-bug-number) id)))))
+ (interactive (list (debbugs-current-id)))
+ ;; We open the report messages.
+ (gnus-read-ephemeral-emacs-bug-group
+ id (cons (current-buffer)
+ (current-window-configuration)))
+ (with-current-buffer (window-buffer (selected-window))
+ (debbugs-summary-mode 1)
+ (set (make-local-variable 'debbugs-bug-number) id)))