(defun irchat-Command-mifukun-remove ()
(interactive)
(save-excursion
(let (end (end-of-line))
(beginning-of-line)
(if (not (re-search-forward "うい \\([0-9][0-9]*\\) で登録:" end t nil))
(progn
(beep)
(message "みふくんが「うい 数字 登録:」の行でやってください"))
(irchat-Command-send-message
(format "みふくん %s 削除" (match-string 1)))))))
