[ELPA-diffs] ELPA branch, master, updated. 0bde9b0c74c8e1d14c5a11458549f80b2a371c36

[Michael Albinus]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "ELPA".

The branch, master has been updated
       via  0bde9b0c74c8e1d14c5a11458549f80b2a371c36 (commit)
      from  df4e1c2479b41e6fe78c859c9f1303b6cf164af6 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 0bde9b0c74c8e1d14c5a11458549f80b2a371c36
Author: Michael Albinus <address@hidden>
Date:   Wed Jan 8 15:03:19 2014 +0100

    * debbugs-gnu.el (debbugs-gnu): Handle SUPPRESS properly.
    
    * debbugs-org.el (debbugs-org): Add SUPPRESS argument.

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 213eaaf..d59fab7 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -464,6 +464,9 @@ marked as \"client-side filter\"."
       (add-to-list 'debbugs-gnu-current-query (cons 'package package))))
   (when archivedp
     (add-to-list 'debbugs-gnu-current-query '(archive . "1")))
+  (when suppress
+    (add-to-list 'debbugs-gnu-current-query '(status . "open"))
+    (add-to-list 'debbugs-gnu-current-query '(status . "forwarded")))
   (dolist (tag (if (consp tags) tags (list tags)))
     (when (not (zerop (length tag)))
       (add-to-list 'debbugs-gnu-current-query (cons 'tag tag))))
diff --git a/packages/debbugs/debbugs-org.el b/packages/debbugs/debbugs-org.el
index 2d83a81..e2f39ca 100644
--- a/packages/debbugs/debbugs-org.el
+++ b/packages/debbugs/debbugs-org.el
@@ -199,7 +199,7 @@ returned."
     (setq debbugs-gnu-current-query nil)))
 
 ;;;###autoload
-(defun debbugs-org (severities &optional packages archivedp tags)
+(defun debbugs-org (severities &optional packages archivedp suppress tags)
   "List all outstanding bugs."
   (interactive
    (let (severities archivedp)
@@ -216,6 +216,8 @@ returned."
        debbugs-gnu-default-packages)
       (when current-prefix-arg
        (setq archivedp (y-or-n-p "Show archived bugs?")))
+      (when (and current-prefix-arg (not archivedp))
+       (y-or-n-p "Suppress unwanted bugs?"))
       ;; This one must be asked for severity "tagged".
       (when (member "tagged" severities)
        (split-string (read-string "User tag(s): ") "," t)))))
@@ -236,6 +238,9 @@ returned."
       (add-to-list 'debbugs-gnu-current-query (cons 'package package))))
   (when archivedp
     (add-to-list 'debbugs-gnu-current-query '(archive . "1")))
+  (when suppress
+    (add-to-list 'debbugs-gnu-current-query '(status . "open"))
+    (add-to-list 'debbugs-gnu-current-query '(status . "forwarded")))
   (dolist (tag (if (consp tags) tags (list tags)))
     (when (not (zerop (length tag)))
       (add-to-list 'debbugs-gnu-current-query (cons 'tag tag))))

-----------------------------------------------------------------------

Summary of changes:
 packages/debbugs/debbugs-gnu.el |    3 +++
 packages/debbugs/debbugs-org.el |    7 ++++++-
 2 files changed, 9 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
ELPA