[Mew-dist 12104] Re: メール送信時の Date Field について

[Kenji Sato ( 佐藤健司 )]

佐藤@KDD America です。

小沼雅樹様、吉藤英明＠東北大学情報科学様、ありがとうございました。

From: Masaki KONUMA <konuma at example.com>
Subject: [Mew-dist 12092] Re: メール送信時の Date Field について
Date: Fri, 21 Jan 2000 09:09:40 +0900 wrote: 

> これで直ると思います。b18 に対するパッチです。

これで直りました。

From: Hideaki YOSHIFUJI (吉藤英明) <yoshfuji at example.com>
Subject: [Mew-dist 12095] Re: メール送信時の Date Field について
Date: Fri, 21 Jan 2000 13:59:50 +0900 wrote: 

> 吉藤英明＠東北大学情報科学です。
> 
> これだと30分単位の時差がおかしくなりますから、
> 
>        (setq tz-num (if (< tz-num 0) 
>              (format "-%02d%02d" (/ (- tz-num) 3600) (/ (% (- tz-num) 3600) 60))
>              (format "+%02d%02d" (/    tz-num  3600) (/ (%    tz-num  3600) 60))
> 	))
> 
> でしょう。

こちらでも当方では、問題なく動作することを確認しました。

とりあえず、mew-encode.el のオリジナルに対する、上記をマージした diff
を作成しましたので、添付させて頂きます。

ありがとうございました。

-------------- next part --------------
--- mew-encode.el.org	Tue Dec 28 03:00:37 1999
+++ mew-encode.el	Fri Jan 21 10:20:30 2000
@@ -154,11 +154,11 @@
 	 (tz-num (nth 0 tz-num-sym))
 	 (tz-sym (nth 1 tz-num-sym))
 	 (date (format-time-string "%a, %d %b %Y %T" time)))
-    (setq tz-num (/ (abs tz-num) 3600))
     ;; We can't use %z for current-time-zone in the old Emacses.
-    (setq tz-num (if (< tz-num 0) 
-		     (format "-%02d00" tz-num)
-		   (format "+%02d00" tz-num)))
+    (setq tz-num (if (< tz-num 0)
+                     (format "-%02d%02d" (/ (- tz-num) 3600) (/ (% (- tz-num) 3600) 60))
+		   (format "+%02d%02d" (/    tz-num  3600) (/ (%    tz-num  3600) 60))
+		   ))
     (format "%s %s (%s)" date tz-num tz-sym)))
 
 (defun mew-encode-fields ()