alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu: include list-post address in message sexp

Browse Source 
If there's a list-post address, include it in the message-sexp, so we
can use it when replying.
This commit is contained in:
Dirk-Jan C. Binnema
2020-01-07 22:45:20 +02:00
parent f4874cd7e1
commit 38a91f3696
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/mu-msg-sexp.c
View File

@ -163,9 +163,8 @@ each_contact (MuMsgContact *c, ContactData *cdata)
return TRUE; return TRUE;
} }
static void static void
maybe_append_list_post_as_reply_to (GString *gstr, MuMsg *msg) maybe_append_list_post (GString *gstr, MuMsg *msg)
{ {
/* some mailing lists do not set the reply-to; see pull #1278. So for /* some mailing lists do not set the reply-to; see pull #1278. So for
* those cases, check the List-Post address and use that instead */ * those cases, check the List-Post address and use that instead */
@ -184,7 +183,7 @@ maybe_append_list_post_as_reply_to (GString *gstr, MuMsg *msg)
if (g_regex_match (rx, list_post, 0, &minfo)) { if (g_regex_match (rx, list_post, 0, &minfo)) {
char *addr; char *addr;
addr = g_match_info_fetch (minfo, 2); addr = g_match_info_fetch (minfo, 2);
g_string_append_printf (gstr,"\t:reply-to ((nil . \"%s\"))\n", addr); g_string_append_printf (gstr,"\t:list-post ((nil . \"%s\"))\n", addr);
g_free(addr); g_free(addr);
} }
@ -209,8 +208,7 @@ append_sexp_contacts (GString *gstr, MuMsg *msg)
if (cdata.from || cdata.to || cdata.cc || cdata.bcc || cdata.reply_to) if (cdata.from || cdata.to || cdata.cc || cdata.bcc || cdata.reply_to)
gstr = g_string_append (gstr, ")\n"); gstr = g_string_append (gstr, ")\n");
if (!cdata.reply_to) maybe_append_list_post (gstr, msg);
maybe_append_list_post_as_reply_to (gstr, msg);
} }
struct _FlagData { struct _FlagData {