emacs-jabber jabber-roster.el,1.45,1.46

[Magnus H. <leg...@us...>]

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv4229

Modified Files:
	jabber-roster.el 
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-355
Creator:  Magnus Henoch <ma...@fr...>

Add key binding for toggling offline contacts in roster

Patch from Detlev Zundel.


Index: jabber-roster.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-roster.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- jabber-roster.el	15 Apr 2007 23:53:24 -0000	1.45
+++ jabber-roster.el	7 May 2007 02:04:43 -0000	1.46
@@ -196,6 +196,7 @@
     (define-key map "a" 'jabber-send-presence)
     (define-key map "g" 'jabber-display-roster)
     (define-key map "S" 'jabber-ft-send)
+    (define-key map "o" 'jabber-roster-toggle-offline-display)
     ;;(define-key map "D" 'jabber-disconnect)
     map))
 
@@ -284,6 +285,13 @@
 				     (get buddy 'connected)))
 		 buddies))
 
+(defun jabber-roster-toggle-offline-display ()
+  "Toggle display of offline contacts."
+  (interactive)
+  (setq jabber-show-offline-contacts
+	(not jabber-show-offline-contacts))
+  (jabber-display-roster))
+
 (defun jabber-display-roster ()
   "switch to the main jabber buffer and refresh the roster display to reflect the current information"
   (interactive)
@@ -305,7 +313,7 @@
 q        Bury buffer             i        Get disco items
 I        Get disco info          b        Browse
 j        Join groupchat (MUC)    v        Get client version
-a        Send presence
+a        Send presence           o        Show offline contacts on/off
 C-c C-c  Chat menu               C-c C-m  Multi-User Chat menu
 C-c C-i  Info menu               C-c C-r  Roster menu
 C-c C-s  Service menu