X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-mini.el;h=3d714d8e38be38464f0b2130377df3985c7b91c6;hp=df08384fb4d57dc38c3e540016840aa6ec41442d;hb=536e383fc9aa7ea3249c734cda5359184262672c;hpb=26067c8bc103b0afc65fa5359127186c1be1fa84

diff --git a/lisp/riece-mini.el b/lisp/riece-mini.el
index df08384..3d714d8 100644
--- a/lisp/riece-mini.el
+++ b/lisp/riece-mini.el
@@ -150,6 +150,11 @@ If twice (C-u C-u), then ask the channel."
 	    'riece-mini-display-message-function)
   (add-hook 'pre-command-hook 'riece-mini-pre-command))
 
+(defun riece-mini-uninstall ()
+  (remove-hook 'riece-after-display-message-functions
+	       'riece-mini-display-message-function)
+  (remove-hook 'pre-command-hook 'riece-mini-pre-command))
+
 (defun riece-mini-enable ()
   (setq riece-mini-enabled t))