1 Return-Path: <dme@dme.org>
\r
2 X-Original-To: notmuch@notmuchmail.org
\r
3 Delivered-To: notmuch@notmuchmail.org
\r
4 Received: from localhost (localhost [127.0.0.1])
\r
5 by olra.theworths.org (Postfix) with ESMTP id A07D7431FBC
\r
6 for <notmuch@notmuchmail.org>; Fri, 19 Feb 2010 00:33:02 -0800 (PST)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
11 X-Spam-Status: No, score=-2.328 tagged_above=-999 required=5 tests=[AWL=0.271,
\r
12 BAYES_00=-2.599] autolearn=ham
\r
13 Received: from olra.theworths.org ([127.0.0.1])
\r
14 by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)
\r
15 with ESMTP id C2dqtmKvWdTe for <notmuch@notmuchmail.org>;
\r
16 Fri, 19 Feb 2010 00:33:01 -0800 (PST)
\r
17 Received: from mail-ew0-f222.google.com (mail-ew0-f222.google.com
\r
19 by olra.theworths.org (Postfix) with ESMTP id 808FB431FAE
\r
20 for <notmuch@notmuchmail.org>; Fri, 19 Feb 2010 00:33:01 -0800 (PST)
\r
21 Received: by ewy22 with SMTP id 22so225272ewy.30
\r
22 for <notmuch@notmuchmail.org>; Fri, 19 Feb 2010 00:33:00 -0800 (PST)
\r
23 Received: by 10.213.97.35 with SMTP id j35mr2259528ebn.4.1266568380618;
\r
24 Fri, 19 Feb 2010 00:33:00 -0800 (PST)
\r
25 Received: from aw.hh.sledj.net (gmp-ea-fw-1b.sun.com [192.18.8.1])
\r
26 by mx.google.com with ESMTPS id 5sm651954eyh.40.2010.02.19.00.32.58
\r
27 (version=TLSv1/SSLv3 cipher=RC4-MD5);
\r
28 Fri, 19 Feb 2010 00:32:59 -0800 (PST)
\r
29 Received: by aw.hh.sledj.net (Postfix, from userid 1000)
\r
30 id 46EB53A09E; Fri, 19 Feb 2010 08:32:42 +0000 (GMT)
\r
31 To: James Westby <jw+debian@jameswestby.net>, notmuch@notmuchmail.org
\r
32 In-Reply-To: <87mxz6a1w4.fsf@jameswestby.net>
\r
33 References: <1266346260-3858-1-git-send-email-jw+debian@jameswestby.net>
\r
34 <871vgl5737.fsf@aw.hh.sledj.net> <87mxz6a1w4.fsf@jameswestby.net>
\r
35 From: David Edmondson <dme@dme.org>
\r
36 Date: Fri, 19 Feb 2010 08:32:42 +0000
\r
37 Message-ID: <87r5ohwrpx.fsf@aw.hh.sledj.net>
\r
39 Content-Type: multipart/mixed; boundary="=-=-="
\r
40 Subject: Re: [notmuch] [PATCH] Look for text/html content types ignoring case
\r
41 X-BeenThere: notmuch@notmuchmail.org
\r
42 X-Mailman-Version: 2.1.13
\r
44 List-Id: "Use and development of the notmuch mail system."
\r
45 <notmuch.notmuchmail.org>
\r
46 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
47 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
48 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
49 List-Post: <mailto:notmuch@notmuchmail.org>
\r
50 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
51 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
52 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
53 X-List-Received-Date: Fri, 19 Feb 2010 08:33:02 -0000
\r
57 On Thu, 18 Feb 2010 17:29:15 +0000, James Westby <jw+debian@jameswestby.net> wrote:
\r
58 > On Tue, 16 Feb 2010 19:11:24 +0000, David Edmondson <dme@dme.org> wrote:
\r
59 > > On Tue, 16 Feb 2010 18:51:00 +0000, James Westby <jw+debian@jameswestby.net> wrote:
\r
60 > > > Some people send html parts as text/HTML or similar, so do a
\r
61 > > > case-sensitive comparison when checking for html parts.
\r
63 > > There are various other places where `equal' is used to compare MIME
\r
64 > > types with strings. Shouldn't they all be fixed? (I see TEXT/PLAIN
\r
67 > I don't see any others in notmuch.el, but I'm not experienced in elisp,
\r
68 > so I may be missing some, care to help me out?
\r
74 Content-Type: text/x-diff
\r
75 Content-Disposition: inline;
\r
76 filename=0001-notmuch.el-Always-compare-lower-case-MIME-types.patch
\r
78 >From e5ae18036ccb1dcaa19d0125976b309c25331892 Mon Sep 17 00:00:00 2001
\r
79 From: David Edmondson <dme@dme.org>
\r
80 Date: Fri, 19 Feb 2010 08:32:05 +0000
\r
81 Subject: [PATCH] notmuch.el: Always compare lower-case MIME types.
\r
84 notmuch.el | 5 +++--
\r
85 1 files changed, 3 insertions(+), 2 deletions(-)
\r
87 diff --git a/notmuch.el b/notmuch.el
\r
88 index 6fad91e..7731a93 100644
\r
91 @@ -757,8 +757,9 @@ is what to put on the button."
\r
92 (let (mime-message mime-type)
\r
94 (re-search-forward notmuch-show-contentype-regexp end t)
\r
95 - (setq mime-type (car (split-string (buffer-substring
\r
96 - (match-beginning 1) (match-end 1))))))
\r
97 + (setq mime-type (downcase (car (split-string
\r
98 + (buffer-substring
\r
99 + (match-beginning 1) (match-end 1)))))))
\r
112 David Edmondson, http://dme.org
\r