レス数が1000を超えています。残念ながら全部は表示しません。

Mew

63 ：名無しさん＠お腹いっぱい。 ：01/09/11 13:06

>>61

こんなんでどうよ。

わしは Mew使ってないので動作確認はしてまへん。

(add-hook 'mew-draft-mode-newdraft-hook
(lambda ()
(save-excursion
(goto-char (point-max))
(insert (let* ((curtime (current-time-string))
(hour (and (string-match
"\\([0-9][0-9]\\):[0-9][0-9]:[0-9][0-9]"
curtime)
(string-to-number
(substring curtime
(match-beginning 1)
(match-end 1))))))
(cond ((and (>= hour 4)
(< hour 10)) "おはようございます")
((and (>= hour 10)
(< hour 18)) "こんにちは")
(t "こんばんは")))))))

read.cgi ver5.26+ (01/10/21-)