[elpa] externals/debbugs ba9a8ca 046/311: (debbugs-gnu-send-control-message): Add donenotabug and donewontfix.

[Stefan Monnier]

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

    (debbugs-gnu-send-control-message): Add donenotabug and donewontfix.
---
 ChangeLog      | 5 +++++
 debbugs-gnu.el | 4 +++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 19f3e61..876f4c8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * debbugs-gnu.el (debbugs-gnu-send-control-message): Add
+       donenotabug and donewontfix.
+
 2011-07-08  Michael Albinus  <michael.albinus@gmx.de>
 
        * debbugs-gnu.el (debbugs-gnu-*): Rename from `debbugs-*'.
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index fd31611..ded88aa 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -610,7 +610,7 @@ removed instead."
    (list (completing-read
          "Control message: "
          '("important" "normal" "minor" "wishlist"
-           "done"
+           "done" "donenotabug" "donewontfix"
            "unarchive" "reopen" "close"
            "merge" "forcemerge"
            "owner" "noowner"
@@ -654,6 +654,8 @@ removed instead."
                (format "close %d %s\n" id version))
               ((equal message "done")
                (format "tags %d fixed\nclose %d %s\n" id id version))
+              ((member message '("donenotabug" "donewontfix"))
+               (format "tags %d %s\nclose %d\n" id (substring message 4) id))
               ((member message '("important" "normal" "minor" "wishlist"))
                (format "severity %d %s\n" id message))
               (t