To: Charlie Allom <charlie@yelp.com>, notmuch@notmuchmail.org
Subject: Re: [PATCH v3] Allow content preference based on message content.
In-Reply-To:
 <m1oa5fuv9v.fsf@YELP-CHARLIE.i-did-not-set--mail-host-address--so-tickle-me>
References: <1459699478-21167-1-git-send-email-dme@dme.org>
 <m1oa5fuv9v.fsf@YELP-CHARLIE.i-did-not-set--mail-host-address--so-tickle-me>
From: David Edmondson <dme@dme.org>
Date: Sat, 30 Jul 2016 15:12:09 +0100
Message-ID: <m21t2bb4g6.fsf@dme.org>
MIME-Version: 1.0
Content-Type: text/plain
Precedence: list

On Sat, Jul 30 2016, Charlie Allom wrote:

> Do you have an example for the elisp-challenged, on how to match more
> than one email address? I'm just starting out with emacs but this patch
> is just what I need :)

There are many ways. This is what I am using:

  (defun dme:determine-discouraged (msg)
    (let* ((headers (plist-get msg :headers))
	   (from (or (plist-get headers :From) "")))
      (cond
       ((string-match (regexp-opt
		       '(
			 ;; Parmiter's parent mail: text/plain with HTML content.
			 "9195404@capita-intouch.co.uk"
			 ;; Oracle mobile reports: text/plain with useless content.
			 "TEMA Alerts"
			 ;; Charles Stanley: HTML only emails.
			 "info@charles-stanley-direct.co.uk"
			 ;; HackerNews: nicer in HTML.
			 "kale@hackernewsletter.com"
			 ;; MasterCard: no content in the text.
			 "CustomerService@information.mbna.co.uk"
			 ))
		      from)
	'("text/plain"))
       (t
	'("text/html" "multipart/related" "text/x-beehive-notification")))))


> Regards,
>   Charlie.
>   
> On Sun, Apr 03 2016 at 05:04:37 pm, David Edmondson <dme@dme.org> wrote:
>
>> Allow content preference based on message content.
>>
>> An example configuration might be:
>>
>>   (defun dme:determine-discouraged (msg)
>>     (let* ((headers (plist-get msg :headers))
>> 	   (from (or (plist-get headers :From) "")))
>>       (cond
>>        ((string-match "9195404@capita-intouch.co.uk" from)
>> 	'("text/plain"))
>>        (t
>> 	'("text/html" "multipart/related")))))
>>
>>   (setq notmuch-multipart/alternative-discouraged
>>   	'dme:determine-discouraged)
>>
>> This would discourage text/html and multipart/related generally, but
>> discourage text/plain should the message be sent from
>> 9195404@capita-intouch.co.uk.
>>
>> v2:
>> - Remove the simple evaluation variant based on feedback.
>>
>> v3:
>> - Merge forward.
>> - Update the example to allow for a nil msg (which should no longer
>>   happen, but it's good to be safe).
>>
>>
>> David Edmondson (1):
>>   emacs: Allow part preferences to depend on message content.
>>
>>  emacs/notmuch-lib.el  | 20 ++++++++++++++++----
>>  emacs/notmuch-show.el |  2 +-
>>  2 files changed, 17 insertions(+), 5 deletions(-)
>
> --