(ido-mode): Switch off the message if called non-interactively.

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2011-08-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* ido.el (ido-mode): Switch off the message if called
+	non-interactively.
+
 	* mail/smtpmail.el (smtpmail-query-smtp-server): Try port 25
 	before 587, since it appears that that's more likely to work for
 	more people.

lisp/ido.el

@@ -1557,7 +1557,8 @@ This function also adds a hook to the minibuffer."
 	(setq ido-minor-mode-map-entry (cons 'ido-mode map))
 	(add-to-list 'minor-mode-map-alist ido-minor-mode-map-entry))))
 
-  (message "Ido mode %s" (if ido-mode "enabled" "disabled")))
+  (when (called-interactively-p 'any)
+    (message "Ido mode %s" (if ido-mode "enabled" "disabled"))))
 
 
 ;;; IDO KEYMAP