Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-445

Creator:  Magnus Henoch <mange@freemail.hu>

Keybinding for jabber-connect

Patch by Evgenii Terechkov

jabber-core.el

@@ -124,16 +124,16 @@ problems."
   "Return non-nil if SASL functions are available."
   (featurep 'sasl))
 
-(defun jabber-connect-all ()
+(defun jabber-connect-all (&optional arg)
   "Connect to all configured Jabber accounts.
 See `jabber-account-list'.
 If no accounts are configured, call `jabber-connect' interactively."
-  (interactive)
+  (interactive "P")
   (let ((accounts
 	 (remove-if (lambda (account)
 		      (cdr (assq :disabled (cdr account))))
 		    jabber-account-list)))
-    (if (null accounts)
+    (if (or (null accounts) arg)
 	(call-interactively 'jabber-connect)
       ;; Only connect those accounts that are not yet connected.
       (let ((already-connected (mapcar #'jabber-connection-bare-jid jabber-connections))

jabber.texi

@@ -12,7 +12,7 @@
 @copying
 This manual is for jabber.el, version 0.8.
 
-Copyright @copyright{} 2004, 2005, 2006, 2007 Magnus Henoch, Tom Berger.
+Copyright @copyright{} 2004, 2005, 2006, 2007, 2008 Magnus Henoch, Tom Berger.
 
 @quotation
 Permission is granted to make and distribute verbatim copies or
@@ -137,7 +137,7 @@ buffer for jabber.el. One variable to customize are
 @code{jabber-account-list}. It sets accounts, that jabber.el knows about. See
 comments for this variable to learn how to set it up. Save your
 changes, and type @kbd{M-x jabber-connect-all} or @kbd{C-x C-j C-c} to
-connect. Use @kbd{M-x jabber-connect} to connect just one account.
+connect. Use @kbd{M-x jabber-connect} to connect just one account (or just type @kbd{C-u C-x C-j C-c}).
 
 If you do not yet have a Jabber account, you can register one.  Enter
 your desired username and the server you wish