emacs: Show a message when address harvesting finishes

diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el
index 9f6711bb076c121c2613e751bef24710fc7d486a..da524f32b1ec121bbd483386c69378fc23aca606 100644 (file)
--- a/emacs/notmuch-address.el
+++ b/emacs/notmuch-address.el
@@ -219,6 +219,8 @@ called when harvesting finishes."
       (setq notmuch-address-last-harvest now)
       (notmuch-address-harvest nil nil
                               (lambda (proc event)
+                                (message "Notmuch address harvesting finished in %d seconds"
+                                         (- (float-time) notmuch-address-last-harvest))
                                 (setq notmuch-address-full-harvest-finished t))))))
 
 ;;