From 1710ee48e99c2ab55e75004ec17e93815329b03c Mon Sep 17 00:00:00 2001 From: Magnus Henoch Date: Sun, 9 Sep 2007 14:06:11 +0000 Subject: Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-408 Creator: Magnus Henoch Obey jabber-chatstates-requested (Still need to set it to nil somewhere) --- jabber-chatstates.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'jabber-chatstates.el') diff --git a/jabber-chatstates.el b/jabber-chatstates.el index 6bcaba1..6893124 100644 --- a/jabber-chatstates.el +++ b/jabber-chatstates.el @@ -54,7 +54,8 @@ (defun jabber-chatstates-when-sending (text id) (jabber-chatstates-update-message) (jabber-chatstates-stop-timer) - `((active ((xmlns . ,jabber-chatstates-xmlns))))) + (when jabber-chatstates-requested + `((active ((xmlns . ,jabber-chatstates-xmlns)))))) ;;; OUTGOING ;;; Code for handling requests for chat state notifications and providing @@ -91,7 +92,7 @@ It can be sent and cancelled several times.") (defun jabber-chatstates-send-paused () "Send an 'paused state notification." - (when jabber-chatting-with + (when (and jabber-chatstates-requested jabber-chatting-with) (setq jabber-chatstates-composing-sent nil) (jabber-send-sexp jabber-buffer-connection @@ -104,6 +105,7 @@ It can be sent and cancelled several times.") (state (if composing-now 'composing 'active))) (when (and jabber-chatstates-confirm jabber-chatting-with + jabber-chatstates-requested (not (eq composing-now jabber-chatstates-composing-sent))) (jabber-send-sexp jabber-buffer-connection -- cgit v1.2.3