🚀 go-pugleaf

The ellipsis in the buffer and frame name is a subtle reminder that the
message you're composing is addressed to multiple recipients.  So it
should consider the BCC header as well as To and CC.  Here's a patch:

*** vm-reply.el.orig	Mon Aug 18 20:17:52 2003
--- vm-reply.el	Thu Nov 18 15:24:48 2004
***************
*** 1521,1526 ****
--- 1521,1527 ----
   					  (buffer-name))))
         (let ((to (mail-fetch-field "To"))
               (cc (mail-fetch-field "Cc"))
+             (bcc (mail-fetch-field "Bcc"))
   	    (curbufname (buffer-name))
   	    (deactivate-mark)
   	    fmt newbufname
***************
*** 1528,1538 ****
   	(cond (vm-reply-list (setq fmt "reply to %s%s"))
   	      (t (setq fmt "mail to %s%s")))
           (setq to (vm-parse-addresses to)
!               cc (vm-parse-addresses cc))
!         (if (or (cdr to)
!                 (and (car to) (car cc)))
               (setq ellipsis ", ..."))
!         (setq newbufname (or (car to) (car cc) "foo (?)")
                 newbufname (funcall vm-chop-full-name-function newbufname)
                 newbufname (or (car newbufname) (car (cdr newbufname)))
                 newbufname (format fmt newbufname ellipsis))
--- 1529,1541 ----
   	(cond (vm-reply-list (setq fmt "reply to %s%s"))
   	      (t (setq fmt "mail to %s%s")))
           (setq to (vm-parse-addresses to)
!               cc (vm-parse-addresses cc)
!               bcc (vm-parse-addresses bcc))
!         (if (or (cdr to) (cdr cc) (cdr bcc)
!                 ;; each newly allocated list has at most 1 element:
!                 (> (length (nconc to cc bcc)) 1))
               (setq ellipsis ", ..."))
!         (setq newbufname (or (car to) (car cc) (car bcc) "foo (?)")
                 newbufname (funcall vm-chop-full-name-function newbufname)
                 newbufname (or (car newbufname) (car (cdr newbufname)))
                 newbufname (format fmt newbufname ellipsis))

-- 
Kevin Rodgers