Re: follow-up & CC

[Sam Steingold <sds@gnu.org>]

> * Reiner Steib <4.hpr.03.e.f@aheshrefcnz.qr> [2003-11-10 13:30:04 +0100]:
>
> On Mon, Nov 10 2003, Sam Steingold wrote:
>
>> When I do "F" in a gmane newsgroup for which I set a to-address
>> parameter, I get a message buffer addressed to the mailing list address
>> (to-address).  If I want to CC to the author of the article to which I
>> am following up, I have to manually copy his address and do C-c c.
>> Is there a better way?
>
> What comes quite close to your wish is to use `F', followed by `C-c
> C-t' (message-insert-to).
>
> ,----[ C-h f message-insert-to RET ]
> | message-insert-to is an interactive compiled Lisp function in `message'.
> | (message-insert-to &optional FORCE)
> | 
> | Insert a To header that points to the author of the article being replied to.
> | If the original author requested not to be sent mail, the function signals
> | an error.
> | With the prefix argument FORCE, insert the header anyway.
> `----

Thanks!
I would like to add this function to `message-setup-hook', but it
signals an error for people who do not want copies.
Wouldn't it be better to use this instead?

2003-11-10  Sam Steingold  <sds@gnu.org>

	* message.el (message-insert-to): Do not signal an error when the
	user requested no CC; can be added to `message-setup-hook' now.



(defun message-insert-to (&optional force)
  "Insert a To header that points to the author of the article being replied to.
If the original author requested not to be sent mail, the function signals
an error.
With the prefix argument FORCE, insert the header anyway."
  (interactive "P")
  (let* ((co (message-fetch-reply-field "mail-copies-to"))
         (dont (and co (or (equal (downcase co) "never")
                           (equal (downcase co) "nobody")))))
    (when dont
      (if force
        (warn "Ignoring the user request not to have copies sent via mail")
        (warn "Complying with the user request not to have copies sent via mail")))
    (when (or force (not dont))
      (message-carefully-insert-headers
       (list (cons 'To
                   (or (message-fetch-reply-field "mail-reply-to")
                       (message-fetch-reply-field "reply-to")
                       (message-fetch-reply-field "from")
                       "")))))))

Thanks.


-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
Man has 2 states: hungry/angry and sate/sleepy.  Catch him in transition.