Re: Always copying a mailing list

[Reiner Steib <4.uce.03.r.s@nurfuerspam.de>]

On Mon, Aug 02 2004, Kai Grossjohann wrote:

> I can set mail-self-blind to get "Bcc: kais.address" in outgoing
> messages.  But I have a special group where I'd rather like to have
> "Cc: some.mailinglist".
>
> I've tried to frob the posting style for the group, saying (("Gcc" .
> nil) ("Cc" . "some.mailinglist")).  But this does not work as I like,
> because it also removes other recipients that I would like to keep.
>
> The behavior I'm looking for is: After I've hit R or F (or S W or S
> V), add the following address to the list of recipients if not yet
> present.
>
> How to do that?

(defun rs-message-replace-header (header new-value)
  "Remove HEADER and insert the NEW-VALUE."
  ;; Similar to `nnheader-replace-header' but for message buffers.
  (save-excursion
    (save-restriction
      (message-narrow-to-headers)
      (message-remove-header header))
    (message-position-on-field header)
    (insert new-value)))

(defun kai-message-add-cc (cc)
  "Insert an additional address in Cc field."
  (interactive "MAddress: \n")
  (save-excursion
    (let ((occ (message-fetch-field "Cc")))
      (rs-message-replace-header
       "Cc" (concat occ (when (and occ cc) ", ") cc)))))

Wrapping this function in a suitable message hook and taking the
address from posting styles is left as an exercise to the reader.
(You may also find `message-carefully-insert-headers' and
`message-header-synonyms' useful.)

BTW, I wonder if there is no builtin function for...

,----
| (defun rs-message-replace-header (header new-value)
|   "Remove HEADER and insert the NEW-VALUE."
|   ;; Similar to `nnheader-replace-header' but for message buffers.
`----

Should we add this as `message-replace-header' in `message.el'?

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/