* riece-message.el (riece-display-message-1): Emit

'riece-buffer-toggle-freeze signal.

* riece-commands.el (riece-command-toggle-freeze): Emit
'riece-buffer-toggle-freeze signal; don't update status indicators
manually.
(riece-command-toggle-own-freeze): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a092dc1..9c77a75 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,13 @@
 2004-02-27  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-message.el (riece-display-message-1): Emit
+       'riece-buffer-toggle-freeze signal.
+
+       * riece-commands.el (riece-command-toggle-freeze): Emit
+       'riece-buffer-toggle-freeze signal; don't update status indicators
+       manually.
+       (riece-command-toggle-own-freeze): Ditto.
+       
        * riece-naming.el (riece-naming-assert-join): Rename signal 'join
        -> 'riece-naming-assert-join.
        (riece-naming-assert-part): Rename signal 'part ->

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 3b3561d..e5081dc 100644 (file)
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -558,9 +558,9 @@ If prefix argument ARG is non-nil, toggle frozen status."
                         riece-dialogue-buffer)
     (setq riece-freeze (if arg
                           (< 0 (prefix-numeric-value arg))
-                        (not riece-freeze))))
-  (riece-update-status-indicators)
-  (force-mode-line-update t))
+                        (not riece-freeze)))
+    (riece-emit-signal (riece-make-signal 'riece-buffer-toggle-freeze
+                                         (current-buffer) riece-freeze))))
 
 (defun riece-command-toggle-own-freeze (&optional arg)
   "Prevent automatic scrolling of the dialogue window.
@@ -576,8 +576,8 @@ If prefix argument ARG is non-nil, toggle frozen status."
          (not (eq riece-freeze 'own)))
        (setq riece-freeze 'own)
       (setq riece-freeze nil)))
-  (riece-update-status-indicators)
-  (force-mode-line-update t))
+  (riece-emit-signal (riece-make-signal 'riece-buffer-toggle-freeze
+                                       (current-buffer) riece-freeze)))
 
 (eval-when-compile
   (autoload 'riece-exit "riece"))

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 91afbaa..6b15a21 100644 (file)
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -192,7 +192,7 @@ are the data of the signal."
      (riece-update-status-indicators)
      (force-mode-line-update t))
    (lambda (signal)
-     (riece-identity-equal (nth 1 (riece-signal-args signal))
+     (riece-identity-equal (car (riece-signal-args signal))
                           (riece-current-nickname))))
   (riece-connect-signal
    'riece-user-toggle-operator
@@ -200,7 +200,7 @@ are the data of the signal."
      (riece-update-status-indicators)
      (force-mode-line-update t))
    (lambda (signal)
-     (riece-identity-equal (nth 1 (riece-signal-args signal))
+     (riece-identity-equal (car (riece-signal-args signal))
                           (riece-current-nickname))))
   (riece-connect-signal
    'riece-channel-set-topic

diff --git a/lisp/riece-message.el b/lisp/riece-message.el
index 4105e77..ead3ca7 100644 (file)
--- a/lisp/riece-message.el
+++ b/lisp/riece-message.el
@@ -159,7 +159,8 @@ Normally they are *Dialogue* and/or *Others*."
               (riece-own-frozen buffer))
       (with-current-buffer buffer
        (setq riece-freeze nil))
-      (riece-update-status-indicators))
+      (riece-emit-signal (riece-make-signal 'riece-buffer-toggle-freeze
+                                           buffer nil)))
     (setq parent-buffers (riece-message-parent-buffers message buffer))
     (riece-insert buffer
                  (concat open-bracket name close-bracket