From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/1534
Path: news.gmane.org!not-for-mail
From: Jesper Harder <harder@myrealbox.com>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: sort by receiver
Date: Thu, 28 Nov 2002 03:11:12 +0100
Organization: http://purl.org/harder/
Message-ID: <m3fztml9z3.fsf@defun.localdomain>
References: <m3wun7c4kd.fsf@zeus.ece.cmu.edu>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138668280 11651 80.91.229.2 (31 Jan 2006 00:44:40 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:44:40 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:29:18 2006
Original-Path: quimby.gnus.org!localhost.localdomain!nobody
Original-Newsgroups: gnu.emacs.gnus
Original-NNTP-Posting-Host: 0xc3f98226.esnxr3.ras.tele.dk
Original-X-Trace: quimby.gnus.org 1038450126 17987 195.249.130.38 (28 Nov 2002 02:22:06 GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: 28 Nov 2002 02:22:06 GMT
X-Face: ^RrvqCr7c,P$zTR:QED"@h9+BTm-"fjZJJ-3=OU7.)i/K]<.J88}s>'Z_$r;<N5ksn~%wJ@2pjF}="tV;FBsdpFarSWA<oYkZsViGf:F^SD-KXhvFxh;~]?)SWm~+u};0=x}<vOm&5J+?]yB2d]q4x8\0g7SX
Mail-Copies-To: never
User-Agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.2
 (i386-redhat-linux-gnu)
Cancel-Lock: sha1:eohEanyxmHcbp1VryVdRNwL1WNw=
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:1674
Original-Lines: 50
X-Gnus-Article-Number: 1674   Tue Jan 17 17:29:18 2006
Xref: news.gmane.org gmane.emacs.gnus.user:1534
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/1534>

Zero Void <hujingcao@hotmail.com> writes:

> Is there a way to sort the emails according to receiver? 

Nope, no pre-defined way.

> This will help me a lot when I want to check out an email in my
> "sent-mail" folder.

Yes, that would be nice.  Here's some code to do it.  

It binds `gnus-summary-sort-by-recipient' to `C-c C-s C-t'.  To use it
you also need to include "To" and "Newsgroups" in overview as described
in <info://gnus/To+From+Newsgroups>.


(defun gnus-thread-sort-by-recipient (h1 h2)
  "Sort threads by root recipient."
  (gnus-article-sort-by-recipient
   (gnus-thread-header h1)  (gnus-thread-header h2)))

(defun gnus-article-sort-by-recipient (h1 h2)
  "Sort articles by root recipient."
  (let* ((extra1 (mail-header-extra h1))
	 (extra2 (mail-header-extra h2))
	 (group1 (cdr (assq 'Newsgroups extra1)))
	 (group2 (cdr (assq 'Newsgroups extra2)))
	 (name1 (cdr (assq 'To extra1)))
	 (name2 (cdr (assq 'To extra2))))
    (string-lessp
     (or group1
	 (and name1
	      (gnus-summary-extract-address-component
	       (funcall gnus-decode-encoded-word-function name1)))
	 "")
     (or group2
	 (and name2
	      (gnus-summary-extract-address-component
		    (funcall gnus-decode-encoded-word-function name2)))
	 ""))))

(defun 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))

(define-key gnus-summary-mode-map "\C-c\C-s\C-t" 
  'gnus-summary-sort-by-recipient)