(debbugs-select-report): Set the minor summary mode in the right buffer.

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

diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index 32a9e1d7ba772f7c7774c040c52fd4e6f9d0820d..7ed1a453965086cfe92aad1485654cfa3ad55d73 100644 (file)
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -491,7 +491,8 @@ The following commands are available:
     (gnus-read-ephemeral-emacs-bug-group
      id (cons (current-buffer)
              (current-window-configuration)))
-    (debbugs-summary-mode 1)))
+    (with-current-buffer (window-buffer (selected-window))
+      (debbugs-summary-mode 1))))
 
 (defvar debbugs-summary-mode-map
   (let ((map (make-sparse-keymap)))
@@ -506,11 +507,17 @@ The following commands are available:
   nil)
 
 (defun debbugs-send-control-message (message)
-  "Send a control message for the current bug report."
+  "Send a control message for the current bug report.
+You can set the severity or add a tag, or close the report.  If
+you use the special \"done\" MESSAGE, the report will be marked as
+fixed, and then closed."
   (interactive
-   (list (completing-read "Control message: "
-                         '("important" "normal" "minor" "wishlist"
-                           "wontfix" "close"))))
+   (list (completing-read
+         "Control message: "
+         '("important" "normal" "minor" "wishlist"
+           "close" "done"
+           "patch" "wontfix" "moreinfo" "unreproducible" "fixed" "notabug")
+         nil t)))
   (let* ((subject (mail-header-subject (gnus-summary-article-header)))
         (id
          (if (string-match "bug#\\([0-9]+\\)" subject)
@@ -524,9 +531,12 @@ The following commands are available:
              (cond
               ((equal message "close")
                (format "close %d\n" id))
+              ((equal message "done")
+               (format "tags %d fixed\bclose %d\n" id id))
+              ((member message '("important" "normal" "minor" "wishlist"))
+               (format "severity %d %s\n" id message))
               (t
-               (format "tags %d %s\n" id message)))
-             "thanks\n")
+               (format "tags %d %s\n" id message))))
       (funcall send-mail-function))))
 
 (provide 'debbugs)