[elpa] externals/debbugs 94b437c 007/311: * debbugs.el (debbugs-send-control-message): Add more control messages.

[Stefan Monnier]

branch: externals/debbugs
commit 94b437c212260bb2656b08bcd951a1afd97f936c
Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
Commit: Lars Magne Ingebrigtsen <larsi@gnus.org>

    * 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  <larsi@gnus.org>
+
+       * debbugs.el (debbugs-send-control-message): Add more control
+       messages.
+
 2011-07-02  Michael Albinus  <michael.albinus@gmx.de>
 
        * 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"))