* Sebastian Tennant [EMAIL PROTECTED]> a écrit profondement: | | 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.
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 <[EMAIL PROTECTED]>" <[EMAIL PROTECTED]> and you get * "Mark Atwood [EMAIL PROTECTED]>" <[EMAIL PROTECTED]> a écrit profondement: -- SlackRat - 4Q to Reply _______________________________________________ info-gnus-english mailing list [email protected] http://lists.gnu.org/mailman/listinfo/info-gnus-english
