* riece-ruby.el (riece-ruby-run-exit-handler): Call riece-ruby-clear if

[riece] / lisp / riece-ruby.el

diff --git a/lisp/riece-ruby.el b/lisp/riece-ruby.el
index 80036f6..fe5c6f1 100644 (file)
--- a/lisp/riece-ruby.el
+++ b/lisp/riece-ruby.el
@@ -218,7 +218,8 @@ Use `riece-ruby-set-property' to set this variable.")
        (progn
          (setq riece-ruby-exit-handler-alist
                (delq entry riece-ruby-exit-handler-alist))
-         (funcall (cdr entry) (car entry))))))
+         (funcall (cdr entry) (car entry))
+         (riece-ruby-clear name)))))
 
 (defun riece-ruby-sentinel (process status)
   (kill-buffer (process-buffer process)))
@@ -338,8 +339,7 @@ Use `riece-ruby-set-property' to set this variable.")
      (riece-make-message (riece-current-nickname)
                         (riece-ruby-property name 'riece-ruby-target)
                         data
-                        'notice))
-    (riece-ruby-clear name)))
+                        'notice))))
 
 (defun riece-ruby-display-message-function (message)
   (if (and riece-ruby-enabled