[elpa] externals/excorporate 064e34d 57/93: packages/excorporate/excorporate.el: Adjust case in example URL

[Stefan Monnier]

branch: externals/excorporate
commit 064e34d124e9c0536c61a4afc7029f7dd59a0603
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@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.
---
 excorporate.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/excorporate.el b/excorporate.el
index c7daa30..271f2cc 100644
--- a/excorporate.el
+++ b/excorporate.el
@@ -918,7 +918,7 @@ Examples:
 \"hacker@gnu.org\"
 => Excorporate will attempt to autodiscover the EWS URL
 
-\(\"hacker@gnu.org\" . \"https://mail.gnu.org/ews/exchange.asmx\";)
+\(\"hacker@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., hacker@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)?")