Re: follow-up & CC

[Sam Steingold <sds@gnu.org>]

> * Reiner Steib <4.hpr.03.e.f@aheshrefcnz.qr> [2003-11-10 19:54:29 +0100]:
>
> I changed the doc-string to reflect the new behavior (any suggestions
> for better wording?):
>
> ,----[ C-h f message-insert-to RET ]
> | 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, don't insert it.  With
> | the prefix argument FORCE, insert the header anyway.
> `----

Another suggested change: when there is no reasonable reply-to address,
`message-insert-to' will insert an empty "To: " field (like C-c C-f C-t
`message-goto-to' does), which is undesirable when `message-insert-to'
is run from `message-setup-hook'.

Maybe the following is even better?

(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"))))
         (to (or (message-fetch-reply-field "mail-reply-to")
                 (message-fetch-reply-field "reply-to")
                 (message-fetch-reply-field "from"))))
    (when (and dont to)
      (message
       (if force
         "Ignoring the user request not to have copies sent via mail"
         "Complying with the user request not to have copies sent via mail")))
    (when (and force (not to))
      (error "no mail address in the article"))
    (when (and to (or force (not dont)))
      (message-carefully-insert-headers (list (cons 'To to))))))


-- 
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>
Only adults have difficulty with child-proof caps.