# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 974035403 0
# Node ID 62b21497a99fddb9cb6753e00aa8de94bd785645
# Parent  ee7981d56c0600ae96fb57b84041435440d46ce0
(flyspell-mode-on): Only output welcome message if interactive.

diff -r ee7981d56c06 -r 62b21497a99f lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Sun Nov 12 00:57:50 2000 +0000
+++ b/lisp/textmodes/flyspell.el	Sun Nov 12 13:23:23 2000 +0000
@@ -529,7 +529,7 @@
 	 (set-keymap-parent map (current-local-map))
 	 map))
   ;; the welcome message
-  (if flyspell-issue-welcome-flag
+  (if (and flyspell-issue-welcome-flag (interactive-p))
       (let ((binding (where-is-internal 'flyspell-auto-correct-word
 					nil 'non-ascii)))
 	(message