[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/excorporate bff9b00 07/93: packages/excorporate: Change
From: |
Stefan Monnier |
Subject: |
[elpa] externals/excorporate bff9b00 07/93: packages/excorporate: Change server version lookup |
Date: |
Sun, 29 Nov 2020 15:42:56 -0500 (EST) |
branch: externals/excorporate
commit bff9b0028ea872de7acf1133611b02a73da242cc
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>
packages/excorporate: Change server version lookup
* packages/excorporate/excorporate.el (exco--get-server-version):
Change version lookup algorithm.
---
excorporate.el | 33 +++++++++++++++++++++------------
1 file changed, 21 insertions(+), 12 deletions(-)
diff --git a/excorporate.el b/excorporate.el
index c32f798..8168dd3 100644
--- a/excorporate.el
+++ b/excorporate.el
@@ -497,18 +497,27 @@ the FSM should transition to on success."
(defun exco--get-server-version (wsdl)
"Extract server version from WSDL."
- (catch 'found
- (dolist (attribute
- (soap-xs-type-attributes
- (soap-xs-element-type
- (soap-wsdl-get
- '("http://schemas.microsoft.com/exchange/services/2006/types"
- . "RequestServerVersion")
- wsdl 'soap-xs-element-p))))
- (when (equal (soap-xs-attribute-name attribute) "Version")
- (throw 'found (soap-xs-attribute-default attribute))))
- (warn "Excorporate: Failed to determine server version")
- nil))
+ (let ((warning-message "Excorporate: Failed to determine server version")
+ (namespace "http://schemas.microsoft.com/exchange/services/2006/types")
+ (name "RequestServerVersion")
+ (found-version nil))
+ (unwind-protect
+ (setq found-version
+ (catch 'found
+ (dolist (attribute
+ (soap-xs-type-attributes
+ (soap-xs-element-type (soap-wsdl-get
+ `(,namespace . ,name)
+ wsdl 'soap-xs-element-p))))
+ (when (equal (soap-xs-attribute-name attribute) "Version")
+ (throw 'found (car (soap-xs-simple-type-enumeration
+ (soap-xs-attribute-type attribute))))))
+ (warn warning-message)
+ nil))
+ (if found-version
+ found-version
+ (warn warning-message)
+ nil))))
(define-enter-state exco--fsm :retrieving-data
(_fsm state-data)
- [elpa] branch externals/excorporate created (now 4fb4450), Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate bcc88ba 01/93: packages/excorporate: New package, import version 0.7.0, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate 080b097 02/93: packages/excorporate/excorporate.texi: New manual, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate 64f8d30 03/93: packages/excorporate/excorporate.el: Bump version to 0.7.1, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate 2a55a64 04/93: packages/excorporate: Handle nil list of main invitees, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate bff9b00 07/93: packages/excorporate: Change server version lookup,
Stefan Monnier <=
- [elpa] externals/excorporate 37b25ff 09/93: packages/excorporate: Acknowledge Erik Hetzner, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate fae1f5e 05/93: packages/excorporate: Update manual, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate 9cc18b1 10/93: packages/excorporate: Require soap-client 3.1.1, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate 09f998e 11/93: packages/excorporate: Bump version to 0.7.2, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate f35c2f1 13/93: packages/excorporate/excorporate-org.el: Allow quitting window, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate e6cb302 15/93: packages/excorporate: Interoperate with LaTeX preview, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate bdf9d5a 16/93: packages/excorporate: Bump version to 0.7.4, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate fd9a7bb 25/93: excorporate-calfw.el: Enable clean byte-compiling in GNU ELPA, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate 12f3501 28/93: packages/excorporate: Extend exco-connection-iterate, Stefan Monnier, 2020/11/29
- [elpa] externals/excorporate de3ad68 46/93: Excorporate: Document new configuration wizard, Stefan Monnier, 2020/11/29