Re: hiding some of address

[Sebastian Tennant]

Quoth Slackrat <gnus4Q@azurservers.com>:
> and it produces this
>
> * "William Witteman" <william.ohiggins@utoronto.ca> a écrit  profondement:
>
> But I would like it to omit the email address
> <william.ohiggins@utoronto.ca> entirely or alternatively insert say
> three asterisks before the "@" in the email address as I have seen
> others do.

This will obscure the local part with three asterixes in most cases.

 (defun my-insert-citation-line ()
   (when message-reply-headers
     (let* ((unobscured (mail-header-from message-reply-headers))
            (i (or (string-match " [<[(]?[A-z0-9_-.]+@" unobscured) -1))
            (j (string-match "@" unobscured))
            (obscured (concat (substring unobscured 0 (+ i 1))
                              "***"
                              (substring unobscured j))))
       (insert "* " obscured " a écrit profondement:\n|\n"))))

 ;;; these are not part of the function definite above
 (setq message-citation-line-function 'my-insert-citation-line)
 (setq message-yank-prefix "| ")
 (setq message-yank-cited-prefix "| ")

Hope it helps.  I haven't tested it extensively.

Sebastian