[elpa] externals/debbugs 63e5cf5 031/311: * debbugs-gnu.el (debbugs-rescan): New command and keystroke.

[Stefan Monnier]

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

    * debbugs-gnu.el (debbugs-rescan): New command and keystroke.
---
 ChangeLog      |  4 ++++
 debbugs-gnu.el | 12 +++++++++++-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index f179171..b205c1e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * debbugs-gnu.el (debbugs-rescan): New command and keystroke.
+
 2011-07-03  Michael Albinus  <michael.albinus@gmx.de>
 
        * debbugs-gnu.el (debbugs-widget-map): Add [mouse-1] and [mouse-2].
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index a2dcb89..b63eaa6 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -223,7 +223,9 @@
       (widget-setup))
 
     (set-buffer-modified-p nil)
-    (goto-char (point-min))))
+    (goto-char (point-min))
+    (put-text-property (point) (1+ (point)) 'debbugs-current-widget
+                      (list widget widgets))))
 
 (defvar debbugs-mode-map
   (let ((map (make-sparse-keymap)))
@@ -233,8 +235,16 @@
     (define-key map "q" 'kill-buffer)
     (define-key map "s" 'debbugs-toggle-sort)
     (define-key map "d" 'debbugs-display-status)
+    (define-key map "g" 'debbugs-rescan)
     map))
 
+(defun debbugs-rescan ()
+  "Rescan the current set of bug reports."
+  (interactive)
+  (apply 'debbugs-show-reports
+        (get-text-property (point-min)
+                           'debbugs-current-widget)))
+
 (defvar debbugs-sort-state 'number)
 
 (defun debbugs-mode ()