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

    excorporate-org.el: Eliminate `org-element` warning
    
    * excorporate-org.el (exco-org-insert-meetings): Enter `org-mode`
    before calling `org-insert-time-stamp`.
    * README, NEWS: Document fix.
---
 NEWS               | 7 +++++++
 README             | 2 ++
 excorporate-org.el | 2 +-
 3 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 255d728ae1..583c92f9bc 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,12 @@
 GNU Emacs Excorporate NEWS -- history of user-visible changes.
 
+** Eliminate a warning issued by newer versions of Org Mode
+
+`exco-org-insert-meetings' was causing a warning,
+"`org-element-at-point' cannot be used in non-Org buffer ...", because
+it was calling `org-insert-time-stamp' before Org mode was set in
+the *Excorporate* buffer.
+
 * New in Excorporate 1.1.2
 
 Released 2024-02-19:
diff --git a/README b/README
index bf0a4669cc..3f594750ea 100644
--- a/README
+++ b/README
@@ -3,6 +3,8 @@ Excorporate provides Exchange integration for Emacs.
 Most Recent Improvements
 ------------------------
 
+** Eliminate a warning issued by newer versions of Org Mode
+
 New in Excorporate 1.1.2, released 2024-02-19:
 
 ** In Org entries use shorter time ranges where possible
diff --git a/excorporate-org.el b/excorporate-org.el
index f6bdc10fe3..45d1cd7739 100644
--- a/excorporate-org.el
+++ b/excorporate-org.el
@@ -321,11 +321,11 @@ meeting organizer."
       (insert (format "%s..." identifier))))
   (with-current-buffer (exco-org--identifier-buffer identifier)
     (let ((inhibit-read-only t))
+      (org-mode)
       (org-insert-time-stamp (current-time) t t "  + Last checked " "\n")
       (exco-calendar-item-iterate-general
        response (lambda (&rest arguments)
                  (with-current-buffer (exco-org--identifier-buffer identifier)
-                   (org-mode)
                    (let ((new-arguments arguments))
                      (setf (nth 7 new-arguments)
                            (exco-resolve-organizer-email-address-synchronously

Reply via email to