[PATCH] Add support for the Reply-To pattern modifier.

[Mono DHS]

Subject says it all.

From 3a19ae344c39763e1c54e6e263c6f552bff6eb2f Mon Sep 17 00:00:00 2001
From: Mono DHS <mono...@arcor.de>
Date: Mon, 20 Jul 2020 13:21:37 +0200
Subject: [PATCH] Add support for the Reply-To (RFC 5322, 3.6.2. Originator
 Fields) pattern modifier.

---
 doc/manual.xml.head | 1 +
 mutt.h              | 1 +
 pattern.c           | 4 ++++
 3 files changed, 6 insertions(+)

diff --git a/doc/manual.xml.head b/doc/manual.xml.head
index 
5276953059e453592c2832db5abed4ec6a500395..91ea427bd0258bd4e363920607dc7478d6f57b08
 100644
--- a/doc/manual.xml.head
+++ b/doc/manual.xml.head
@@ -5732,6 +5732,7 @@ shows several ways to select messages.
 <entry>~P</entry>
 <entry>messages from you (consults <link linkend="from">$from</link>, 
<command>alternates</command>, and local account/hostname information)</entry>
 </row>
+<row><entry>~q <emphasis>EXPR</emphasis></entry><entry>messages which contain 
<emphasis>EXPR</emphasis> in the <quote>Reply-To</quote> field</entry></row>
 <row><entry>~Q</entry><entry>messages which have been replied to</entry></row>
 <row><entry>~r 
[<emphasis>MIN</emphasis>]-[<emphasis>MAX</emphasis>]</entry><entry>messages 
with <quote>date-received</quote> in a Date range</entry></row>
 <row><entry>~R</entry><entry>read messages</entry></row>
diff --git a/mutt.h b/mutt.h
index 
4413739ff0748215807e8a7d3e9d803bdeabd26e..cc6148ede009a21073139592230f7b3e305b13b2
 100644
--- a/mutt.h
+++ b/mutt.h
@@ -271,6 +271,7 @@ enum
   MUTT_XLABEL,
   MUTT_MIMEATTACH,
   MUTT_MIMETYPE,
+  MUTT_REPLY_TO,
 
   /* Options for Mailcap lookup */
   MUTT_EDIT,
diff --git a/pattern.c b/pattern.c
index 
eb403ac3f8891d85ad7d2d6f944ebc316c239224..6e08cccfd3a34ea87cdb87773ce72c7f0f6d1517
 100644
--- a/pattern.c
+++ b/pattern.c
@@ -83,6 +83,7 @@ Flags[] =
   { 'O', MUTT_OLD,                     0,              NULL },
   { 'p', MUTT_PERSONAL_RECIP,  0,              NULL },
   { 'P', MUTT_PERSONAL_FROM,   0,              NULL },
+  { 'q', MUTT_REPLY_TO,   0, eat_regexp },
   { 'Q', MUTT_REPLIED,         0,              NULL },
   { 'r', MUTT_DATE_RECEIVED,   0,              eat_date },
   { 'R', MUTT_READ,            0,              NULL },
@@ -1468,6 +1469,9 @@ mutt_pattern_exec (struct pattern_t *pat, 
pattern_exec_flag flags, CONTEXT *ctx,
     case MUTT_CC:
       return (pat->not ^ match_adrlist (pat, flags & MUTT_MATCH_FULL_ADDRESS, 
1,
                                         h->env->cc));
+    case MUTT_REPLY_TO:
+      return (pat->not ^ match_adrlist (pat, flags & MUTT_MATCH_FULL_ADDRESS, 
1,
+                                        h->env->reply_to));
     case MUTT_SUBJECT:
       return (pat->not ^ (h->env->subject && patmatch (pat, h->env->subject) 
== 0));
     case MUTT_ID:
-- 
2.11.0

signature.asc
Description: PGP signature