X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/9fa627bbb3b20d842c72f1d7735deb1b839c6a2d..bbfbd6ed553be806932e9f58d6de2f866c626bff:/packages/debbugs/debbugs.el

diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index e4c96670f..f026ec6c7 100644
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -5,7 +5,7 @@
 ;; Author: Michael Albinus <michael.albinus@gmx.de>
 ;; 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.