From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/3911
Path: news.gmane.org!not-for-mail
From: Reiner Steib <4.uce.03.r.s@nurfuerspam.de>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: (gnus-summary-sort-by-recipient): new function
Date: Tue, 22 Jun 2004 14:21:27 +0200
Organization: Dept. of Theoretical Physics, University of Ulm
Message-ID: <v9llifg4vs.fsf@marauder.physik.uni-ulm.de>
References: <867jtz7uvq.fsf@mat.ucm.es>
Reply-To: Reiner Steib <reiner.steib@gmx.de>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138669939 20944 80.91.229.2 (31 Jan 2006 01:12:19 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 01:12:19 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:32:56 2006
Original-Newsgroups: gnu.emacs.gnus
X-Face: P05mdcZT&lL[-s2=mw~RsllZ0zZAb?vdE}.s<l:C!'y=7MhVA[J6}92Ma:vvdy](YbA+AS!
 n"JLX4vFh8fL,.+XSC(B%i/V9e]L$EiVH,QI;j+ffz9#AW~w)n
Mail-Copies-To: nobody
User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3 (gnu/linux)
Cancel-Lock: sha1:Q1mEtpE5X5bgLVt0TxG6Ne+UgOU=
Original-NNTP-Posting-Host: lumberjack.physik.uni-ulm.de
Original-X-Trace: news.uni-ulm.de 1087907401 134.60.10.173 (22 Jun 2004 14:30:01 +0200)
Original-Path: quimby.gnus.org!newsfeed1.e.nsc.no!nsc.no!nextra.com!news.tele.dk!news.tele.dk!small.news.tele.dk!npeer.de.kpn-eurorings.net!rz.uni-karlsruhe.de!news.uni-ulm.de!lumberjack.physik.uni-ulm.de!not-for-mail
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:4052
Original-Lines: 42
X-Gnus-Article-Number: 4052   Tue Jan 17 17:32:56 2006
Xref: news.gmane.org gmane.emacs.gnus.user:3911
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/3911>

On Tue, Jun 22 2004, Uwe Brauer wrote:

> I sometimes  find in handy  to sort my  mail (in the mail sent group),
> by the recipient, which is  defined in the *to* field.
[...]
> Has anybody tried to write such a function.

Maybe like this:

--8<---------------cut here---------------start------------->8---
(defun rs-gnus-summary-sort-by-recipient (&optional reverse)
  "Sort the summary buffer by recipient name alphabetically.
If `case-fold-search' is non-nil, case of letters is ignored.
Argument REVERSE means reverse order."
  (interactive "P")
  (gnus-summary-sort 'recipient reverse))

(defsubst rs-gnus-article-sort-by-recipient (h1 h2)
  "Sort articles by recipient."
  (string-lessp
   (let ((extract (funcall
		   gnus-extract-address-components
		   (or (cdr (assq 'To (mail-header-extra h1))) ""))))
     (or (car extract) (cadr extract)))
   (let ((extract (funcall
		   gnus-extract-address-components
		   (or (cdr (assq 'To (mail-header-extra h2))) ""))))
     (or (car extract) (cadr extract)))))

;; Not using my own namespace prefix because `gnus-summary-sort' wants
;; "gnus-article-sort-by-%s":
(require 'gnus-sum)
(unless (fboundp 'gnus-article-sort-by-recipient)
  (defalias 'gnus-article-sort-by-recipient
    'rs-gnus-article-sort-by-recipient))
--8<---------------cut here---------------end--------------->8---

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