From: Daniel Bergey <bergey@alum.mit.edu>
To: Jameson Graef Rollins <jrollins@finestructure.net>,
 notmuch@notmuchmail.org
Subject: Re: notmuch-emacs and bbdb
In-Reply-To: <87mx35pji9.fsf@servo.finestructure.net>
References: <878ver1jp0.fsf@wonderlust.lan>
	<87mx35pji9.fsf@servo.finestructure.net>
User-Agent: Notmuch/0.13.2 (http://notmuchmail.org) Emacs/23.4.1
	(i486-pc-linux-gnu)
Date: Thu, 12 Jul 2012 09:47:34 -0400
Message-ID: <87txxdytu1.fsf@wonderlust.lan>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
Precedence: list

--=-=-=

I hacked together the attached elisp yesterday.  It provides bindings to
put sender or recipients into bbdb.  (Recipients part needs more
testing.)  It also colors the from line green if the sender is in bbdb,
or orange otherwise.  When it's been through a bit more testing, I'll
submit at least the first part as a patch.

I prefer not to autocapture everything into bbdb, and for the same
reason, I don't want to use notmuch itself as my contacts DB.  Mostly,
this is because I read lots of email on lists, sent by people I'm
unlikely to write back to.  I don't like every John I've heard from
coming up on autocomplete.  Other reasons include sync to phone and
adding contact information from channels other than email.

bergey


--=-=-=
Content-Type: application/emacs-lisp
Content-Disposition: attachment; filename=bbdb-notmuch.el
Content-Transfer-Encoding: quoted-printable

; capture addresses=20
(defun bbdb/notmuch-snarf-header (header)
  (let ((text (notmuch-show-get-header header)))
    (with-temp-buffer
      (insert text)
      (bbdb-snarf-region (point-min) (point-max)))))

(defun bbdb/notmuch-snarf-from ()
  (interactive)
  (bbdb/notmuch-snarf-header :From))

(defun bbdb/notmuch-snarf-to ()
  (interactive)
  (bbdb/notmuch-snarf-header :To))

(define-key notmuch-show-mode-map "b" 'bbdb/notmuch-snarf-from)
(define-key notmuch-show-mode-map "B" 'bbdb/notmuch-snarf-to)

;; color from line according to known / unknown sender
; code taken from bbdb-gnus.el
(defun bbdb/notmuch-known-sender ()
  (let* ((from (plist-get headers :From))
         (splits (mail-extract-address-components from))
         (name (car splits))
         (net (cadr splits))
         (record (and splits
                      (bbdb-search-simple
                       name
                       (if (and net bbdb-canonicalize-net-hook)
                           (bbdb-canonicalize-address net)
                         net)))))
    (and record net (member (downcase net) (bbdb-record-net record)))))

(defun bbdb/check-known-sender ()
  (interactive)
  (if (bbdb/notmuch-known-sender) (message "Sender is known") (message "Sen=
der is not known")))

(defface notmuch-show-known-addr
  '(
    (((class color) (background dark)) :foreground "spring green")
    (((class color) (background light)) :background "spring green" :foregro=
und "black"))
  "Face for sender or recipient already listed in bbdb"
  :group 'notmuch-show
  :group 'notmuch-faces)

(defface notmuch-show-unknown-addr
  '(
    (((class color) (background dark)) :foreground "dark orange")
    (((class color) (background light)) :background "gold" :foreground "bla=
ck"))
  "Face for sender or recipient not listed in bbdb"
  :group 'notmuch-show
  :group 'notmuch-faces)

; override function from notmuch-show
(defun notmuch-show-insert-headerline (headers date tags depth)
  "Insert a notmuch style headerline based on HEADERS for a
message at DEPTH in the current thread."
  (let ((start (point))
        (face (if (bbdb/notmuch-known-sender) 'notmuch-show-known-addr 'not=
much-show-unknown-addr))
        (end-from))
    (insert (notmuch-show-spaces-n (* notmuch-show-indent-messages-width de=
pth))
	    (notmuch-show-clean-address (plist-get headers :From)))
    (setq end-from (point))
    (insert
	    " ("
	    date
	    ") ("
	    (propertize (mapconcat 'identity tags " ")
			'face 'notmuch-tag-face)
	    ")\n")
    (overlay-put (make-overlay start (point)) 'face 'notmuch-message-summar=
y-face)
    (save-excursion
      (goto-char start)
      (overlay-put (make-overlay start end-from) 'face face))))


--=-=-=



Jameson Graef Rollins <jrollins@finestructure.net> writes:

> On Tue, Jul 10 2012, Daniel Bergey <bergey@alum.mit.edu> wrote:
>> As far as I can tell, notmuch doesn't integrate as smoothly with bbdb as older
>> emacs mailclients.  I'm especially looking for a snarf function that
>> distinguishes sender from recipient.
>>
>> How do other people use bbdb with notmuch?
>>
>> Does anyone have lisp code like that which ships with bbdb for other
>> clients?
>>
>> If I were to find time to write such code, what would you like it to do?
>
> Hey, Bergey.  This is something that I think needs improvement as well.
> I've been just manually constructing the bbdb entries myself.
>
> But what I've really been meaning to get going is address
> auto-completion from the database, which I'm pretty sure could obviate
> my need for bbdb altogether:
>
> http://notmuchmail.org/emacstips/#index13h2
>
> Getting it working seems more difficult than it should be, though, and
> the existing solutions seem a bit slower than they need to be [0].  So I
> think there's also room for improvement here.
>
> For instance, I think it would be rad if notmuch provided this
> functionality natively, in the CLI, or even in the library [1].  I think
> it's definitely doable, and it would be a nice little project.
>
> The emacs integration could be a bit smoother as well.  A single config
> option should either turn the functionality on or off.  That would be
> very convenient [2].
>
> jamie.
>
> [0] id:"87r4xur3rv.fsf@plc.plecavalier.com"
> [1] For what it's worth, I would prefer a solution that didn't involve
>     any caching of addresses outside of the database.
> [2] I also find it changes the behavior of the ido tab completion
>     interface that I'm used to using in message mode.

--=-=-=--