Re: gnus 5.9 & msb-mode; display of options

[sivaramn@sunguru.com (Sivaram Neelakantan)]

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