From: "Sebastian Spaeth" <Sebastian@SSpaeth.de>
To: Dirk Hohndel <hohndel@infradead.org>, notmuch@notmuchmail.org
Subject: Re: [notmuch] Fcc, Maildir, and Emacs message-mode -- a bit of code
In-Reply-To: <m3bpdbrsa7.fsf@x200.gr8dns.org>
References: <873a1zs3t5.fsf@jhu.edu> <87ochbx3er.fsf@SSpaeth.de>
	<m3bpdbrsa7.fsf@x200.gr8dns.org>
Date: Fri, 23 Apr 2010 09:13:06 +0200
Message-ID: <87bpdaljzx.fsf@SSpaeth.de>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Precedence: list

On 2010-04-22, Dirk Hohndel wrote:
> ;; This is the list of alternatives that should be configurable as
> ;; defcustom (or simply set in .emacs for now)
> (setq notmuch-fcc-dirs '(
>       ("Dirk Hohndel <dirk.hohndel@intel.com>" . "Maildir/Sent Items")
>       ("Dirk Hohndel <hohndel@infradead.org>" . "MaildirInfradead/Sent")))
> 
> ;This constructs a path, concatenating the content of the variable
> ;"message-directory" and the second part in the alist:
> (defun my-fcc-header-setup ()
> (let ((subdir (cdr (assoc (message-fetch-field "from") notmuch-fcc-dirs))))
>      (message-add-header (concat "Fcc: " message-directory subdir))))
> (add-hook 'message-send-hook 'my-fcc-header-setup)

> The disadvantage is that with the message-send-hook I don't get to see /
> correct the FCC line in the message buffer - but since I trust the logic
> here (and tested it quite a bit), I'm less concerned about this.

Another disadvantage is that this does not provide a fallback, so if you
type "dirk" rather than "Dirk" in your from, the fcc dir will be nil, so
it tries to deliver just to "message-directory". The user should be able
to configure a default FCC dir, I think.

Sebastian