From cadea0a2da15bb51ede10d0317f8c8fc79d098d9 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 15 Aug 2022 13:00:22 +0100
Subject: gnus: org-agenda-list only on demand (it's slooow)
---
custom/jao-custom-gnus.el | 15 +++++----------
1 file 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)
--
cgit v1.2.3