[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: sb-tcup.el



From: TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> さん曰く
Subject: [emacs-w3m:01675] Re: sb-tcup.el
Message-ID: <20011011085802B.1000@pine.kuee.kyoto-u.ac.jp>
Date: Thu, 11 Oct 2001 08:58:01 +0900

中> -	(setq date (format-time-string "%d %b %Y %T %z" stime))
中> +	(let ((system-time-locale "C"))
中> +	  (setq date (format-time-string "%d %b %Y %T %z" stime)))

土> つまり Emacs21 の format-time-string() は locale に応じた値を返すので
土> すね。勉強になりました。

土> ただし、書式指定子の %z が Mule2.3 と XEmacs21.4 では使えないようです
土> から、ここは format-time-string() の代わりに shimbun-make-date-string()
土> を使うように変更するべきかもしれません。または、w3m-om.el / w3m-xmas.el
土> で format-time-string() に defadvice するか。どちらが良いでしょうね。

例えば、Mew では同等のことをこうやっています。

(defsubst mew-time-tmzn-int ()
  (let ((tz (car (current-time-zone))))
    (if (< tz 0)
	(format "-%02d%02d" (/ (- tz) 3600) (/ (% (- tz) 3600) 60))
      (format "+%02d%02d" (/ tz 3600) (/ (% tz 3600) 60)))))

(defsubst mew-time-ctz-to-rfc (time)
  (let ((system-time-locale "C")
	(tmzn-int (mew-time-tmzn-int)))
    ;; XEmacs doesn't have %z
    (format (format-time-string "%a, %d %b %Y %T %%s (%Z)" time) tmzn-int)))

これなら、たしか Mule 2.3 でも動いたと思いました。

# Emacs19.28 + APEL では問題ないです。

-- 
白井秀行 (mailto:shirai@rdmg.mgcs.mei.co.jp)