hiding some of address

hiding some of address

[Slackrat]

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

Re: hiding some of address

[Reiner Steib]

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/

Re: hiding some of address

[Sebastian Tennant]

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

Re: hiding some of address

[Sebastian Tennant]

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

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

Re: hiding some of address

[Reiner Steib]

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/

Re: hiding some of address

[Sebastian Tennant]

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

Re: hiding some of address

[Sebastian Tennant]

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