Teemu Likonen (2008-11-25 10:02 +0200) wrote: > anhnmncb (2008-11-25 15:38 +0800) wrote: > >> "John Beckett" writes: >>> While I am in mother-mode, what do people think about quoting email >>> addresses? > >> Don't blame me, that's my mail client setting(emacs' gnus), and I have >> no time to see how to configure it ... > > If you want just an attribution like "[person] wrote:" where [person] is > the user name (or if it isn't defined then her email address) then add > to following lines to your Gnus' init file (.gnus.el): > > > (setq message-citation-line-function 'my-message-insert-citation-line) > > (defun my-message-insert-citation-line () > "Insert citation line (attribution) to message. > This function inserts attribution line to the beginning of quoted > message." > (when message-reply-headers > (let* ((fullname (cdr (mail-header-parse-address > (mail-header-from message-reply-headers)))) > (address (car (mail-header-parse-address > (mail-header-from message-reply-headers)))) > (name (cond (fullname) (address) (t "Anonymous")))) > (insert (format "%s wrote:" name)) > (newline 2)))) > > > You can evaluate the code for your current Emacs session with "M-x > eval-region" when the code is inside a region. > > Here's the code I use; it insert also international date string: > > > (setq message-citation-line-function 'my-message-insert-citation-line) > > (defun my-message-insert-citation-line () > "Insert citation line (attribution) to message. > This function inserts attribution line to the beginning of quoted > message." > (when message-reply-headers > (let* ((fullname (cdr (mail-header-parse-address > (mail-header-from message-reply-headers)))) > (address (car (mail-header-parse-address > (mail-header-from message-reply-headers)))) > (name (cond (fullname) (address) (t "Anonymous"))) > (citation-date-list (parse-time-string > (mail-header-date message-reply-headers))) > (year (nth 5 citation-date-list)) > (month (nth 4 citation-date-list)) > (day (nth 3 citation-date-list)) > (hour (nth 2 citation-date-list)) > (min (nth 1 citation-date-list)) > (timezone-min-total (/ (nth 8 citation-date-list) 60)) > (timezone-hour (/ timezone-min-total 60)) > (timezone-min (% (abs timezone-min-total) 60)) > (timezone (format "%+2.2d%2.2d" > timezone-hour timezone-min))) > (insert (format "%s (%4.4d-%2.2d-%2.2d %2.2d:%2.2d %s) wrote:" > name year month day hour min timezone)) > (newline 2))))
Thank you, I'm testing :) > > --~--~---------~--~----~------------~-------~--~----~ You received this message from the "vim_use" maillist. For more information, visit http://www.vim.org/maillist.php -~----------~----~----~----~------~----~------~--~---
