X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece-ctcp.el;fp=lisp%2Friece-ctcp.el;h=9bb7de3caf9305456a05358a51ea650993649da0;hb=1862e5558b8b7b2b909f7b2d4787b9c0f0b9f687;hp=d7ffe6b7f0f05c7be14e5e62611a5cd8122fe4f3;hpb=953b56a014d618e194b33c18fe445dc83e7be715;p=riece

diff --git a/lisp/riece-ctcp.el b/lisp/riece-ctcp.el
index d7ffe6b..9bb7de3 100644
--- a/lisp/riece-ctcp.el
+++ b/lisp/riece-ctcp.el
@@ -77,8 +77,9 @@
 			(run-hook-with-args-until-success
 			 hook prefix (car targets) message))
 		(if function
-		    (riece-ignore-errors (symbol-name function)
-		      (funcall function prefix (car targets) message)))
+		    (riece--funcall-ignore-errors (symbol-name function)
+						  function prefix (car targets)
+						  message))
 		(riece-ignore-errors (symbol-name after-hook)
 		  (run-hook-with-args-until-success
 		   after-hook prefix (car targets) message))))
@@ -222,8 +223,9 @@
 			(run-hook-with-args-until-success
 			 hook prefix (car targets) message))
 		(if function
-		    (riece-ignore-errors (symbol-name function)
-		      (funcall function prefix (car targets) message)))
+		    (riece-funcall-ignore-errors
+		     (symbol-name function)
+		     function prefix (car targets) message))
 		(riece-ignore-errors (symbol-name after-hook)
 		  (run-hook-with-args-until-success
 		   after-hook prefix (car targets) message))))