emacs-jabber jabber-roster.el,1.52,1.53

[Evgenii T. <evg...@us...>]

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

Modified Files:
	jabber-roster.el 
Log Message:
jabber-roster-sort-by-group defined to allow roster sorting by group


Index: jabber-roster.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-roster.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -d -r1.52 -r1.53
--- jabber-roster.el	21 Aug 2007 23:27:53 -0000	1.52
+++ jabber-roster.el	29 Apr 2008 12:59:17 -0000	1.53
@@ -269,6 +269,16 @@
      ((string= a-name b-name) 0)
      (t 1))))
 
+(defun jabber-roster-sort-by-group (a b)
+  "Sort roster items by group membership."
+  (flet ((first-group (item) (or (car (get item 'groups)) "")))
+    (let ((a-group (first-group a))
+	  (b-group (first-group b)))
+      (cond
+       ((string-lessp a-group b-group) -1)
+       ((string= a-group b-group) 0)
+       (t 1)))))
+
 (defun jabber-fix-status (status)
   "Make status strings more readable"
   (when status