* hiding some of address @ 2007-10-31 17:23 Slackrat 2007-10-31 22:08 ` Reiner Steib ` (2 more replies) 0 siblings, 3 replies; 8+ messages in thread From: Slackrat @ 2007-10-31 17:23 UTC (permalink / raw) To: info-gnus-english 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 ^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: hiding some of address 2007-10-31 17:23 hiding some of address Slackrat @ 2007-10-31 22:08 ` Reiner Steib 2007-10-31 23:35 ` Sebastian Tennant 2007-10-31 23:25 ` Sebastian Tennant [not found] ` <mailman.2820.1193873148.18990.info-gnus-english@gnu.org> 2 siblings, 1 reply; 8+ messages in thread From: Reiner Steib @ 2007-10-31 22:08 UTC (permalink / raw) To: info-gnus-english On Wed, Oct 31 2007, Slackrat wrote: > ;; 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) (car (mail-extract-address-components (mail-header-from message-reply-headers))) > * "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. The development version of Gnus has customizable citation line: ,----[ <f1> v message-citation-line-format RET ] | message-citation-line-format is a variable defined in `message'. | Its value is | "On %a, %b %d %Y, %N wrote:\n" | | Documentation: | Format of the "Whomever writes:" line. | | The string is formatted using `format-spec'. The following | constructs are replaced: | | %f The full From, e.g. "John Doe <john.doe@example.invalid>". | %n The mail address, e.g. "john.doe@example.invalid". | %N The real name if present, e.g.: "John Doe", else fall | back to the mail address. | %F The first name if present, e.g.: "John". | %L The last name if present, e.g.: "Doe". | | All other format specifiers are passed to `format-time-string' | which is called using the date from the article your replying to. | Extracting the first (%F) and last name (%L) is done | heuristically, so you should always check it yourself. | | Please also read the note in the documentation of | `message-citation-line-function'. | | You can customize this variable. `---- Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/ ^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: hiding some of address 2007-10-31 22:08 ` Reiner Steib @ 2007-10-31 23:35 ` Sebastian Tennant 2007-11-01 8:36 ` Reiner Steib 0 siblings, 1 reply; 8+ messages in thread From: Sebastian Tennant @ 2007-10-31 23:35 UTC (permalink / raw) To: info-gnus-english Quoth Reiner Steib <reinersteib+gmane@imap.cc>: > On Wed, Oct 31 2007, Slackrat wrote: > >> ;; 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) > > (car (mail-extract-address-components > (mail-header-from message-reply-headers))) Hmm... I thought to myself "I bet there are some existing gnus routines that do this" while I was writing my hack. >> * "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. > > The development version of Gnus has customizable citation line: > > [...] Even better. At least I've provided him with a drop-in replacement for his existing customisation, that will work for the time being :-/ Sebastian ^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: hiding some of address 2007-10-31 23:35 ` Sebastian Tennant @ 2007-11-01 8:36 ` Reiner Steib 2007-11-01 10:52 ` Sebastian Tennant 0 siblings, 1 reply; 8+ messages in thread From: Reiner Steib @ 2007-11-01 8:36 UTC (permalink / raw) To: info-gnus-english On Thu, Nov 01 2007, Sebastian Tennant wrote: > Quoth Reiner Steib <reinersteib+gmane@imap.cc>: >> (car (mail-extract-address-components >> (mail-header-from message-reply-headers))) > > Hmm... I thought to myself "I bet there are some existing gnus routines > that do this" while I was writing my hack. [...] > (i (or (string-match " [<[(]?[A-z0-9_-.]+@" unobscured) -1)) That's too simple. See e.g. the `+' in my address. There's a reason that `mail-extract-address-components' has ~750 lines of code. ;-) And it isn't even complete, IIRC. Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/ ^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: hiding some of address 2007-11-01 8:36 ` Reiner Steib @ 2007-11-01 10:52 ` Sebastian Tennant 0 siblings, 0 replies; 8+ messages in thread From: Sebastian Tennant @ 2007-11-01 10:52 UTC (permalink / raw) To: info-gnus-english Quoth Reiner Steib <reinersteib+gmane@imap.cc>: > On Thu, Nov 01 2007, Sebastian Tennant wrote: > >> Quoth Reiner Steib <reinersteib+gmane@imap.cc>: >>> (car (mail-extract-address-components >>> (mail-header-from message-reply-headers))) >> >> Hmm... I thought to myself "I bet there are some existing gnus routines >> that do this" while I was writing my hack. > [...] >> (i (or (string-match " [<[(]?[A-z0-9_-.]+@" unobscured) -1)) > > That's too simple. See e.g. the `+' in my address. There's a reason > that `mail-extract-address-components' has ~750 lines of code. ;-) > And it isn't even complete, IIRC. Absolutely. I couldn't agree more. I wasn't aware of mail-extract-address-components until now. Sebastian ^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: hiding some of address 2007-10-31 17:23 hiding some of address Slackrat 2007-10-31 22:08 ` Reiner Steib @ 2007-10-31 23:25 ` Sebastian Tennant [not found] ` <mailman.2820.1193873148.18990.info-gnus-english@gnu.org> 2 siblings, 0 replies; 8+ messages in thread From: Sebastian Tennant @ 2007-10-31 23:25 UTC (permalink / raw) To: info-gnus-english 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 ^ permalink raw reply [flat|nested] 8+ messages in thread
[parent not found: <mailman.2820.1193873148.18990.info-gnus-english@gnu.org>]
* Re: hiding some of address [not found] ` <mailman.2820.1193873148.18990.info-gnus-english@gnu.org> @ 2007-11-01 7:09 ` Slackrat 2007-11-01 10:45 ` Sebastian Tennant 0 siblings, 1 reply; 8+ messages in thread From: Slackrat @ 2007-11-01 7:09 UTC (permalink / raw) To: info-gnus-english * 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 ^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: hiding some of address 2007-11-01 7:09 ` Slackrat @ 2007-11-01 10:45 ` Sebastian Tennant 0 siblings, 0 replies; 8+ messages in thread From: Sebastian Tennant @ 2007-11-01 10:45 UTC (permalink / raw) To: info-gnus-english Quoth Slackrat <gnus4Q@azurservers.com>: > "Mark Atwood <me@mark.atwood.name>" <fallenpegasus@gmail.com> > > and you get > > * "Mark Atwood ***@mark.atwood.name>" <fallenpegasus@gmail.com> a écrit profondement: It's a quick hack that obscures the local part of the first email address found on the line. Parsing a 'from' header for multiple email addresses and obscuring the local part of all of them is quite a lot harder and I'm afraid I don't have the time right now... but perhaps someone else does... Reiner's suggestion that the function 'mail-extract-address-components' be used is no doubt the best way to proceed. Sebastian ^ permalink raw reply [flat|nested] 8+ messages in thread
end of thread, other threads:[~2007-11-01 10:52 UTC | newest] Thread overview: 8+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- 2007-10-31 17:23 hiding some of address 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 [not found] ` <mailman.2820.1193873148.18990.info-gnus-english@gnu.org> 2007-11-01 7:09 ` Slackrat 2007-11-01 10:45 ` Sebastian Tennant
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).