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