X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-address.el;fp=emacs%2Fnotmuch-address.el;h=f313c4152c7b58a6754e349170884eb85447a638;hb=f47e3333b5478e43840e55710311aebdd441fc0e;hp=1f22e37710d303ecf8febd7a2a1ebfe5c0fe0fdf;hpb=25a8873c68f9ef033d393efaf7f4c46a29f798f4;p=notmuch

diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el
index 1f22e377..f313c415 100644
--- a/emacs/notmuch-address.el
+++ b/emacs/notmuch-address.el
@@ -260,8 +260,8 @@ requiring external commands."
 ;;; Harvest
 
 (defun notmuch-address-harvest-addr (result)
-  (let ((name-addr (plist-get result :name-addr)))
-    (puthash name-addr t notmuch-address-completions)))
+  (puthash (plist-get result :name-addr)
+	   t notmuch-address-completions))
 
 (defun notmuch-address-harvest-filter (proc string)
   (when (buffer-live-p (process-buffer proc))