From ca3e2841f3d87a42df4c3b91bcb16a658727ac95 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Mon, 2 Jun 2003 18:20:54 +0000 Subject: [PATCH] Update modeline. --- lisp/riece-300.el | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) 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 -- 2.25.1