(debbugs-gnu-send-control-message): Add donenotabug and donewontfix.

[gnu-emacs-elpa] / packages / debbugs / debbugs-gnu.el

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index fd31611e0c1df9bb5f268c82030d8af6d27afc10..ded88aaee9b3b65573d5743ed0033890c193e1ea 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/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