X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/a8eda6e7dfd43b448119fd3b607dc6c5c9af5c5c..2ee393efc75af116d8679ea37f6f5176429695cc:/packages/debbugs/debbugs-gnu.el

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index fb8033743..4d7ab2404 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -1,20 +1,21 @@
 ;;; debbugs-gnu.el --- interface for the GNU bug tracker
 
-;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
+;; Copyright (C) 2011-2014 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
+;;         Michael Albinus <michael.albinus@gmx.org>
 ;; Keywords: comm, hypermedia, maint
 ;; Package: debbugs
-;; Version: 0.4
+;; Version: 0.6
 
-;; This file is part of GNU Emacs.
+;; This file is not part of GNU Emacs.
 
-;; GNU Emacs is free software: you can redistribute it and/or modify
+;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
 ;; the Free Software Foundation, either version 3 of the License, or
 ;; (at your option) any later version.
 
-;; GNU Emacs is distributed in the hope that it will be useful,
+;; This program is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;; GNU General Public License for more details.
@@ -52,8 +53,8 @@
 ;; function will ask for user tags (a comma separated list), and shows
 ;; just the bugs which are tagged with them.  In general, user tags
 ;; shall be strings denoting to subprojects of the package, like
-;; "cedet" or "tramp" of the package "emacs.  If no user tag is given,
-;; locally tagged bugs are shown.
+;; "cedet" or "tramp" of the package "emacs".  If no user tag is
+;; given, locally tagged bugs are shown.
 
 ;; If a prefix is given to the command, more search parameters are
 ;; asked for, like packages (also a comma separated list, "emacs" is
@@ -173,21 +174,29 @@
   ;; <http://debbugs.gnu.org/Packages.html>
   ;; <http://debbugs.gnu.org/cgi/pkgindex.cgi>
   :group 'debbugs-gnu
-  :type '(set (const "automake")
+  :type '(set (const "auctex")
+	      (const "automake")
 	      (const "cc-mode")
 	      (const "coreutils")
+	      (const "cppi")
 	      (const "debbugs.gnu.org")
+	      (const "diffutils")
 	      (const "emacs")
 	      (const "emacs-xwidgets")
 	      (const "fm")
 	      (const "gnus")
+	      (const "grep")
 	      (const "guile")
+	      (const "guix")
+	      (const "gzip")
+	      (const "idutils")
 	      (const "libtool")
-	      (const "ns")
+	      (const "mh-e")
 	      (const "org-mode")
-	      (const "w32")
+	      (const "parted")
+	      (const "vc-dwim")
 	      (const "woodchuck"))
-  :version "24.3")
+  :version "24.4")
 
 (defconst debbugs-gnu-all-packages
   (mapcar 'cadr (cdr (get 'debbugs-gnu-default-packages 'custom-type)))
@@ -353,8 +362,8 @@ marked as \"client-side filter\"."
 	       val1
 	       (completing-read "Enter status: " '("done" "forwarded" "open")))
 	      (when (not (zerop (length val1)))
-	    (add-to-list
-	     'debbugs-gnu-current-query (cons (intern key) val1))))
+		(add-to-list
+		 'debbugs-gnu-current-query (cons (intern key) val1))))
 
 	     ;; Client-side filters.
 	     ((member key '("date" "log_modified" "last_modified"
@@ -419,7 +428,7 @@ marked as \"client-side filter\"."
 
 ;;;###autoload
 (defun debbugs-gnu (severities &optional packages archivedp suppress tags)
-  "List all outstanding Emacs bugs."
+  "List all outstanding bugs."
   (interactive
    (let (severities archivedp)
      (list
@@ -458,6 +467,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))))