[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/excorporate da3898b 85/93: Excorporate: Rename a functi

From: Stefan Monnier
Subject: [elpa] externals/excorporate da3898b 85/93: Excorporate: Rename a function
Date: Sun, 29 Nov 2020 15:43:15 -0500 (EST)

branch: externals/excorporate
commit da3898bf662188fc01563bff641095f49c6170a4
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    Excorporate: Rename a function
    * packages/excorporate/excorporate.el
    (exco-resolve-organizer-email-address-synchronously): Rename from
    * packages/excorporate/excorporate-org.el
    (exco-org-insert-meetings): Use
 excorporate-org.el |  2 +-
 excorporate.el     | 18 ++++++++++--------
 2 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/excorporate-org.el b/excorporate-org.el
index b7c1b76..6499dc8 100644
--- a/excorporate-org.el
+++ b/excorporate-org.el
@@ -311,7 +311,7 @@ meeting organizer."
                    (let ((new-arguments arguments))
                      (setf (nth 7 new-arguments)
-                           (exco-organizer-smtp-email-address
+                           (exco-resolve-organizer-email-address-synchronously
                             identifier organizer-structure))
                      (apply #'exco-org-insert-meeting new-arguments))))
        subject start-internal end-internal
diff --git a/excorporate.el b/excorporate.el
index b068121..b9d1748 100644
--- a/excorporate.el
+++ b/excorporate.el
@@ -865,17 +865,19 @@ argument ICALENDAR-TEXT."
                                                  mime-path response)))
-;; The organizer email is in the server's internal "EX" format.
-;; Resolve it synchronously, for simplicity.
-(defun exco-organizer-smtp-email-address (identifier organizer-structure)
+;; The organizer email address is in some cases returned in the
+;; server's internal "EX" format which is very long and unfamiliar.
+;; If necessary resolve it to the "SMTP" format.  This is done
+;; synchronously, for simplicity.
+(defun exco-resolve-organizer-email-address-synchronously (identifier
+                                                          organizer-structure)
   "Return the organizer's SMTP email address as a string.
 IDENTIFIER is the connection identifier to use to resolve
-should be treated as opaque.
-This function queries the server synchronously.  It times out and
-returns nil if the server does not respond in under
-`exco--server-timeout' seconds."
+should be treated as opaque.  If the address is not already an
+SMTP address, then this function queries the server synchronously
+to resolve the SMTP address.  It times out and returns nil if the
+server does not respond in under `exco--server-timeout' seconds."
   (let* ((wrapped (list (list organizer-structure)))
          (exco-extract-value '(Organizer Mailbox RoutingType) wrapped))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]