From bbfbd6ed553be806932e9f58d6de2f866c626bff Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 15 Mar 2016 09:01:41 +0100 Subject: [PATCH] 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 08c842548..378937b5c 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 e4c96670f..f026ec6c7 100644 --- a/packages/debbugs/debbugs.el +++ b/packages/debbugs/debbugs.el @@ -5,7 +5,7 @@ ;; Author: Michael Albinus ;; 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. -- 2.39.2