From dcf06fafce9aab113708ffe5c999fb261d2628b6 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 2 Jul 2011 14:54:20 +0200 Subject: [PATCH] * debbugs.el (debbugs-send-control-message): Add more control messages. --- packages/debbugs/ChangeLog | 5 +++++ packages/debbugs/debbugs.el | 11 ++++++++--- 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog index aac28709b..c80686d69 100644 --- a/packages/debbugs/ChangeLog +++ b/packages/debbugs/ChangeLog @@ -1,3 +1,8 @@ +2011-07-02 Lars Magne Ingebrigtsen + + * debbugs.el (debbugs-send-control-message): Add more control + messages. + 2011-07-02 Michael Albinus * debbugs.el (debbugs-emacs): Let-bind `debbugs-port' to "gnu.org". diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el index 38e4befb9..ca05188e0 100644 --- a/packages/debbugs/debbugs.el +++ b/packages/debbugs/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")) -- 2.39.2