irchat-Command-mifukun-remove

(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)))))))