[elpa] externals/debbugs 6777b9f 022/311: (debbugs-show-reports): Store the status in the buffer.

[Stefan Monnier]

branch: externals/debbugs
commit 6777b9f42c46ac0a7162aa320423ae260b4e1227
Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
Commit: Lars Magne Ingebrigtsen <larsi@gnus.org>

    (debbugs-show-reports): Store the status in the buffer.
---
 ChangeLog      |  1 +
 debbugs-gnu.el | 38 ++++++++++++++++++--------------------
 2 files changed, 19 insertions(+), 20 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 3149de2..f2b1ba3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,7 @@
        * debbugs-gnu.el (debbugs-emacs): Don't use widgets to provide
        clickable links, since that requires you to select certain parts
        of the line, which is annoying.
+       (debbugs-show-reports): Store the status in the buffer.
 
 2011-07-03  Michael Albinus  <michael.albinus@gmx.de>
 
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index a6c3b31..004560f 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -174,6 +174,8 @@
                     address)
                   (propertize subject 'help-echo subject)))
          (forward-line -1)
+         (put-text-property (point) (1+ (point))
+                            'debbugs-status status)
          (put-text-property
           (+ (point) 5) (+ (point) 26)
           'face
@@ -268,27 +270,23 @@ The following commands are available:
 
 (defvar debbugs-bug-number nil)
 
-(defun debbugs-select-report ()
+(defun debbugs-current-id ()
+  (cdr (assq 'id (get-text-property (line-beginning-position)
+                                   'debbugs-status))))
+
+(defun debbugs-select-report (id)
   "Select the report on the current line."
-  (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)))
+  (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))))
 
 (defvar debbugs-summary-mode-map
   (let ((map (make-sparse-keymap)))