[elpa] master 07ecf40: * packages/debbugs/debbugs-gnu.el (debbugs-gnu, debbugs-gnu-bugs): Send final

[Michael Albinus]

branch: master
commit 07ecf407f8e64d1f01f22ee331ca3bdda31d62ad
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * packages/debbugs/debbugs-gnu.el (debbugs-gnu, debbugs-gnu-bugs): Send 
final
    message after completion.
---
 packages/debbugs/debbugs-gnu.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 515129b..9639a0c 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -654,7 +654,9 @@ marked as \"client-side filter\"."
     ;; Reset query, filter and suppress.
     (setq debbugs-gnu-current-query nil
          debbugs-gnu-current-filter nil
-         debbugs-gnu-current-suppress nil)))
+         debbugs-gnu-current-suppress nil)
+    (when (called-interactively-p 'interactive)
+      (message "Query finished"))))
 
 (defun debbugs-gnu-get-bugs (query)
   "Retrieve bug numbers from debbugs.gnu.org according search criteria."
@@ -2146,7 +2148,9 @@ or bug ranges, with default to 
`debbugs-gnu-default-bug-number-list'."
   (add-to-list 'debbugs-gnu-current-query (cons 'bugs bugs))
   ;; We do not suppress bugs requested explicitely.
   (setq debbugs-gnu-current-suppress nil)
-  (debbugs-gnu nil))
+  (debbugs-gnu nil)
+  (when (called-interactively-p 'interactive)
+    (message "Retrieving bugs finished")))
 
 (defcustom debbugs-gnu-trunk-directory "~/src/emacs/trunk/"
   "The directory where the main source tree lives."