[Bug-gnu-emacs] Re: another rmail suggestion

[Eric Ludlam]

>>> phr-2000@nightsong.com seems to think that:
>    Info: (emacs)Rmail Reply   reads:
>
>       You can exclude certain recipients from being placed automatically in
>    the `CC', using the variable `rmail-dont-reply-to-names'.  Its value
>    should be a regular expression (as a string); any recipient that the
>    regular expression matches, is excluded from the `CC' field.  The
>    default value matches your own name, and any name starting with
>    `info-'.  (Those names are excluded because there is a convention of
>    using them for large mailing lists to broadcast announcements.)
>
>Rmail should either optionally or by default, omit from the cc field
>any address that's already in the to: field.  A friend of mine always
>cc's her outgoing messages to herself, so email I get from her looks like:
>
>   From: xyz
>   To: phr
>   Cc: xyz
>   ...
>
>When I use "reply" in rmail, the reply by default looks like:
>
>  To: xyz
>  Cc: xyz
>
>and then she gets two copies of the reply sent to her unless I edit the 
>cc field or remember to use "1 r" instead of "r".

I use this to handle my CCs.  It forces me to make a decision, but at
least I don't accidentally send email to people who don't want it.

Enjoy
Eric

-------
(defun search-and-destroy-CC ()
  "Search a mail buffer of CCs, and optionally remove them."
  (save-excursion
    (goto-char (point-min))
    (if (re-search-forward "^CC:" nil t)
        (if (y-or-n-p "Reply to everyone in CC list?")
            (message "Okie Dokie!")
          (delete-region (save-excursion
                           (beginning-of-line)
                           (point))
                         (save-excursion
                           (re-search-forward "^[-a-zA-Z]+:" nil t)
                           (beginning-of-line)
                           (point)))))))

(add-hook 'mail-setup-hook 'search-and-destroy-CC)


-- 
[====]___||.   Eric Ludlam          "The X Guy"    The MathWorks   x 7556
  |[]|     |=  eludlam@mathworks.com  (work)      http://www.mathworks.com
 _|__|=====+   zappo@ultranet.com     (home)   http://www.ultranet.com/~zappo
   O-O-O[ ]\\  Trevor Shea Ludlam     (son)    Oct 16th 1999; 5lbs, 11oz, 18in