From 687a1fa8890da895c830177826c4258d9843fcb7 Mon Sep 17 00:00:00 2001 From: JSDurand Date: Mon, 7 Nov 2022 21:33:01 +0800 Subject: mail + gnus: update notmuch database as well * mail.el (durand-mail-update-hook, durand-mail-update-sentinel): Add a hook to run after the update is finished. * gnus-conf.el (mu4e-index-updated-hook, durand-mail-update-hook): Let notmuch know about updated mails as well. --- gnus-conf.el | 6 +++--- mail.el | 8 +++++++- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/gnus-conf.el b/gnus-conf.el index 150b4e9..3affe4f 100644 --- a/gnus-conf.el +++ b/gnus-conf.el @@ -143,17 +143,17 @@ ;; (defalias 'durand-update-mail #'mu4e-update-mail-and-index) -;; Load mail configurations +;;;; Load mail configurations (load-config "mail.el") -;; Let notmuch know about the changes automatically. +;;;; Let notmuch know about the changes automatically. (load-config "notmuch-conf.el") (require 'notmuch) -(add-hook 'mu4e-index-updated-hook #'notmuch-poll) +(add-hook 'durand-mail-update-hook #'notmuch-poll) (define-key gnus-group-mode-map (vector 117) #'durand-mail-update) (define-key global-map (vector ?\C-c ?g) 'gnus) diff --git a/mail.el b/mail.el index 44dc1a3..d8aea7f 100644 --- a/mail.el +++ b/mail.el @@ -264,10 +264,16 @@ mails." (set-marker (process-mark process) (point-max) buffer)))))))) +(defvar durand-mail-update-hook nil + "The hook run after the process that updates mails is finished.") + (defun durand-mail-update-sentinel (process status) - "Handle STATUS changes of the PROCESS for updating mails." + "Handle STATUS changes of the PROCESS for updating mails. +This funciton runs the hook `durand-mail-update-hook' after the +PROCESS is finished." (cond ((string= status "finished\n") + (run-hooks 'durand-mail-update-hook) (let ((buffer (process-buffer process))) (cond ((buffer-live-p buffer) -- cgit v1.2.3-18-g5258