* riece-server.el (riece-close-server-process): Run

riece-after-close-hook.

* riece-log.el (riece-log-insert): Bind file-name-coding-system
and default-file-name-coding-system to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc806e1..a9f70b8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2005-02-02  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-server.el (riece-close-server-process): Run
+       riece-after-close-hook.
+
+       * riece-log.el (riece-log-insert): Bind file-name-coding-system
+       and default-file-name-coding-system to nil.
+
 2005-02-01  OHASHI Akira  <bg66@koka-in.org>
 
        * riece-eval.el: New add-on.

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index d57a9dc..c768464 100644 (file)
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -171,12 +171,16 @@ If integer, flash back only this line numbers. t means all lines."
   "Insert logs for IDENTITY at most LINES.
 If LINES is t, insert today's logs entirely."
   (if (eq lines t)
-      (let ((file (riece-log-get-file identity)))
+      (let* (file-name-coding-system
+            default-file-name-coding-system
+            (file (riece-log-get-file identity)))
        (if (file-exists-p file)
            (insert-file-contents file)))
-    (let ((files (riece-log-get-files identity))
-         (lines (- lines))
-         name date point)
+    (let* (file-name-coding-system
+          default-file-name-coding-system
+          (files (riece-log-get-files identity))
+          (lines (- lines))
+          name date point)
       (while (and (< lines 0) files)
        (if (and (file-exists-p (car files))
                 (string-match (concat (riece-make-interval-regexp "[0-9]" 8)

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 04ab199..34c6e3d 100644 (file)
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -266,6 +266,7 @@ the `riece-server-keyword-map' variable."
     (erase-buffer)))
 
 (defun riece-close-server-process (process)
+  (run-hooks 'riece-after-close-hook)
   (kill-buffer (process-buffer process))
   (setq riece-server-process-alist
        (delq (rassq process riece-server-process-alist)