emacs-jabber jabber-roster.el,1.58,1.59 jabber.texi,1.142,1.143

[Kirill A. K. <ca...@us...>]

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv25784

Modified Files:
	jabber-roster.el jabber.texi 
Log Message:
Implement jabber-roster-show-title + update docs


Index: jabber.texi
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber.texi,v
retrieving revision 1.142
retrieving revision 1.143
diff -u -d -r1.142 -r1.143
--- jabber.texi	4 Feb 2009 00:02:18 -0000	1.142
+++ jabber.texi	16 Feb 2009 16:29:18 -0000	1.143
@@ -1718,6 +1718,11 @@
 Status string specified by contact
 @end table
 
+@code{jabber-roster-show-title} controls whether to show a "Jabber
+roster" string at the top of the roster buffer.  You need to run
+@kbd{M-x jabber-display-roster} after changing this variable to update
+the display.
+
 @code{%u} is replaced by one of the strings given by
 `jabber-roster-subscription-display'.
 

Index: jabber-roster.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-roster.el,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -d -r1.58 -r1.59
--- jabber-roster.el	6 Oct 2008 11:14:29 -0000	1.58
+++ jabber-roster.el	16 Feb 2009 16:29:18 -0000	1.59
@@ -139,6 +139,11 @@
   :type 'boolean
   :group 'jabber-roster)
 
+(defcustom jabber-roster-show-title t
+  "Show title in roster buffer?"
+  :type 'boolean
+  :group 'jabber-roster)
+
 (defcustom jabber-roster-mode-hook nil
   "Hook run when entering Roster mode."
   :group 'jabber-roster
@@ -336,7 +341,8 @@
 	  (current-column (current-column)))
       (erase-buffer)
       (setq jabber-roster-ewoc nil)
-      (insert (jabber-propertize "Jabber roster" 'face 'jabber-title-large) "\n")
+      (when jabber-roster-show-title
+	(insert (jabber-propertize "Jabber roster" 'face 'jabber-title-large) "\n"))
       (when jabber-roster-show-bindings
 	(insert "RET      Open chat buffer        C-k      Delete roster item
 e        Edit item               s        Send subscription request