Re: gnus-summary-limit-to-recipient and

[Reiner Steib <reinersteib+gmane@imap.cc>]

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/