[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: hiding some of address
From: |
Sebastian Tennant |
Subject: |
Re: hiding some of address |
Date: |
Thu, 01 Nov 2007 01:25:26 +0200 |
User-agent: |
Gnus/5.110007 (No Gnus v0.7) Emacs/22.1 (gnu/linux) |
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