[elpa] externals/debbugs 930b0dd 275/311: * packages/debbugs/debbugs-gnu.el (debbugs-gnu-rescan): New argument NOCACHE.

[Stefan Monnier]

branch: externals/debbugs
commit 930b0dddec213e65450e63e1b50245649cd8b615
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    * packages/debbugs/debbugs-gnu.el (debbugs-gnu-rescan): New argument 
NOCACHE.
    (debbugs-gnu-default-packages): Add "dejagnu" and "gnuzilla".
    
    * packages/debbugs/debbugs.el (debbugs-get-status, debbugs-get-usertag):
    Adapt docstring.
---
 debbugs-gnu.el | 13 +++++++++----
 debbugs.el     | 10 +++++-----
 2 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 2e3e24e..cd2e4e5 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -265,11 +265,13 @@ If nil, the value of `send-mail-function' is used 
instead."
              (const "coreutils")
              (const "cppi")
              (const "debbugs.gnu.org")
+             (const "dejagnu")
              (const "diffutils")
              (const "emacs")
              (const "emacs-xwidgets")
              (const "fm")
              (const "gnus")
+             (const "gnuzilla")
              (const "grep")
              (const "guile")
              (const "guix")
@@ -1033,14 +1035,17 @@ Used instead of `tabulated-list-print-entry'."
       'debbugs-gnu-manual)
     map))
 
-(defun debbugs-gnu-rescan ()
-  "Rescan the current set of bug reports."
-  (interactive)
+(defun debbugs-gnu-rescan (nocache)
+  "Rescan the current set of bug reports.
+If NOCACHE is non-nil, bug information is retrieved from the debbugs server.
+Interactively, it is non-nil with the prefix argument."
+  (interactive
+   (list current-prefix-arg))
   (let ((id (debbugs-gnu-current-id))
        (debbugs-gnu-current-query debbugs-gnu-local-query)
        (debbugs-gnu-current-filter debbugs-gnu-local-filter)
        (debbugs-gnu-current-suppress debbugs-gnu-local-suppress)
-       (debbugs-cache-expiry (if current-prefix-arg t debbugs-cache-expiry)))
+       (debbugs-cache-expiry (if nocache t debbugs-cache-expiry)))
     (debbugs-gnu-show-reports)
     (when id
       (debbugs-gnu-goto id))))
diff --git a/debbugs.el b/debbugs.el
index af23cf4..80f5beb 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -371,7 +371,7 @@ Every returned entry is an association list with the 
following attributes:
   `tags': The status of the bug report, a list of strings.  This
   can be \"confirmed\", \"fixed\", \"pending\", \"notabug\",
   \"wontfix\", \"unreproducible\", \"moreinfo\", \"security\" or
-  \"patch\".
+  \"patch\".  The exact set of tags depends on the Debbugs port.
 
   `pending': The string \"pending\", \"forwarded\", \"fixed\" or \"done\".
 
@@ -427,15 +427,15 @@ Example:
      \(\(\(cache_time . 1469716026.4981334)
        \(bug_num . 10)
        \(source . \"unknown\")
-       \(date . 1203606305.0)
+       \(date . 1203606305)
        \(msgid . \"<87zltuz7eh.fsf@freemail.hu>\")
        \(severity . \"wishlist\")
        \(owner . \"Magnus Henoch <mange@freemail.hu>\")
-       \(log_modified . 1261079402.0)
+       \(log_modified . 1261079402)
        \(location . \"db-h\")
        \(subject . \"url-gw should support HTTP CONNECT proxies\")
        \(originator . \"Magnus Henoch <mange@freemail.hu>\")
-       \(last_modified . 1271200046.0)
+       \(last_modified . 1271200046)
        \(pending . \"pending\")
        \(package \"emacs\")))"
   (let (cached-bugs)
@@ -578,7 +578,7 @@ Valid keywords are:
 
   :tag -- A string applied as user tag.  Often, it is a
   subproduct identification, like \"cedet\" or \"tramp\" for the
-  package \"emacs\".
+  package \"emacs\".  This is NOT a tag of the TAGS list mentioned above.
 
 If there is no :tag entry, no bug numbers will be returned but a list of
 existing user tags for :user.