gnus-summary-limit-to-recipient and gnus-summary-sort-by-recipient

gnus-summary-limit-to-recipient and gnus-summary-sort-by-recipient

[Reiner Steib]

Hi,

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'm not sure if there are better key bindings available:

gnus-summary-limit-to-recipient: `/ R' (`/ r' is already by -replied).

gnus-summary-sort-by-recipient: `C-c C-s C-t'
(mnemonic: `t' for "To" or for the `t' in recipien*t*)

If there are no problems, I'll add documentation and mention the
commands in GNUS-NEWS.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

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

[Tassilo Horn]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> 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.

These both could really be useful.

> gnus-summary-limit-to-recipient: `/ R' (`/ r' is already by -replied).

Works like charm for me.

> gnus-summary-sort-by-recipient: `C-c C-s C-t'
> (mnemonic: `t' for "To" or for the `t' in recipien*t*)

Here I get:

gnus-sort-threads: Wrong type argument: listp,
                                        gnus-thread-sort-by-recipient

Regards,
Tassilo

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

[Reiner Steib]

On Fri, Dec 03 2004, Tassilo Horn wrote:

> Reiner Steib <reinersteib+gmane@imap.cc> writes:
>
>> 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.
[...]
>> gnus-summary-sort-by-recipient: `C-c C-s C-t'
>> (mnemonic: `t' for "To" or for the `t' in recipien*t*)
>
> Here I get:
>
> gnus-sort-threads: Wrong type argument: listp,
>                                         gnus-thread-sort-by-recipient

Fixed in CVS (I hope. ;-))

See this thread in gnus.gnus-bug:

,----
| Subject: Re: Error when using gnus-summary-sort-by-recipient
| Newsgroups: gnus.gnus-bug
| Date: Wed, 07 Sep 2005 17:54:13 +0200
| Message-ID: <v93bogan6i.fsf@marauder.physik.uni-ulm.de>
`----

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

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

[Romain Francoise]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> gnus-summary-limit-to-recipient: `/ R' (`/ r' is already by -replied).

This feature is excellent, thanks!

Small nit: it doesn't appear to be willing to limit on Cc in my
nnfolder+archive groups, I have:

(setq nnmail-extra-headers '(To Cc Newsgroups)
      gnus-extra-headers '(To Cc Newsgroups))

It just says `Found no matches for ..'.  It catches addresses in To:
just fine.  Limiting on Cc works in nnml groups.  Would you have any
idea of what I'm missing?

-- 
Romain Francoise <romain@orebokech.com> | The world is a fine place,
it's a miracle -- http://orebokech.com/ | and worth fighting for.
                                        | --Ernest Hemingway

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

[Reiner Steib]

On Fri, Dec 03 2004, Romain Francoise wrote:

> Small nit: it doesn't appear to be willing to limit on Cc in my
> nnfolder+archive groups, I have:
>
> (setq nnmail-extra-headers '(To Cc Newsgroups)
>       gnus-extra-headers '(To Cc Newsgroups))
>
> It just says `Found no matches for ..'.  It catches addresses in To:
> just fine.  Limiting on Cc works in nnml groups.  Would you have any
> idea of what I'm missing?

After adding entries to `nnmail-extra-headers' you need to regenerate
the overview files[1].  Did you?  Else I don't know.  (I only tested
it on nnml and nnimap.)

Thanks for your feedback.

Bye, Reiner.

[1]
,----[ (info "(gnus)To From Newsgroups") ]
|    A related variable is `nnmail-extra-headers', which controls when to
| include extra headers when generating overview (NOV) files.  If you
| have old overview files, you should regenerate them after changing this
| variable, by entering the server buffer using `^', and then `g' on the
| appropriate mail server (e.g. nnml) to cause regeneration.
`----
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

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

[Romain Francoise]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> After adding entries to `nnmail-extra-headers' you need to regenerate
> the overview files[1].  Did you?

I did, but it didn't help.

Apparently the .nov files on disk all have old dates, so they haven't
been regenerated.  That must be another bug, I'll look into this later.

Thanks,

-- 
Romain Francoise <romain@orebokech.com> | I know, you love the song but
it's a miracle -- http://orebokech.com/ | not the singer.

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

[Reiner Steib]

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/

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

[Karl Pflästerer]

On  3 Dez 2004, reinersteib+gmane@imap.cc wrote:

> 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))))
>     ...)

You could simply write:
    (intersection list1 list2) or
    (nintersection list1 list2)

If the order matters you perhaps have to write:
   (nreverse (nintersection list1 list2))

This is code from the CL lib so a `(require 'cl)' is needed.


   KP