07/06/28 23:22:30 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*)