branch: externals/debbugs
commit 94b437c212260bb2656b08bcd951a1afd97f936c
Author: Lars Magne Ingebrigtsen <[email protected]>
Commit: Lars Magne Ingebrigtsen <[email protected]>
* debbugs.el (debbugs-send-control-message): Add more control messages.
---
ChangeLog | 5 +++++
debbugs.el | 11 ++++++++---
2 files changed, 13 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index aac2870..c80686d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-02 Lars Magne Ingebrigtsen <[email protected]>
+
+ * debbugs.el (debbugs-send-control-message): Add more control
+ messages.
+
2011-07-02 Michael Albinus <[email protected]>
* debbugs.el (debbugs-emacs): Let-bind `debbugs-port' to "gnu.org".
diff --git a/debbugs.el b/debbugs.el
index 38e4bef..ca05188 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -532,7 +532,9 @@ fixed, and then closed."
(list (completing-read
"Control message: "
'("important" "normal" "minor" "wishlist"
- "close" "done"
+ "done"
+ "unarchive" "reopen" "close"
+ "merge" "forcemerge"
"patch" "wontfix" "moreinfo" "unreproducible" "fixed" "notabug")
nil t)))
(let* ((subject (mail-header-subject (gnus-summary-article-header)))
@@ -546,8 +548,11 @@ fixed, and then closed."
(format "Subject: control message for bug #%d\n" id)
"\n"
(cond
- ((equal message "close")
- (format "close %d\n" id))
+ ((member message '("unarchive" "reopen" "close"))
+ (format "%s %d\n" message id))
+ ((member message '("merge" "forcemerge"))
+ (format "%s %d %s\n" message id
+ (read-string "Merge with bug #: ")))
((equal message "done")
(format "tags %d fixed\nclose %d\n" id id))
((member message '("important" "normal" "minor" "wishlist"))
