Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!usc!cs.utexas.edu!uunet!mcvax!hp4nl!mhres!jv
From: jv@mh.nl (Johan Vromans)
Newsgroups: gnu.emacs
Subject: Re: Displaying recipient in summary and grouping by recipients in VM
Message-ID: <JV.89Aug21093540@mhres.mh.nl>
Date: 21 Aug 89 15:35:40 GMT
References: <8908210034.AA01934@sprite.crd.Ge.Com>
Sender: jv@mhres.mh.nl
Distribution: gnu
Organization: Multihouse Gouda, the Netherlands
Lines: 40
In-reply-to: montnaro@sprite.crd.ge.com's message of 21 Aug 89 00:34:56 GMT

In article <8908210034.AA01934@sprite.crd.Ge.Com> montnaro@sprite.crd.ge.com (Skip Montanaro) writes:

   I FCC all my mail, and occasionally need to browse that file, either to
   delete unwanted messages, or to resend a message. VM allows the user to
   group by a number of attributes, but not (any of) the receipient(s).
	...

Remarkable how people tend to have the same ideas...

I use a slightly different approach. I also have a
'vm-su-do-recipient' function (very much alike), but I have only
hacked 'vm-su-full-name' to return "To <recipient>" if the message was
sent by me. So in all mailboxes I can save both directions of a
communication, and in all summaries mail originated by me show the
recipient instead of my name.

I have not studied Skip's 'vm-su-do-recipient' function thouroughly,
but I think it will work together with my 'vm-su-full-name':

(defun vm-su-full-name (m)
  (let (sl fl)
    (setq fl
	  (or (vm-full-name-of m)
	      (progn (vm-su-do-author m) (vm-full-name-of m))))
    (if (and (or
	      (equal fl (user-login-name))
	      (equal fl (user-full-name)))
	     (setq sl (vm-su-do-recipient m)))
	(concat "To " sl)
      fl)))


Have fun!

	Johan
--
Johan Vromans				       jv@mh.nl via internet backbones
Multihouse Automatisering bv		       uucp: ..!{mcvax,hp4nl}!mh.nl!jv
Doesburgweg 7, 2803 PL Gouda, The Netherlands  phone/fax: +31 1820 62944/62500
------------------------ "Arms are made for hugging" -------------------------