- 670 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/06/28(木) 23:22:30 ID:gQbBflRB0]
- こんなもんだろうか
(defun my-form-post (&optional noquestion)
(interactive)
(if (> (- (get-universal-time)
(parse-header-date *latest-post-time*))
30)
(form-post noquestion)
(message-box "まだ30秒経ってない")))
(substitute-key-definition 'form-post 'my-form-post *form-map*)
