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. --- mail.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'mail.el') 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