[Mew-dist 14548] Re: change summary date to JST

[Ninomiya Hideyuki]

こんばんは	二宮@お四国 です

# 自分は書かないなどと言ってたくせに書いちゃいました ^^;
# 書いたといってもフルスクラッチじゃなくて、オリジナルを
# ちょこっと変えただけですがっ

te-kun <j-kiss at example.com> は Sat, 14 Oct 2000 02:19:31 +0900 頃に
    Subject:    [Mew-dist 14540] Re: change summary date to JST
    Message-Id: <20001014.021713.104026328.j-kiss at example.com>
        に於いて以下のようにおっしゃっていました。
※都合により手を加えさせていただく事が有ります。御了承下さいマセヽ...
弓岡> こんにちは 弓岡です。
弓岡> 
弓岡> From: Ninomiya Hideyuki <nin at example.com>
弓岡> Subject: [Mew-dist 14536] Re: change summary date to JST
弓岡> Date: Sat, 14 Oct 2000 00:42:17 +0900
弓岡> 
弓岡> nin> これだけじゃあれなんで、、mew-func.el の該当部分を使い
弓岡> nin> やすいように書き換えてみました。
弓岡> 
弓岡> 詳しくおしえていただいて、ありがとうございます。
弓岡> 参考にさせていただきます。

先の patch を当てた b70 で以下の scan 関数を使ってみてください。
多分目的たっせると思います。
# ちゃんと表示できる事は一応確認、time zone 合わせちゃんと出来てるかは
# 未確認....

(defvar mew-adjustdate-time-zone 0)
(defun mew-scan-form-adjustdate ()
  "A function to return a time-zone adustmented date, MM/DD."
  (let* ((s (MEW-DATE))
	 (l (mew-time-rfc-to-list s mew-adjustdate-time-zone)))
    (if (or (string= s "")
	    (not (string-match mew-time-rfc-regex s)))
	(progn
	  (setq s (mew-time-ctz-to-rfc
		   (mew-file-get-time (mew-expand-folder (MEW-FLD) (MEW-NUM)))))
	  (setq l (mew-time-rfc-to-list s mew-adjustdate-time-zone))))
    (if l
	(format "%02d/%02d" (mew-time-list-mon l) (mew-time-list-day l))
      "")))

使用法
  (setq mew-adjustdate-time-zone 9) とかする。
  scan form の date を adjustdate に変更する。
---
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html