From: Sebastian Tennant <sebyte@smolny.plus.com>
To: info-gnus-english@gnu.org
Subject: Re: hiding some of address
Date: Thu, 01 Nov 2007 01:25:26 +0200 [thread overview]
Message-ID: <87r6jaeujd.fsf@moley.moleskin.org> (raw)
In-Reply-To: <87fxzr8agm.fsf@azurservers.com>
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
next prev parent reply other threads:[~2007-10-31 23:25 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-10-31 17:23 Slackrat
2007-10-31 22:08 ` Reiner Steib
2007-10-31 23:35 ` Sebastian Tennant
2007-11-01 8:36 ` Reiner Steib
2007-11-01 10:52 ` Sebastian Tennant
2007-10-31 23:25 ` Sebastian Tennant [this message]
[not found] ` <mailman.2820.1193873148.18990.info-gnus-english@gnu.org>
2007-11-01 7:09 ` Slackrat
2007-11-01 10:45 ` Sebastian Tennant
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87r6jaeujd.fsf@moley.moleskin.org \
--to=sebyte@smolny.plus.com \
--cc=info-gnus-english@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).