gnus: org-agenda-list only on demand (it's slooow)

1 files changed, 5 insertions, 10 deletions

diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el
index 2256603..6b1fd4a 100644
--- a/custom/jao-custom-gnus.el
+++ b/custom/jao-custom-gnus.el
@@ -353,20 +353,13 @@
   (setq jao-gnus--notify-strs (jao-gnus--notify-strs))
   (jao-minibuffer-refresh))
 
-(defun jao-gnus-scan ()
-  (interactive)
-  (let ((inhibit-message t))
-    (gnus-demon-scan-mail)
-    (jao-gnus--notify)))
-
 (require 'gnus-demon)
 (gnus-demon-add-handler 'gnus-demon-scan-news 5 1)
 ;; (gnus-demon-remove-handler 'gnus-demon-scan-news)
 
-(add-hook 'gnus-started-hook #'jao-gnus-scan)
+(add-hook 'gnus-started-hook #'jao-gnus--notify)
 (add-hook 'gnus-summary-exit-hook #'jao-gnus--notify)
-(add-hook 'gnus-summary-exit-hook #'org-agenda-list)
-(add-hook 'gnus-after-getting-new-news-hook #'jao-gnus-scan)
+(add-hook 'gnus-after-getting-new-news-hook #'jao-gnus--notify)
 
 (with-eval-after-load "jao-minibuffer"
   (jao-minibuffer-add-variable 'jao-gnus--notify-strs -20))
@@ -441,7 +434,7 @@
       gnus-refer-thread-use-search t
       gnus-auto-select-next 'almost-quietly)
 
-;;;; search
+;;;; search on enter nnselect
 (defun jao-gnus--maybe-reselect (&rest _i)
   (when (string-match-p "^nnselect" (or (gnus-group-name-at-point) ""))
     (save-excursion (gnus-group-get-new-news-this-group))))
@@ -745,3 +738,5 @@
 (define-key gnus-summary-mode-map "X" 'jao-gnus-arXiv-capture)
 (define-key gnus-summary-mode-map "e" 'jao-gnus-open-enclosure)
 (define-key gnus-summary-mode-map "\C-l" nil)
+(define-key gnus-group-mode-map (kbd "A") 'nil)
+(define-key gnus-topic-mode-map (kbd "A") 'org-agenda-list)