Re: time format on message citation line

["Zhao\, Gang" <gamerh2o@gmail.com>]

Hi,
On Thu, 2014-04-03 at 14:18:17 +0900, Katsumi Yamaoka wrote:
> On Wed, 2014-04-02 at 12:00:19 +0800, Zhao, Gang wrote:
>> I use a custom message citation line which includes the time when the
>> author post his mail. I want the time showed in message citation
>> line be the original author's timezone, not mine.
>
>> For example, if the author's timezone is +0200, the citation line's time
>> will show in that timezone. In my current setting the time is always
>> displayed as my own timezone, i.e., +0800.
>
>> My message-citation-line-format setting is "On %a, %Y-%m-%d at %T %z, %N wrote:"
>
>> Please add me to CC, not subscribed.
>
> A hack is below.  Since manipulating timezone is not so easy,
> probably we will have to do it in a similar way if we add this
> feature to the Gnus code.

This really works, as showed in above citation line :) Thanks for your help.

>
> (defadvice message-insert-formatted-citation-line
>     (around use-original-timezone (&optional from date) activate)
>   "Use the original author's timezone in the citation line."
>   (if (and message-reply-headers
> 	   (not date)
> 	   (string-match "%z" message-citation-line-format))
>       (let* ((st (match-beginning 0))
> 	     (nd (match-end 0))
> 	     (message-citation-line-format message-citation-line-format)
> 	     (sent (mail-header-date message-reply-headers))
> 	     (time (progn
> 		     (require 'gnus-util)
> 		     (gnus-date-get-time sent)))
> 	     (tz (nth 8 (parse-time-string sent)))
> 	     (lsd (- (cadr time) (car (current-time-zone)) (- tz)))
> 	     (msd (car time)))
> 	(cond ((< lsd 0)
> 	       (setq msd (1- msd)
> 		     lsd (+ lsd 65536)))
> 	      ((>= lsd 65536)
> 	       (setq msd (1+ msd)
> 		     lsd (- lsd 65536))))
> 	(setq message-citation-line-format
> 	      (concat (substring message-citation-line-format 0 st)
> 		      (format "%s%02d00"
> 			      (if (>= tz 0) "+" "-")
> 			      (abs (/ tz 3600)))
> 		      (substring message-citation-line-format nd)))
> 	(setq date (list msd lsd))
> 	ad-do-it)
>     ad-do-it))