[mew-dist 24926] Re: trace path

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 24913] trace path
Message-ID: <20040520.130419.266260241.kazu at example.com>
Date: Thu, 20 May 2004 13:04:19 +0900 (JST)

> さぁ、cvs update して、";" を押してみよう。

これ、current の time-zone を使って補正をして欲しいな。

(defun mew-summary-trace-path (&optional arg)
  "Parse the Received: fields and display them in Message mode.
If called with '\\[universal-argument]',  ...."
  (interactive "P")
....
     (setq lst (nreverse lst))
     (mew-elet
      (insert (format "Timezone as %s.\n"
		      (if arg "GMT" (nth 1 (current-time-zone))))))
     (while lst
....
       (setq date (mew-time-rfc-to-sortkey date (not arg)))
....



(defsubst mew-time-rfc-to-sortkey (s &optional tzadj)
  (if (string-match mew-time-rfc-regex s)
....
	  (setq sec (- sec tmzn))
	  (when tzadj
	    (setq sec (+ sec (car (current-time-zone)))))
	  (mew-time-ctz-to-sortkey (encode-time sec min hour day mon year))))))

な感じです。

-- 
白井秀行 (mailto:shirai at example.com)