Re: hiding some of address

[Slackrat]

* Sebastian Tennant ***@smolny.plus.com> a écrit profondement:
|
| 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.

Thanks, it works great - mostly

But try replying to the following message which has 2 * "@" in it

R   [11-01 00:25]   ["Mark Atwood    ] Problem with nnmail-split-methods

and which has this from line 

From:  "Mark Atwood <me@mark.atwood.name>" <fallenpegasus@gmail.com>

and you get 

* "Mark Atwood ***@mark.atwood.name>" <fallenpegasus@gmail.com> a écrit 
profondement:


-- 
SlackRat - 4Q to Reply