jabber-silent-mode variable added. Setting it no non-nil suppress some

routine questions from jabber.el. Really danger (or less-frequently
used) operations left intact.

jabber-activity.el

@@ -320,8 +320,8 @@ when there are unread messages which otherwise would be lost, if
 `jabber-activity-query-unread' is t"
   (if (and jabber-activity-jids
 	   jabber-activity-query-unread)
-      (yes-or-no-p
-       "You have unread Jabber messages, are you sure you want to quit?")
+      (or jabber-silent-mode (yes-or-no-p
+       "You have unread Jabber messages, are you sure you want to quit?"))
     t))
 
 ;;; Interactive functions

jabber-core.el

@@ -229,7 +229,7 @@ With double prefix argument, specify more connection details."
 			      (cons (symbol-name (car type)) nil))
 			    jabber-connect-methods)
 		    nil t nil 'jabber-connection-type-history default)))))
-	 (setq registerp (yes-or-no-p "Register new account? ")))
+	 (setq registerp (or jabber-silent-mode (yes-or-no-p "Register new account? "))))
        (when (equal current-prefix-arg '(4))
 	 (setq registerp t))
 

jabber-presence.el

@@ -516,7 +516,7 @@ Signal an error if there is no JID at point."
 					 'jabber-jid))
 	(account (get-text-property (point) 'jabber-account)))
     (if (and jid-at-point account
-	     (yes-or-no-p (format "Really delete %s from roster? " jid-at-point)))
+	     (or jabber-silent-mode (yes-or-no-p (format "Really delete %s from roster? " jid-at-point))))
 	(jabber-roster-delete account jid-at-point)
       (error "No contact at point"))))
 

jabber-register.el

@@ -131,7 +131,7 @@ CLOSURE-DATA is either 'success or 'error."
 (defun jabber-remove-register (&rest ignore)
   "Cancel registration.  See `jabber-process-register-or-search'."
 
-  (if (yes-or-no-p (concat "Are you sure that you want to cancel your registration to " jabber-submit-to "? "))
+  (if (or jabber-silent-mode (yes-or-no-p (concat "Are you sure that you want to cancel your registration to " jabber-submit-to "? ")))
       (jabber-send-iq jabber-buffer-connection jabber-submit-to
 		      "set"
 		      '(query ((xmlns . "jabber:iq:register"))

jabber.el

@@ -208,6 +208,11 @@ Contents of process buffers might be useful for debugging."
   :type 'boolean
   :group 'jabber-debug)
 
+(defcustom jabber-silent-mode nil
+  "Silent mode switch. Not ask confirmanions for some operations. DANGEROUS!"
+  :type 'boolean
+  :group 'jabber)
+
 ;;;###autoload
 (defconst jabber-presence-faces
  '(("" . jabber-roster-user-online)