emacs-jabber jabber-menu.el,1.7,1.8

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

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

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

Use bound-and-true-p for jabber-connections in menu predicate


Index: jabber-menu.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-menu.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- jabber-menu.el	23 Oct 2008 01:23:20 -0000	1.7
+++ jabber-menu.el	23 Oct 2008 01:23:29 -0000	1.8
@@ -19,6 +19,9 @@
 ;; along with this program; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
+(require 'jabber-util)
+(require 'jabber-autoloads)
+
 (defvar jabber-menu (make-sparse-keymap "jabber-menu"))
 
 (defcustom jabber-display-menu 'maybe
@@ -45,7 +48,8 @@
   (list 'menu-item "Jabber" jabber-menu
 	:visible '(or (eq jabber-display-menu t)
 		      (and (eq jabber-display-menu 'maybe)
-			   (or jabber-account-list jabber-connections)))))
+			   (or jabber-account-list
+			       (bound-and-true-p jabber-connections))))))
 
 (define-key jabber-menu
   [jabber-menu-connect]