From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 6 Jul 2011 17:35:44 +0000 (-0400)
Subject: * packages/debbugs/debbugs-gnu.el (debbugs-gnu): New group.
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/4002446deb0d2d3a7a7ac2180c193328dd2cf1f3

* 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 c0f63849d..7147a4468 100644
--- 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
@@ -8,7 +14,7 @@
 
 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.
@@ -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-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
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index bb4fd3840..16bce36ec 100644
--- 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")
 
+(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.")
 
@@ -167,6 +171,8 @@
 
 (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)))
@@ -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)
-	(beginning-of-buffer)
+	(goto-char (point-min))
 	(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))
 
+(defvar gnus-posting-styles)
+
 (define-minor-mode debbugs-summary-mode
   "Minor mode for providing a debbugs interface in Gnus summary buffers.