From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/59336 Path: main.gmane.org!not-for-mail From: Reiner Steib Newsgroups: gmane.emacs.gnus.general Subject: Re: gnus-summary-limit-to-recipient and Date: Fri, 03 Dec 2004 17:02:52 +0100 Organization: Dept. of Theoretical Physics, University of Ulm Message-ID: References: Reply-To: Reiner Steib NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1102089886 32536 80.91.229.6 (3 Dec 2004 16:04:46 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 3 Dec 2004 16:04:46 +0000 (UTC) Original-X-From: ding-owner+M7876@lists.math.uh.edu Fri Dec 03 17:04:36 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13] ident=mail) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CaFvA-0001wA-00 for ; Fri, 03 Dec 2004 17:04:36 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1CaFtr-0001kP-00; Fri, 03 Dec 2004 10:03:15 -0600 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1CaFtn-0001kK-00 for ding@lists.math.uh.edu; Fri, 03 Dec 2004 10:03:11 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1CaFti-00076G-Ox for ding@lists.math.uh.edu; Fri, 03 Dec 2004 10:03:06 -0600 Original-Received: from main.gmane.org (main.gmane.org [80.91.229.2]) by justine.libertine.org (Postfix) with ESMTP id 1CC6A3A0040 for ; Fri, 3 Dec 2004 10:03:05 -0600 (CST) Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1CaFtf-0002gK-00 for ; Fri, 03 Dec 2004 17:03:03 +0100 Original-Received: from lumberjack.physik.uni-ulm.de ([134.60.10.173]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 03 Dec 2004 17:03:03 +0100 Original-Received: from Reiner.Steib by lumberjack.physik.uni-ulm.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 03 Dec 2004 17:03:03 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-To: ding@gnus.org Original-Lines: 48 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: lumberjack.physik.uni-ulm.de X-Face: #vK]N[`vqjuod*|)'[iD7/"3AB-ApT%fmN"LWAg@oS7OesGv~)n[OBTLM#I="J'Y^-7I I/ps7o_'IK@#-Rs{::DZ@O8yS|fexe,XslY[:dNWOb~>?mC-&i_c)say:"\IpA.5U.b]'NY;Pks{lb h.+#6%DpZuaK3dcHB`Av3zc:r!C%~s0&m,tWj]&},qg.+0ww2gK%f!:GK|wMl.I!(voY*1"^li8"~B BNG)9LvPi?^DMR-GVDnZqhu*3Hi,+g=wFhI)BL6&u{EOVEHjVEVq~d?_}lMntWAc3(6?kftjc>_f>! g0wM(qPM$d5]^TT_Qyi&L?LGVG)SHN;Gk/,pkY9,~ Mail-Copies-To: nobody User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux) Cancel-Lock: sha1:UILdYUc/Apn81Y2NTu5GBHjWzdU= Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: main.gmane.org gmane.emacs.gnus.general:59336 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:59336 On Thu, Dec 02 2004, Reiner Steib wrote: > I have added new user commands `gnus-summary-limit-to-recipient' and > `gnus-summary-sort-by-recipient' that have been requested by users in > g.e.g. Please test. I have implemented the missing `not-matching' option: ,----[ C-h f gnus-summary-limit-to-recipient RET ] | gnus-summary-limit-to-recipient is an interactive Lisp function in `gnus-sum'. | (gnus-summary-limit-to-recipient RECIPIENT &optional NOT-MATCHING) | | Limit the summary buffer to articles with the given RECIPIENT. | | To and Cc headers are checked. You need to include them in | `nnmail-extra-headers'. `---- An elisp question related to this: Give two lists of number, `to' and `cc'. What is the best way to get a list of all numbers that are present in both lists? Example: to -> (173 175 177 178 180 181 182 183 184) cc -> (173 174 175 176 177 178 179 180 181 182 183 184) goal: (173 175 177 178 180 181 182 183 184) I have done it as follows (the "not-matching"-part), but maybe I was missing a more simple solution: (let* ((to ...) ; list of numbers (cc ...) ; list of numbers (articles (if not-matching ;; We need the numbers that are in both lists: (mapcar (lambda (a) (and (memq a to) a)) cc) (nconc to cc)))) ...) Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/