branch: master
commit c1212f973bbed5d5e5d2660f95a9a573c68907d3
Author: Thomas Fitzsimmons <fitz...@fitzsim.org>
Commit: Thomas Fitzsimmons <fitz...@fitzsim.org>
packages/excorporate/excorporate.el: Adjust case in example URL
* packages/excorporate/excorporate.el (excorporate-configuration):
Uppercase some characters in example URL.
(excorporate): Uppercase some characters in example URL prompt.
---
packages/excorporate/excorporate.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/packages/excorporate/excorporate.el
b/packages/excorporate/excorporate.el
index c7daa30..271f2cc 100644
--- a/packages/excorporate/excorporate.el
+++ b/packages/excorporate/excorporate.el
@@ -918,7 +918,7 @@ Examples:
\"hac...@gnu.org\"
=> Excorporate will attempt to autodiscover the EWS URL
-\(\"hac...@gnu.org\" . \"https://mail.gnu.org/ews/exchange.asmx\";)
+\(\"hac...@gnu.org\" . \"https://mail.gnu.org/EWS/Exchange.asmx\";)
=> Excorporate will use the provided EWS URL
Other Excorporate documentation refers to the email address as
@@ -932,7 +932,7 @@ the \"mail address\", and the EWS URL as the \"service
URL\"."
#2=(cons
:tag "Exchange email address and EWS URL (no autodiscovery)"
(string :tag "Exchange mail address (e.g., hac...@gnu.org)")
- (string :tag "EWS URL (e.g., https://mail.gnu.org/ews/exchange.asmx)"))
+ (string :tag "EWS URL (e.g., https://mail.gnu.org/EWS/Exchange.asmx)"))
(repeat :tag "List of configurations"
(choice #1# #2#))))
@@ -960,7 +960,7 @@ ARGUMENT is the prefix argument."
((or (equal argument '(4))
(eq excorporate-configuration nil))
;; Prompt.
- (let* ((url "https://mail.gnu.org/ews/exchange.asmx";)
+ (let* ((url "https://mail.gnu.org/EWS/Exchange.asmx";)
(suggestion user-mail-address)
(ask-1 "Exchange mail address: ")
(ask-2 "Attempt settings autodiscovery ('n' for Office 365)?")
