* packages/debbugs/debbugs-gnu.el (debbugs-gnu): New group.

(widget-mouse-face, gnus-posting-styles): Declare.
(debbugs-suppress-done): Avoid beginning-of-buffer.

diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog
index c0f63849d69cd87cc7b6268d36aa7454327e60c7..7147a44682f59b5e78f7a169639b374f7e97da7f 100644 (file)
--- a/packages/debbugs/ChangeLog
+++ b/packages/debbugs/ChangeLog
@@ -1,3 +1,9 @@
+2011-07-06  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * debbugs-gnu.el (debbugs-gnu): New group.
+       (widget-mouse-face, gnus-posting-styles): Declare.
+       (debbugs-suppress-done): Avoid beginning-of-buffer.
+

 2011-07-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * debbugs-gnu.el (debbugs-toggle-sort): Sort the tagged bugs at
 2011-07-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * debbugs-gnu.el (debbugs-toggle-sort): Sort the tagged bugs at


@@ -8,7 +14,7 @@
 
 2011-07-05  Michael Albinus  <michael.albinus@gmx.de>
 
 
 2011-07-05  Michael Albinus  <michael.albinus@gmx.de>
 

-       * debbugs-gnu.el (debbugs-owner): Removed.  We use `debbugs-tagged'
+       * debbugs-gnu.el (debbugs-owner): Remove.  We use `debbugs-tagged'

        uniquely.
        (debbugs-widgets, debbugs-package, debbugs-severities)
        (debbugs-archive): New defvars.
        uniquely.
        (debbugs-widgets, debbugs-package, debbugs-severities)
        (debbugs-archive): New defvars.


@@ -50,8 +56,8 @@
        * debbugs-gnu.el (debbugs-widget-map): Add [mouse-1] and [mouse-2].
        (debbugs-emacs): Add :help-echo and :suppress-done for report
        pages' widgets.
        * debbugs-gnu.el (debbugs-widget-map): Add [mouse-1] and [mouse-2].
        (debbugs-emacs): Add :help-echo and :suppress-done for report
        pages' widgets.

-       (debbugs-show-reports): Remove suppress-done from arguments.  It
-       must be read from the widget anyway.  Tune inserting of bottom
+       (debbugs-show-reports): Remove suppress-done from arguments.
+       It must be read from the widget anyway.  Tune inserting of bottom

        line widgets.
        (debbugs-owner): New face.
        (debbugs-show-reports): Mark subject if the user is the bug's
        line widgets.
        (debbugs-owner): New face.
        (debbugs-show-reports): Mark subject if the user is the bug's

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index bb4fd38405e33efcd70c6980f9363dac443337a8..16bce36ec131e4cdeff0d2ff407ac475239c46ff 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -35,6 +35,10 @@
 (autoload 'gnus-summary-article-header "gnus-sum")
 (autoload 'message-make-from "message")
 
 (autoload 'gnus-summary-article-header "gnus-sum")
 (autoload 'message-make-from "message")
 

+(defgroup debbugs-gnu ()
+  "UI for the debbugs.gnu.org bug tracker."
+  :group 'debbugs)
+

 (defface debbugs-new '((t (:foreground "red")))
   "Face for new reports that nobody has answered.")
 
 (defface debbugs-new '((t (:foreground "red")))
   "Face for new reports that nobody has answered.")
 


@@ -167,6 +171,8 @@
 
 (defvar debbugs-current-widget nil)
 
 
 (defvar debbugs-current-widget nil)
 

+(defvar widget-mouse-face)
+

 (defun debbugs-show-reports (widget)
   "Show bug reports as given in WIDGET property :bug-ids."
   (pop-to-buffer (get-buffer-create (widget-get widget :buffer-name)))
 (defun debbugs-show-reports (widget)
   "Show bug reports as given in WIDGET property :bug-ids."
   (pop-to-buffer (get-buffer-create (widget-get widget :buffer-name)))


@@ -419,7 +425,7 @@ The following commands are available:
     (unless (widget-get debbugs-current-widget :suppress-done)
       (let ((inhibit-read-only t))
        (widget-put debbugs-current-widget :suppress-done t)
     (unless (widget-get debbugs-current-widget :suppress-done)
       (let ((inhibit-read-only t))
        (widget-put debbugs-current-widget :suppress-done t)

-       (beginning-of-buffer)
+       (goto-char (point-min))

        (while (and (not (eobp))
                    (not (get-text-property (point) 'debbugs-status)))
          (forward-line 1))
        (while (and (not (eobp))
                    (not (get-text-property (point) 'debbugs-status)))
          (forward-line 1))


@@ -470,6 +476,8 @@ The following commands are available:
     (define-key map "C" 'debbugs-send-control-message)
     map))
 
     (define-key map "C" 'debbugs-send-control-message)
     map))
 

+(defvar gnus-posting-styles)
+

 (define-minor-mode debbugs-summary-mode
   "Minor mode for providing a debbugs interface in Gnus summary buffers.
 
 (define-minor-mode debbugs-summary-mode
   "Minor mode for providing a debbugs interface in Gnus summary buffers.