[elpa] master bbfbd6e 2/2: Release debbugs 0.9.1.

[Michael Albinus]

branch: master
commit bbfbd6ed553be806932e9f58d6de2f866c626bff
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Release debbugs 0.9.1.
    
    * packages/debbugs/debbugs-gnu.el (gnus-fetch-field): Autoload it.
    
    * packages/debbugs/debbugs.el: Increase Version to 0.9.1.
    (debbugs-get-status): Decode also "subject"", "owner" and "summary".
---
 packages/debbugs/debbugs-gnu.el |    1 +
 packages/debbugs/debbugs.el     |   11 ++++++-----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 08c8425..378937b 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -148,6 +148,7 @@
 (autoload 'diff-goto-source "diff-mode")
 (autoload 'diff-hunk-file-names "diff-mode")
 (autoload 'gnus-article-mime-handles "gnus-art")
+(autoload 'gnus-fetch-field "gnus-util")
 (autoload 'gnus-read-ephemeral-emacs-bug-group "gnus-group")
 (autoload 'gnus-summary-article-header "gnus-sum")
 (autoload 'gnus-summary-select-article "gnus-sum")
diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index e4c9667..f026ec6 100644
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -5,7 +5,7 @@
 ;; Author: Michael Albinus <address@hidden>
 ;; Keywords: comm, hypermedia
 ;; Package: debbugs
-;; Version: 0.9
+;; Version: 0.9.1
 ;; Package-Requires: ((async "1.6"))
 
 ;; This file is not part of GNU Emacs.
@@ -442,11 +442,12 @@ Example:
            (when (stringp (cdr y))
              (setcdr y (mapcar
                         'string-to-number (split-string (cdr y) " " t)))))
-         ;; "originator" may be an xsd:base64Binary value containing
-         ;; a UTF-8-encoded string.
-         (dolist (attribute '(originator))
+         ;; "subject", "originator", "owner" and "summary" may be an
+         ;; xsd:base64Binary value containing a UTF-8-encoded string.
+         (dolist (attribute '(subject originator owner summary))
            (setq y (assoc attribute (cdr (assoc 'value x))))
-           (setcdr y (debbugs-convert-soap-value-to-string (cdr y))))
+           (when (stringp (cdr y))
+             (setcdr y (debbugs-convert-soap-value-to-string (cdr y)))))
          ;; "package" is a string, containing comma separated
          ;; package names.  "keywords" and "tags" are strings,
          ;; containing blank separated package names.