From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Fri, 1 Jul 2011 13:12:56 +0000 (+0200)
Subject: * debbugs.el (debbugs-send-control-message): Add severity and "done".
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/29db2a1133969e73b4d032d5c8b1df4a966ec82d

* debbugs.el (debbugs-send-control-message): Add severity and "done".
---

diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog
index ebf19a912..c6d7d8644 100644
--- a/packages/debbugs/ChangeLog
+++ b/packages/debbugs/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* debbugs.el (debbugs-send-control-message): Add severity and "done".
+
 2011-06-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* debbugs.el (debbugs-emacs): New function and modes for listing
diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index 32a9e1d7b..be0e21c73 100644
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -506,11 +506,17 @@ The following commands are available:
   nil)
 
 (defun debbugs-send-control-message (message)
-  "Send a control message for the current bug report."
+  "Send a control message for the current bug report.
+You can set the severity or add a tag, or close the report.  If
+you use the special `done' MESSAGE, the report will be marked as
+fixed, and then closed."
   (interactive
-   (list (completing-read "Control message: "
-			  '("important" "normal" "minor" "wishlist"
-			    "wontfix" "close"))))
+   (list (completing-read
+	  "Control message: "
+	  '("important" "normal" "minor" "wishlist"
+	    "close" "done"
+	    "patch" "wontfix" "moreinfo" "unreproducible" "fixed" "notabug")
+	  nil t)))
   (let* ((subject (mail-header-subject (gnus-summary-article-header)))
 	 (id
 	  (if (string-match "bug#\\([0-9]+\\)" subject)
@@ -524,9 +530,12 @@ The following commands are available:
 	      (cond
 	       ((equal message "close")
 		(format "close %d\n" id))
+	       ((equal message "done")
+		(format "tags %d fixed\bclose %d\n" id id))
+	       ((member message '("important" "normal" "minor" "wishlist"))
+		(format "severity %d %s\n" id message))
 	       (t
-		(format "tags %d %s\n" id message)))
-	      "thanks\n")
+		(format "tags %d %s\n" id message))))
       (funcall send-mail-function))))
 
 (provide 'debbugs)