From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp10.migadu.com ([2001:41d0:203:375::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms12.migadu.com with LMTPS id qD4NJeoChGSS/wAATFOONw (envelope-from ) for ; Sat, 10 Jun 2023 06:58:18 +0200 Received: from mta1.migadu.com ([2001:41d0:203:375::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp10.migadu.com with LMTPS id CPIxJOoChGQMIgEAG6o9tA (envelope-from ) for ; Sat, 10 Jun 2023 06:58:18 +0200 X-Report-Abuse: Please report any abuse attempt to abuse@migadu.com and include these headers. DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=kyleam.com; s=key1; t=1686373098; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:cc:mime-version:mime-version:content-type:content-type: in-reply-to:in-reply-to; bh=m1YTsqgrKlljBfdpAVWsIqQ8Y+qMkupP09hdt8g0SNE=; b=qzh9U3E6mtpGHJeGmrzotyzpzMIMombfaRxAVWI7MfATseo6HXmhtjxkhlh7RYAXJ0PAI8 zIqgoQuTLxxP+HFyIUDFQX9LG7IppyH5sOqucO9ttcUjSFHfPKa9vYa6Zi7AjwsdqRCCi8 5r+yhsMKyVcWHps35FW3JRFwaGV6UoVsxcagsvylK0SjJrDDVPcdMLn5ojE+dm/1OL7JnZ qyrDBbgU7TO0ipH7TsZGpTNok0WazwwINP6etmQTo/7pfjOt/Nm9TCqIp6P2pxRYMxhENI mVNuOA2kr3LDeo5fDRI5eWDSf6+KnRVVW9wxAb2bi2oeA/7kGdaIOcNxA9l8tg== From: Kyle Meyer To: jlicht@fsfe.org Cc: piem@inbox.kyleam.com Subject: Re: [PATCH v2 4/5] gnus: Add support for matching inbox by X-GNU-PR-PACKAGE header. In-Reply-To: <20230609124829.29629-5-jlicht@fsfe.org> Date: Sat, 10 Jun 2023 00:58:16 -0400 Message-ID: <87r0qjncbb.fsf@kyleam.com> MIME-Version: 1.0 Content-Type: text/plain X-Migadu-Flow: FLOW_OUT X-TUID: U1EZqbZlLPJW jlicht@fsfe.org writes: > From: Jelle Licht > > --- > piem-gnus.el | 6 +++++- > 1 file changed, 5 insertions(+), 1 deletion(-) > > diff --git a/piem-gnus.el b/piem-gnus.el > index e8e5f1e..25b80b7 100644 > --- a/piem-gnus.el > +++ b/piem-gnus.el > @@ -42,7 +42,11 @@ > "Return inbox name from a Gnus article" > (when (derived-mode-p 'gnus-article-mode 'gnus-summary-mode) > (with-current-buffer gnus-original-article-buffer > - (piem-inbox-by-header-match)))) > + (or (piem-inbox-by-header-match) > + (let ((gnu-package > + (car (piem--message-fetch-decoded-fields > + '("x-gnu-pr-package"))))) > + (piem-inbox-by-gnu-package-match gnu-package)))))) As mentioned in the last message, I think it'd be good to move this to piem-inbox-by-header-match.