[elpa] master 4d584dc: Add a new command debbugs-gnu-patches

[Lars Ingebrigtsen]

branch: master
commit 4d584dc598b2f4512b9cb6da9fc5a6ee8f849152
Author: Lars Magne Ingebrigtsen <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>

    Add a new command debbugs-gnu-patches
    
    * packages/debbugs/debbugs-gnu.el (debbugs-gnu-patches): New command.
    (debbugs-gnu-get-bugs): Remove the "user tags" cond -- it didn't
    allow us to search for bugs with specific tags.
---
 packages/debbugs/debbugs-gnu.el |   10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 316a654..10a31cb 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -337,6 +337,12 @@ be empty, in this case only the following attributes are 
used for
 search."))
 
 ;;;###autoload
+(defun debbugs-gnu-patches ()
+  "List the bug reports that have been marked as containing a patch."
+  (interactive)
+  (debbugs-gnu nil '("emacs") nil nil "patch"))
+
+;;;###autoload
 (defun debbugs-gnu-search ()
   "Search for Emacs bugs interactively.
 Search arguments are requested interactively.  The \"search
@@ -572,10 +578,6 @@ marked as \"client-side filter\"."
       (mapcar
        (lambda (x) (cdr (assoc "id" x)))
        (apply 'debbugs-search-est args)))
-     ;; User tags.
-     (tags
-      (setq args (mapcar (lambda (x) (if (eq x :package) :user x)) args))
-      (apply 'debbugs-get-usertag args))
      ;; Otherwise, we retrieve the bugs from the server.
      (t (apply 'debbugs-get-bugs args)))))