From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/1874
Path: news.gmane.org!not-for-mail
From: sivaramn@sunguru.com (Sivaram Neelakantan)
Newsgroups: gmane.emacs.gnus.user
Subject: Re: gnus 5.9 & msb-mode; display of options
Date: 13 Jan 2003 20:58:45 -0800
Organization: http://groups.google.com/
Message-ID: <a7043d61.0301132058.57eaf265@posting.google.com>
References: <a7043d61.0301072352.5f57fba7@posting.google.com> <m3lm1s99i2.fsf@quimbies.gnus.org> <87fzs0deac.fsf@enberg.org> <m31y3k7r7q.fsf@quimbies.gnus.org> <v9of6ox0fi.fsf@marauder.physik.uni-ulm.de> <a7043d61.0301130000.6f34db01@posting.google.com> <v9y95ps8as.fsf@marauder.physik.uni-ulm.de>
NNTP-Posting-Host: main.gmane.org
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: sea.gmane.org 1138668509 13024 80.91.229.2 (31 Jan 2006 00:48:29 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:48:29 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:29:50 2006
Original-Path: quimby.gnus.org!newsfeed1.e.nsc.no!nsc.no!nextra.com!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed.stanford.edu!postnews1.google.com!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
Original-NNTP-Posting-Host: 203.145.186.2
Original-X-Trace: posting.google.com 1042520325 22536 127.0.0.1 (14 Jan 2003 04:58:45 GMT)
Original-X-Complaints-To: groups-abuse@google.com
Original-NNTP-Posting-Date: 14 Jan 2003 04:58:45 GMT
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:2014
Original-Lines: 30
X-Gnus-Article-Number: 2014   Tue Jan 17 17:29:50 2006
Xref: news.gmane.org gmane.emacs.gnus.user:1874
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/1874>

Reiner Steib <4uce.02.r.steib@gmx.net> wrote in message 
[...]
> To follow Lars' suggestion, you could use a function like this and add
> it to `message-sent-hook':
> 
> --8<---------------cut here---------------start------------->8---
> (defun rs-message-rename-buffer ()
>   (interactive)
>   "Rename message buffer."
>   ;; most code borrowed from `message-rename-buffer':
>   (let* ((mail-to (or
> 		   (if (message-news-p) (message-fetch-field "Newsgroups")
> 		     (message-fetch-field "To"))
> 		   ""))
> 	 (mail-trimmed-to
> 	  (if (string-match "," mail-to)
> 	      (concat (substring mail-to 0 (match-beginning 0)) ", ...")
> 	    mail-to))
> 	 (name-default (concat "*message* " mail-trimmed-to)))
>     (rename-buffer (concat " " ;; add " " to make buffer invisible
> 			   name-default) t)))
> (add-hook 'message-sent-hook 'rs-message-rename-buffer)
> --8<---------------cut here---------------end--------------->8---
> 
> Bye, Reiner.

Yes, that worked.  Thanks for showing me how.

regards,
Sivaram