■掲示板に戻る■
1-
101-
201-
301-
401-
501-
601-
701-
801-
901-
1001-
最新50
レス数が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 "こんばんは")))))))
次100
最新50
read.cgi ver5.26+ (01/10/21-)