1 files changed, 7 insertions, 1 deletions
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)