Re: follow-up & CC

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

On Wed, Nov 12 2003, Sam Steingold wrote:

> +(defvar message-header-synonyms
> +  '((To Cc Bcc))
> +  "List of lists of header synonyms.
> +E.g., if this list contains a member list with elements `Cc' and `To',
> +then `message-carefully-insert-headers' will not insert a `To' header
> +when the message is already `Cc'ed to the recipient.")
> +
>  (defun message-carefully-insert-headers (headers)
> +  "Insert the headers, an alist, into the message buffer.
> +Does not insert the headers when they are already present there
> +or in the synonym headers, defined by `message-header-synonyms'."
[...]

Committed, thanks.

> +              when (and old-header (string-match new-header old-header))

Hm, another problem here.  Say, I have "To: bar@foo.invalid.my.domain"
in the current message.  Then, the following examples wont work as
expected:

- (message-carefully-insert-headers '((To . "bar@foo.invalid")))

- (message-carefully-insert-headers '((To . "ar@foo.invalid.my.domain")))

- (setq case-fold-search nil)
  (message-carefully-insert-headers '((To . "bar@FOO.INVALID.my.domain")))

Maybe it would be better to use something like (gnus-string-equal (nth
1 (mail-extract-address-components ...))).

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