[elpa] externals/auth-source-xoauth2-plugin cd0caa60cb 15/28: Make this plugin a global minor mode

[ELPA Syncer]

branch: externals/auth-source-xoauth2-plugin
commit cd0caa60cb52e7050123d2605c26371f6ec662bb
Author: Xiyue Deng <manp...@gmail.com>
Commit: Xiyue Deng <manp...@gmail.com>

    Make this plugin a global minor mode
    
    * One should toggle this minor mode to enable to disable the advice
    for enabling xoauth2 support on auth-source.
---
 auth-source-xoauth2-plugin.el | 30 +++++++++++++++++++++++++++---
 1 file changed, 27 insertions(+), 3 deletions(-)

diff --git a/auth-source-xoauth2-plugin.el b/auth-source-xoauth2-plugin.el
index b6dda3c806..46580641e8 100644
--- a/auth-source-xoauth2-plugin.el
+++ b/auth-source-xoauth2-plugin.el
@@ -135,15 +135,39 @@ expected that `token_url', `client_id', `client_secret', 
and
           (push auth-data res)))
       res)))
 
-;;;###autoload
-(defun auth-source-xoauth2-plugin-enable ()
+(defvar auth-source-xoauth2-plugin--enabled-xoauth2-by-us nil
+  "Used for tracking whether xoauth2 in smtpmail-auth-supported is
+set by us.")
+
+(defun auth-source-xoauth2-plugin--enable ()
   "Enable auth-source-xoauth2-plugin."
   (unless (memq 'xoauth2 smtpmail-auth-supported)
-    (push 'xoauth2 smtpmail-auth-supported))
+    (push 'xoauth2 smtpmail-auth-supported)
+    (setq auth-source-xoauth2-plugin--enabled-xoauth2-by-us t))
 
   (advice-add #'auth-source-search-backends :around
               #'auth-source-xoauth2-plugin--search-backends))
 
+(defun auth-source-xoauth2-plugin--disable ()
+  "Disable auth-source-xoauth2-plugin."
+  (when (and auth-source-xoauth2-plugin--enabled-xoauth2-by-us
+             (memq 'xoauth2 smtpmail-auth-supported))
+    (delete 'xoauth2 smtpmail-auth-supported)
+    (setq auth-source-xoauth2-plugin--enabled-xoauth2-by-us nil))
+
+  (advice-remove #'auth-source-search-backends
+                 #'auth-source-xoauth2-plugin--search-backends))
+
+(define-minor-mode auth-source-xoauth2-plugin-mode
+  "Toggle auth-source-xoauth2-plugin-mode.
+Enable auth-source-xoauth2-plugin-mode to use xoauth2
+authentications for emails."
+  :lighter nil
+  :global t
+  (if auth-source-xoauth2-plugin-mode
+      (auth-source-xoauth2-plugin--enable)
+    (auth-source-xoauth2-plugin--disable)))
+
 (provide 'auth-source-xoauth2-plugin)
 
 ;;; auth-source-xoauth2-plugin.el ends here