branch: externals/debbugs
commit 7a12166e9dd7522f7b00febab7c43e5aa594d9f4
Author: Lars Magne Ingebrigtsen <[email protected]>
Commit: Lars Magne Ingebrigtsen <[email protected]>
(debbugs-send-control-message): Allow reversing tags.
---
ChangeLog | 1 +
debbugs-gnu.el | 14 ++++++++++----
2 files changed, 11 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 03303b3..aeafb5d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
* debbugs-gnu.el (debbugs-mode-map): Bind `q' to `bury-buffer',
which seems more useful.
+ (debbugs-send-control-message): Allow reversing tags.
2011-07-06 Stefan Monnier <[email protected]>
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index c7414be..0c50408 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -499,11 +499,14 @@ The following commands are available:
(cons new new))
address)))))))))
-(defun debbugs-send-control-message (message)
+(defun debbugs-send-control-message (message &optional reverse)
"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."
+fixed, and then closed.
+
+If given a prefix, and given a tag to set, the tag will be
+removed instead."
(interactive
(list (completing-read
"Control message: "
@@ -513,7 +516,8 @@ fixed, and then closed."
"merge" "forcemerge"
"owner" "noowner"
"patch" "wontfix" "moreinfo" "unreproducible" "fixed" "notabug")
- nil t)))
+ nil t)
+ current-prefix-arg))
(let* ((id (or debbugs-bug-number ; Set on group entry.
(debbugs-current-id)))
(version
@@ -554,7 +558,9 @@ fixed, and then closed."
((member message '("important" "normal" "minor" "wishlist"))
(format "severity %d %s\n" id message))
(t
- (format "tags %d %s\n" id message))))
+ (format "tags %d%s %s\n"
+ id (if reverse " -" "")
+ message))))
(funcall send-mail-function))))
(provide 'debbugs-gnu)
