From 4e9dfb1cadde1025b97c51b66d855f4687888a92 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Tue, 14 Oct 2003 22:42:48 +0000 Subject: [PATCH] * riece-commands.el (riece-command-toggle-away): Check user away status in the server buffer. [cf. ] --- lisp/ChangeLog | 6 ++++++ lisp/riece-commands.el | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 83d15a5..41325fb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2003-10-14 Daiki Ueno + + * riece-commands.el (riece-command-toggle-away): Check user away + status in the server buffer. + [cf. ] + 2003-10-14 TAKAHASHI Kaoru * riece.el (riece-dialogue-mode-map): Bind "N" instead of "\C-n" diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el index bdfcc68..1b05486 100644 --- a/lisp/riece-commands.el +++ b/lisp/riece-commands.el @@ -534,7 +534,10 @@ the layout to the selected layout-name." (defun riece-command-toggle-away (&optional message) "Mark yourself as being away." (interactive - (if (and (not (riece-user-get-away (riece-current-nickname))) + (if (and (not (riece-with-server-buffer (riece-identity-server + (riece-current-nickname)) + (riece-user-get-away (riece-identity-prefix + (riece-current-nickname))))) (or (null riece-away-message) current-prefix-arg)) (let ((message (read-string "Away message: "))) -- 2.25.1