[elpa] externals/debbugs e794c6c 104/311: Adapt copyright years.

[Stefan Monnier]

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

    Adapt copyright years.
    
    * debbugs-gnu.el (debbugs-gnu-default-packages): Extend list of packages.
    (debbugs-gnu-get-bugs): Support 'bugs query.
    (debbugs-gnu-usertags): Simplify implementation.
    (debbugs-gnu-bugs): New defun.
---
 Debbugs.wsdl   |  2 +-
 debbugs-gnu.el | 48 +++++++++++++++++++++++++++++++++++++-----------
 debbugs.el     |  2 +-
 debbugs.texi   |  2 +-
 4 files changed, 40 insertions(+), 14 deletions(-)

diff --git a/Debbugs.wsdl b/Debbugs.wsdl
index 7c266fc..ad5e954 100644
--- a/Debbugs.wsdl
+++ b/Debbugs.wsdl
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 
-<!-- Copyright (C) 2011, 2012  Free Software Foundation, Inc.
+<!-- Copyright (C) 2011-2013  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 4b82740..d8c0fa6 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -1,6 +1,6 @@
 ;;; debbugs-gnu.el --- interface for the GNU bug tracker
 
-;; Copyright (C) 2011, 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: comm, hypermedia, maint
@@ -35,6 +35,7 @@
 ;;   (autoload 'debbugs-gnu "debbugs-gnu" "" 'interactive)
 ;;   (autoload 'debbugs-gnu-search "debbugs-gnu" "" 'interactive)
 ;;   (autoload 'debbugs-gnu-usertags "debbugs-gnu" "" 'interactive)
+;;   (autoload 'debbugs-gnu-bugs "debbugs-gnu" "" 'interactive)
 
 ;; The bug tracker is called interactively by
 ;;
@@ -125,6 +126,13 @@
 ;; all users who have tagged bugs.  This list can be retrieved via
 ;; <http://debbugs.gnu.org/cgi/pkgindex.cgi?indexon=users>.
 
+;; Finally, if you simply want to list some bugs with known bug
+;; numbers, call the command
+;;
+;;   M-x debbugs-gnu-bugs
+
+;; The bug numbers to be shown shall be entered as comma separated list.
+
 ;;; Code:
 
 (require 'debbugs)
@@ -163,8 +171,10 @@
 (defcustom debbugs-gnu-default-packages '("emacs")
   "*The list of packages to be searched for."
   ;; <http://debbugs.gnu.org/Packages.html>
+  ;; <http://debbugs.gnu.org/cgi/pkgindex.cgi>
   :group 'debbugs-gnu
   :type '(set (const "automake")
+             (const "cc-mode")
              (const "coreutils")
              (const "debbugs.gnu.org")
              (const "emacs")
@@ -173,8 +183,11 @@
              (const "gnus")
              (const "guile")
              (const "libtool")
+             (const "ns")
+             (const "org-mode")
+             (const "w32")
              (const "woodchuck"))
-  :version "24.1")
+  :version "24.3")
 
 (defconst debbugs-gnu-all-packages
   (mapcar 'cadr (cdr (get 'debbugs-gnu-default-packages 'custom-type)))
@@ -507,6 +520,7 @@ marked as \"client-side filter\"."
 (defun debbugs-gnu-get-bugs (query)
   "Retrieve bugs numbers from debbugs.gnu.org according search criteria."
   (let* ((debbugs-port "gnu.org")
+        (bugs (assoc 'bugs query))
         (tags (assoc 'tag query))
         (local-tags (and (member '(severity . "tagged") query) (not tags)))
         (phrase (assoc 'phrase query))
@@ -535,6 +549,8 @@ marked as \"client-side filter\"."
 
     (sort
      (cond
+      ;; If the query is just a list of bug numbers, we return them.
+      (bugs (cdr bugs))
       ;; If the query contains the pseudo-severity "tagged", we return
       ;; just the local tagged bugs.
       (local-tags (copy-sequence debbugs-gnu-local-tags))
@@ -1153,16 +1169,15 @@ The following commands are available:
   (setq buffer-read-only t))
 
 ;;;###autoload
-(defun debbugs-gnu-usertags (&optional users)
-  "List all outstanding Emacs bugs."
+(defun debbugs-gnu-usertags (&rest users)
+  "List all user tags for USERS, which is \(\"emacs\"\) by default."
   (interactive
-   (list
-    (if current-prefix-arg
-       (completing-read-multiple
-        "Package name(s) or email address: "
-        (append debbugs-gnu-all-packages (list user-mail-address)) nil nil
-        (mapconcat 'identity debbugs-gnu-default-packages ","))
-      debbugs-gnu-default-packages)))
+   (if current-prefix-arg
+       (completing-read-multiple
+       "Package name(s) or email address: "
+       (append debbugs-gnu-all-packages (list user-mail-address)) nil nil
+       (mapconcat 'identity debbugs-gnu-default-packages ","))
+     debbugs-gnu-default-packages))
 
   (unwind-protect
       (let ((inhibit-read-only t)
@@ -1222,6 +1237,17 @@ The following commands are available:
   (let ((args (get-text-property (line-beginning-position) 
'tabulated-list-id)))
     (when args (apply 'debbugs-gnu args))))
 
+;;;###autoload
+(defun debbugs-gnu-bugs (&rest bugs)
+  "List all BUGS, a list of bug numbers."
+  (interactive
+   (mapcar 'string-to-number
+          (completing-read-multiple "Bug numbers: " nil 'natnump)))
+  (dolist (elt bugs)
+    (unless (natnump elt) (signal 'wrong-type-argument (list 'natnump elt))))
+  (add-to-list 'debbugs-gnu-current-query (cons 'bugs bugs))
+  (debbugs-gnu nil))
+
 (provide 'debbugs-gnu)
 
 ;;; TODO:
diff --git a/debbugs.el b/debbugs.el
index ed1f0bc..9271f69 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -1,6 +1,6 @@
 ;;; debbugs.el --- SOAP library to access debbugs servers
 
-;; Copyright (C) 2011, 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
 
 ;; Author: Michael Albinus <michael.albinus@gmx.de>
 ;; Keywords: comm, hypermedia
diff --git a/debbugs.texi b/debbugs.texi
index 359ba56..ecebf72 100644
--- a/debbugs.texi
+++ b/debbugs.texi
@@ -8,7 +8,7 @@
 @end direntry
 
 @copying
-Copyright @copyright{} 2011, 2012 Free Software Foundation, Inc.
+Copyright @copyright{} 2011-2013 Free Software Foundation, Inc.
 
 @quotation
 Permission is granted to copy, distribute and/or modify this document