Re: "widening" a reply

[Matt McClure <matthew.mcclure.es.99@aya.yale.edu>]

On Fri Dec 03 1999, 03:10, Hrvoje Niksic <hniksic@iskon.hr> wrote:

> > A sort of `message-insert-wide-to'?  Sure; sounds good to me.
> 
> Will you be adding it?  I have no idea where to start.

Here's a quick and dirty version that widens the reply.  I patched
together code from message-reply and from message-insert-to.  It could
probably be a lot cleaner, but at least it works (or seems to so far
anyway).

   (defun message-insert-wide-to ()
     "Insert a Cc header which includes all recipients of the original article."
     (interactive)
     (let (to cc follow-to)
       (if (message-functionp message-wide-reply-to-function)
           (setq follow-to
                 (funcall message-wide-reply-to-function)))

       (setq to (message-fetch-reply-field "to")
             cc (message-fetch-reply-field "cc"))

       (unless follow-to
         (let (ccalist)
           (save-excursion
             (message-set-work-buffer)
             (insert (if to (concat (if (bolp) "" ", ") to "") ""))
             (insert (if cc (concat (if (bolp) "" ", ") cc) ""))
             (goto-char (point-min))
             (while (re-search-forward "[ \t]+" nil t)
               (replace-match " " t t))
             ;; Remove addresses that match `rmail-dont-reply-to-names'.
             (let ((rmail-dont-reply-to-names message-dont-reply-to-names))
               (insert (prog1 (rmail-dont-reply-to (buffer-string))
                         (erase-buffer))))
             (goto-char (point-min))
             (setq ccalist
                   (mapcar
                    (lambda (addr)
                      (cons (mail-strip-quoted-names addr) addr))
                    (message-tokenize-header (buffer-string))))
             (let ((s ccalist))
               (while s
                 (setq ccalist (delq (assoc (car (pop s)) s) ccalist)))))
           (setq follow-to nil)
           (when ccalist
             (let ((ccs (cons 'Cc (mapconcat
                                   (lambda (addr) (cdr addr)) ccalist ", "))))
               (when (string-match "^ +" (cdr ccs))
                 (setcdr ccs (substring (cdr ccs) (match-end 0))))
               (push ccs follow-to)))))

       (setq follow-to (cdar follow-to))

       (when (and (message-goto-cc)
                  follow-to
                  (not (string-match "\\` *\\'" follow-to)))
         (insert ", "))
       (insert follow-to)))

-- 
Matt
http://www.faradic.net/~mmcclure/