From: ueno <ueno>
Date: Mon, 2 Jun 2003 18:20:54 +0000 (+0000)
Subject: Update modeline.
X-Git-Tag: strict-naming-branchpoint~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a467c6f1af3ced3932e1691ebd6868de30341c6b;p=elisp%2Friece.git

Update modeline.
---

diff --git a/lisp/riece-300.el b/lisp/riece-300.el
index 839d7b9..5846267 100644
--- a/lisp/riece-300.el
+++ b/lisp/riece-300.el
@@ -65,7 +65,9 @@
 			   "away"
 			 "not away")))
 	      "\n"))))
-      (setq replies (cdr replies)))))
+      (setq replies (cdr replies)))
+  (riece-update-status-indicators)
+  (force-mode-line-update t)))
 
 (defun riece-handle-303-message (prefix number name string)
   (riece-insert-info
@@ -86,13 +88,19 @@
        (concat
 	(riece-concat-server-name
 	 (format "%s is away: %s" user message))
-	"\n")))))
+	"\n")))
+  (riece-update-status-indicators)
+  (force-mode-line-update t)))
 
 (defun riece-handle-305-message (prefix number name string)
-  (riece-user-toggle-away riece-real-nickname nil))
+  (riece-user-toggle-away riece-real-nickname nil)
+  (riece-update-status-indicators)
+  (force-mode-line-update t))
 
 (defun riece-handle-306-message (prefix number name string)
-  (riece-user-toggle-away riece-real-nickname t))
+  (riece-user-toggle-away riece-real-nickname t)
+  (riece-update-status-indicators)
+  (force-mode-line-update t))
 
 (defun riece-handle-311-message (prefix number name string)
   (if (string-match