hiding some of address

[Slackrat]

I have this in my .gnus file

;; Change Citation Line
(defun my-insert-citation-line ()
;"Function that inserts a simple citation line."
(when message-reply-headers
(insert "* " (mail-header-from message-reply-headers) " a écrit 
profondement:\n|\n")))
(setq message-citation-line-function 'my-insert-citation-line)
(setq message-yank-prefix "| ")
(setq message-yank-cited-prefix "| ")

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.

Thanks in advance

-- 
SlackRat - 4Q to Reply