From: Sebastian Fischmeister <sfischme@uwaterloo.ca>
To: <notmuch@notmuchmail.org>
Subject: ido address lookup for notmuch
User-Agent: Notmuch/0.17+27~gae47d61 (http://notmuchmail.org) Emacs/24.3.1
	(x86_64-unknown-linux-gnu)
Date: Tue, 21 Jan 2014 17:13:16 -0500
Message-ID: <87a9ep0yrn.fsf@uwaterloo.ca>
MIME-Version: 1.0
Content-Type: text/plain
Precedence: list

Hi,

This is a function that I find really useful. I adapted it a bit based
on the original from Jacek Generowicz. Maybe others will find it helpful
as well.

  Sebastian

;; original https://groups.google.com/group/mu-discuss/browse_thread/thread/551b7a6487a0aeb3

(setq notmuch-compose-complete-ignore-address-regexp (regexp-opt '("failed" "DO NOT REPLY" "donotreply" "no-reply" "noreply" "Google Drive")))

(defun jmg/ido-select-recipient ()
  "Inserts a contact from the addrlookup cache.
Uses ido to select the contact from all those present in the database."
  (interactive)
  (insert
   (ido-completing-read
    "Recipient: "
    (mapcar (lambda (contact-string)
              (let* ((data (split-string contact-string "	"))
                     (address (car data))
                     (name (when (> (length (cadr data)) 0) (cadr data)))
                     )
                (if name
                    (format "%s <%s>" name address)
                  address)))
            (remove-if (lambda (string) (string-match notmuch-compose-complete-ignore-address-regexp string))
                       (remove-if (lambda (string) (= 0 (length string)))
                                  (split-string (shell-command-to-string (concat "addrlookup " (thing-at-point 'word) )) "\n")))))))