Allow the "C" command from debbugs mode to work

* debbugs-gnu.el (debbugs-gnu-send-control-message): Get the
correct bug ID number from the debbugs mode.

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index a19581465d3c6d6fdaeea1e916e52d97e37e9b7e..fe0a7e580f41613f7c91020dbb66eeb7803266e1 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -1266,9 +1266,9 @@ removed instead."
            "usertag")
          nil t)
         current-prefix-arg))
-  (let* ((id (or debbugs-gnu-bug-number        ; Set on group entry.
-                (debbugs-gnu-guess-current-id)
-                (debbugs-gnu-current-id)))
+  (let* ((id (or (debbugs-gnu-current-id)
+                debbugs-gnu-bug-number ; Set on group entry.
+                (debbugs-gnu-guess-current-id)))
         (version
          (when (member message '("close" "done"))
            (read-string

diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index f3dc7c6c78970d77e2c2ac21f4bab7648eccdb69..59a63e08baf0d252a18e06ab76172845a5b98104 100644 (file)
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -5,7 +5,7 @@
 ;; Author: Michael Albinus <michael.albinus@gmx.de>
 ;; Keywords: comm, hypermedia
 ;; Package: debbugs
-;; Version: 0.9.3
+;; Version: 0.9.4
 ;; Package-Requires: ((soap-client "3.1.1") (cl-lib "0.5"))
 
 ;; This file is not part of GNU Emacs.