all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: "N. Raghavendra" <raghu@hri.res.in>
To: help-gnu-emacs@gnu.org
Subject: Re: Sorting with threads in Gnus
Date: Sun, 28 Jul 2013 21:47:10 +0530	[thread overview]
Message-ID: <87a9l6d5h5.fsf@griffin.dhcp1.hri> (raw)
In-Reply-To: 87ppu2ua43.fsf@web.de

At 2013-07-28T14:45:00+02:00, Michael Heerdegen wrote:

> I think this does what you want (please load it after loading Gnus):
>
> (setq gnus-sort-gathered-threads-function
>       #'gnus-thread-sort-by-number)
> (setq gnus-thread-sort-functions
>       '((not gnus-thread-sort-by-number)))
>
> (defun gnus-sort-threads-recursive (threads func)
>   (sort (mapcar (lambda (thread)
> 		  (cons (car thread)
> 			(and (cdr thread)
> 			     (gnus-sort-threads-recursive-1
> 			      (cdr thread) func))))
> 		threads) func))
>
> (defun gnus-sort-threads-recursive-1 (threads func)
>   (setq func (gnus-make-sort-function
> 	      '(gnus-thread-sort-by-number)))
>   (sort (mapcar (lambda (thread)
> 		  (cons (car thread)
> 			(and (cdr thread)
> 			     (gnus-sort-threads-recursive-1
> 			      (cdr thread) func))))
> 		threads) func))
>
> Is that right?

Thanks.  I'll try it and get back.

Best regards,
Raghu.

-- 
N. Raghavendra <raghu@hri.res.in>, http://www.retrotexts.net/
Harish-Chandra Research Institute, http://www.hri.res.in/




  reply	other threads:[~2013-07-28 16:17 UTC|newest]

Thread overview: 31+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2013-07-23  8:49 Sorting with threads in Gnus N. Raghavendra
2013-07-24  6:21 ` Eric Abrahamsen
2013-07-24  8:17   ` N. Raghavendra
2013-07-24 13:15   ` Tassilo Horn
2013-07-26  4:37     ` Eric Abrahamsen
2013-07-26  5:48       ` Tassilo Horn
2013-07-26  9:01         ` Eric Abrahamsen
2013-07-26 13:06           ` Tassilo Horn
2013-07-26 13:26             ` Tassilo Horn
2013-07-26 13:43               ` Tassilo Horn
2013-07-26 15:26                 ` Eric Abrahamsen
2013-07-26 16:56                   ` Tassilo Horn
2013-07-27  7:08                     ` Eric Abrahamsen
2013-07-26 17:40                 ` N. Raghavendra
2013-07-27  8:56                   ` Tassilo Horn
2013-07-27  9:19                     ` N. Raghavendra
2013-07-29  6:53                       ` Tassilo Horn
2013-07-29  7:42                         ` N. Raghavendra
2013-07-28  7:09                     ` N. Raghavendra
2013-07-28  8:03                       ` Michael Heerdegen
2013-07-28  9:50                         ` N. Raghavendra
2013-07-28 12:45                           ` Michael Heerdegen
2013-07-28 16:17                             ` N. Raghavendra [this message]
2013-07-30  7:05                               ` Tassilo Horn
2013-07-30  7:24                                 ` Eric Abrahamsen
2013-07-30  8:01                                   ` Tassilo Horn
2013-07-30 10:53                                     ` Eric Abrahamsen
2013-07-29  5:16                             ` N. Raghavendra
2013-07-30  8:07                       ` Tassilo Horn
2013-07-30 11:00                         ` N. Raghavendra
2013-07-30 12:33                           ` Tassilo Horn

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87a9l6d5h5.fsf@griffin.dhcp1.hri \
    --to=raghu@hri.res.in \
    --cc=help-gnu-emacs@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.