From: ueno <ueno>
Date: Tue, 14 Oct 2003 22:42:48 +0000 (+0000)
Subject: * riece-commands.el (riece-command-toggle-away): Check user away
X-Git-Tag: riece-0_1_4~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=98fd02d3c92c88e06c529ec233ce435a615b0c7f;p=elisp%2Friece.git

* riece-commands.el (riece-command-toggle-away): Check user away
status in the server buffer.
[cf. <Liece:00119>]
---

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  <ueno@unixuser.org>
+
+	* riece-commands.el (riece-command-toggle-away): Check user away
+	status in the server buffer.
+	[cf. <Liece:00119>]
+
 2003-10-14  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* 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: ")))