Quoth Slackrat <[EMAIL PROTECTED]>:
> and it produces this
>
> * "William Witteman" <[EMAIL PROTECTED]> a écrit profondement:
>
> But I would like it to omit the email address
> <[EMAIL PROTECTED]> 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
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
