(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))))))
;;