[mew-dist 21588] Re: add no Messege-ID: by Mew

[Shun-ichi GOTO]

>>>>> at Mon, 02 Sep 2002 14:07:58 +0900 (JST)
>>>>> Kazumasa Utashiro <utashiro at example.com> said,> 
> 
> 第一希望
> 	メール作成時の timezone で Date フィールドを生成する

毎回システムに問い合わせるというのもありますが、手っ取り早い対処として、
Emacs の上で環境変数TZ を変更することで実現できるかと思いますので、たま
に手動で変えるだけでよいなら以下のようなものなどを使って切替えるとかどう
でしょうか。

(defun change-TZ ()
  (interactive)
  (let ((tz (read-string (format "Enter new timeizone (now %s): " 
				 (getenv "TZ")))))
    (if (not (string-match "^[A-Z]+[-+][0-9]+$" tz))
	(error "Invalid timezone format")
      (setenv "TZ" tz)
      (message "Timezone is changed to %s" tz))))

;; (string-match ...)の部分はテキトーです


--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN