emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/excorporate f86a961 2/7: Add excorporate-update-diary d


From: Thomas Fitzsimmons
Subject: [elpa] externals/excorporate f86a961 2/7: Add excorporate-update-diary defcustom
Date: Thu, 28 Jan 2021 21:09:59 -0500 (EST)

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

    Add excorporate-update-diary defcustom
    
    * excorporate.el (excorporate): Move defgroup to top of file.
    (excorporate-update-diary): New defcustom.
---
 excorporate.el | 26 ++++++++++++++++++++------
 1 file changed, 20 insertions(+), 6 deletions(-)

diff --git a/excorporate.el b/excorporate.el
index a8ba918..2cc5b1b 100644
--- a/excorporate.el
+++ b/excorporate.el
@@ -120,6 +120,26 @@
 (require 'excorporate-calendar)
 (require 'org)
 
+(defgroup excorporate nil
+  "Exchange support."
+  :version "25.1"
+  :group 'comm
+  :group 'calendar)
+
+(defcustom excorporate-update-diary t
+  "If non-nil, Excorporate will add entries to Emacs's diary.
+See also `org-agenda-include-diary' to include retreived entries
+in Org's agenda view.
+
+`excorporate-update-diary' affects the behaviour of `excorporate'
+just after a server connection is established.  Changes to this
+variable do not take effect unless `excorporate' is re-run.  If
+one wants to disable or enable Excorporate diary support
+dynamically, without re-running `excorporate', one can call the
+interactive functions, `excorporate-diary-disable' and
+`excorporate-diary-enable'."
+  :type 'boolean)
+
 ;; For Office 365, URLs containing autodiscover-s.outlook.com do not
 ;; seem to work properly (the returned XML gives ErrorCode 600).
 (defconst exco--autodiscovery-templates
@@ -1112,12 +1132,6 @@ callback needs to make a recursive asynchronous call."
               wrapped-callback))))
 
 ;; User-visible functions and variables.
-(defgroup excorporate nil
-  "Exchange support."
-  :version "25.1"
-  :group 'comm
-  :group 'calendar)
-
 (defcustom excorporate-configuration nil
   "Excorporate configuration.
 



reply via email to

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