# HG changeset patch
# User Deniz Dogan <deniz.a.m.dogan@gmail.com>
# Date 1295713298 -3600
# Node ID f792eb37d0ca546eabbda957c719469835b99ac9
# Parent  555faf6e40d0a0a00f6de59c80c1d087d823ad98
* net/rcirc.el (rcirc-kill-buffer-hook): Flush logs.

diff -r 555faf6e40d0 -r f792eb37d0ca lisp/net/rcirc.el
--- a/lisp/net/rcirc.el	Sat Jan 22 12:34:50 2011 +0000
+++ b/lisp/net/rcirc.el	Sat Jan 22 17:21:38 2011 +0100
@@ -1029,6 +1029,9 @@
 (defun rcirc-kill-buffer-hook ()
   "Part the channel when killing an rcirc buffer."
   (when (eq major-mode 'rcirc-mode)
+    (when (and rcirc-log-flag
+               rcirc-log-directory)
+      (rcirc-log-write))
     (rcirc-clean-up-buffer "Killed buffer")))
 
 (defun rcirc-change-major-mode-hook ()