From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on inbox.vuxu.org X-Spam-Level: X-Spam-Status: No, score=-3.4 required=5.0 tests=DKIM_SIGNED,DKIM_VALID, DKIM_VALID_AU,MAILING_LIST_MULTI,RCVD_IN_DNSWL_MED, T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.4 Received: (qmail 11193 invoked from network); 5 Dec 2023 00:17:29 -0000 Received: from lists.gnu.org (209.51.188.17) by inbox.vuxu.org with ESMTPUTF8; 5 Dec 2023 00:17:29 -0000 Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1rAJ7o-0005be-Gv; Mon, 04 Dec 2023 19:17:20 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rAJ7m-0005bH-OW for info-gnus-english@gnu.org; Mon, 04 Dec 2023 19:17:18 -0500 Received: from smtp.forwardemail.net ([149.28.215.223]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1rAJ7l-0004hA-34 for info-gnus-english@gnu.org; Mon, 04 Dec 2023 19:17:18 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=bobnewell.net; h=Content-Type: MIME-Version: Message-ID: Date: References: In-Reply-To: Subject: Cc: To: From; q=dns/txt; s=fe-148fdb2209; t=1701735432; bh=zD+BYU3aymweJYWuy6nKtfXS15zO6SvgYD4WmxQ1EN0=; b=jpRyCyzzrupW2Rc37GMhox/VWHxDT8asaDeXvWPh0CcuJTMORw2apVvW7rfPiJne/7NBKS616 CPi6qFW+vh5k4KlU8GSCdPSz43l5XNwAEO1cpvL0H/pPWTAgwuXDDdgYN5y9YnHWTaRQ14fka10 pOTAb2QdnabqJVjnnX5xdbae7tXwryjpJANd7C6vH/Y++3yXYPrUT6ceAiWaVZ6lQWV8ndKnrEt VYS1WmPV5hLwgbxVpOvpLl0iY5KGR/XyRQCELOG0sOxGNUsg54I7UjHCWrjB/n8DmMyGwQY+cDu ISUgEe9/nZo1m8nCyTCKhRCWYNWCLe5P+Q5uylepYdOw== From: Bob Newell To: Max Evans Cc: info-gnus-english@gnu.org Subject: Re: Need help writing predicate function In-Reply-To: <231pPe4tQmLilpsi6Jaf16YkW-PECPaVCl_TdBCz-ZfFfeiqbDkJrVszHjfFJ-VYJJ4Tr3RQjiIodRmv_qkktQzOBYSBkepBOyfZ9E8ovzM=@protonmail.com> (Max Evans's message of "Mon, 04 Dec 2023 16:44:35 +0000") Organization: Avi Gobbler Publishing References: <231pPe4tQmLilpsi6Jaf16YkW-PECPaVCl_TdBCz-ZfFfeiqbDkJrVszHjfFJ-VYJJ4Tr3RQjiIodRmv_qkktQzOBYSBkepBOyfZ9E8ovzM=@protonmail.com> Date: Mon, 04 Dec 2023 14:17:09 -1000 Message-ID: <87sf4hlcze.yefxa@eyvdhhtlc.fdtbvgc.info> User-Agent: Safari/6.5 MIME-Version: 1.0 Content-Type: text/plain X-Report-Abuse-To: abuse@forwardemail.net X-Report-Abuse: abuse@forwardemail.net X-Complaints-To: abuse@forwardemail.net X-ForwardEmail-Version: 0.4.40 X-ForwardEmail-Sender: rfc822; bobnewell@bobnewell.net, smtp.forwardemail.net, 149.28.215.223 X-ForwardEmail-ID: 656e6c08ddec88914954f63d Received-SPF: pass client-ip=149.28.215.223; envelope-from=SRS0=2c99=HQ=bobnewell.net=bobnewell@fe-bounces.bobnewell.net; helo=smtp.forwardemail.net X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: info-gnus-english-bounces+ml=inbox.vuxu.org@gnu.org Sender: info-gnus-english-bounces+ml=inbox.vuxu.org@gnu.org I do something similar to change identity and/or input language based on addressee. I just put it in a hook (add-hook 'message-setup-hook 'rjn-change-stuff-by-addressee t) and that works for me; the appropriate identity gets chosen via gnus-alias-use-identity when the message reply is set up. My complete code is this. It is not the same as you ask but easily modified. You'd only need the upper half. (defun rjn-change-stuff-by-addressee () (interactive) (let ((addressee (message-fetch-field "To")) netaddr person smtppref) (if addressee (setq netaddr (cadr (mail-extract-address-components addressee)))) (if netaddr (setq person (car (bbdb-search (bbdb-records) :mail netaddr)))) (if person (setq smtppref (bbdb-record-field person 'smtp))) (if smtppref (gnus-alias-use-identity smtppref)) ) (let ((addressee (message-fetch-field "To")) netaddr person langpref) (if addressee (setq netaddr (cadr (mail-extract-address-components addressee)))) (if netaddr (progn (setq person (car (bbdb-search (bbdb-records) :mail netaddr))))) (if person (setq langpref (bbdb-record-field person 'language))) (if langpref (set-input-method langpref))) ) -- Bob Newell Honolulu, Hawai`i - Via GNU/Linux/Emacs/Gnus/BBDB