Re: sort by reverse date & bbdb

[Lloyd Zusman <ljz@asfast.com>]

Ding Lei <dinglei@ipanel.cn> writes:

> Danny Siu <dsiu@adobe.com> writes:
>
>> Ding Lei writes:
>>
>>   Ding> Hello,
>>   Ding> 1. C-c C-s C-d does sort by date, what's the combo for sort by
>>   Ding>    reverse date?
>>
>> Try prefix it with C-u C-c C-s C-d.  Lots of command has alternative
>> behaviour if given the C-u prefix.  Also, some command takes numeric prefix.
>> For eg: C-u 7 C-n moves your cursor down 7 lines.
> Ah it works. Thanks!  but .. what's the corresponding lisp command?
> what's the reverse for (gnus-summary-sort-by-date) ??

That command is (gnus-summary-sort-by-date) :)

When you pass a non-nil argument to it, it sorts in reverse order:

  gnus-summary-sort-by-date is an interactive compiled Lisp function in
  `gnus-sum'.
  (gnus-summary-sort-by-date &optional REVERSE)

  Sort the summary buffer by date.
  Argument REVERSE means reverse order.

If you want a function that does this without having to specify an
argument, you can do the following:

  (defun my-gnus-summary-sort-by-date-rev ()
    (interactive)
    (gnus-summary-sort-by-date t))


> And how do I customize default sorting methods for different groups?
> Thank you!

You can set up a `gnus-summary-generate-hook', as follows:

  (defun my-gnus-article-sort-by-date-rev (h1 h2)
    ;; swap the argument order to do a reverse sort
    (gnus-article-sort-by-date h2 h1))
  (defun my-gnus-summary-generate-hook ()
    (when (and (not (null gnus-newsgroup-name))
               (stringp gnus-newsgroup-name))
      (cond
       ((string-match "\\(foo\\|bar\\)" gnus-newsgroup-name)
        (setq gnus-article-sort-functions '(my-gnus-article-sort-by-date-rev))
        t)
       (t
        (setq gnus-article-sort-functions '(gnus-article-sort-by-date))
        t))))
  (add-hook 'gnus-summary-generate-hook 'my-gnus-summary-generate-hook)


-- 
 Lloyd Zusman
 ljz@asfast.com
 God bless you.