* debbugs.el (debbugs-get-bugs): Extend syntax for packages (and

severities and tags) by "-".  Fix error messages.

diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog
index 5479f36b67f3578b8c4b08498e99fa43baaf3bed..0a20ff5d80aea9ae0bc03a8cef511891779bf63a 100644 (file)
--- a/packages/debbugs/ChangeLog
+++ b/packages/debbugs/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-13  Michael Albinus  <michael.albinus@gmx.de>
+
+       * debbugs.el (debbugs-get-bugs): Extend syntax for packages (and
+       severities and tags) by "-".  Fix error messages.
+
 2011-07-12  Michael Albinus  <michael.albinus@gmx.de>
 
        * debbugs-gnu.el (debbugs-gnu-get-bugs): Reinsert sorting of ids.

diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index eda23ca0ea2cf55d03f2554b3a102f4ddf032881..87134f1d1c7998ddad9f55eb075a872e1a1fd231 100644 (file)
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -144,9 +144,9 @@ Example:
       (case key
        ((:package :severity :tag)
         ;; Value shall be one word.
-        (if (string-match "\\`[A-Za-z]+\\'" val)
+        (if (string-match "\\`[-A-Za-z]+\\'" val)
             (setq vec (vconcat vec (list val)))
-          (error "Wrong %s: %s" (car (last vec)) val)))
+          (error "Wrong %s: %s" (substring (symbol-name key) 1) val)))
        ;; Value is an email address.
        ((:owner :submitter)
         (if (string-match "\\`\\S-+\\'" val)
@@ -156,13 +156,13 @@ Example:
               (when (string-match "<\\(.+\\)>" val)
                 (setq val (match-string 1 val)))
               (setq vec (vconcat vec (list val))))
-          (error "Wrong %s: %s" (car (last vec)) val)))
+          (error "Wrong %s: %s" (substring (symbol-name key) 1) val)))
        (:archive
         ;; Value is `0' or `1' or `both'.
         (if (string-match "\\`\\(0\\|1\\|both\\)\\'" val)
             (setq vec (vconcat vec (list val)))
-          (error "Wrong %s: %s" (car (last vec)) val)))
-       (t (error "Unknown key: %s" (car (last vec))))))
+          (error "Wrong %s: %s" (substring (symbol-name key) 1) val)))
+       (t (error "Unknown key: %s" (substring (symbol-name key) 1)))))
 
     (unless (null query)
       (error "Unknown key: %s" (car query)))