(flyspell-mode-on): Only output welcome message if interactive.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4b72dc126f..ac62970ebfb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-12  Miles Bader  <miles@gnu.org>
+
+        * textmodes/flyspell.el (flyspell-mode-on): Only output welcome
+        message if interactive.
+
 2000-11-12  Dave Love  <fx@gnu.org>
 
         * mail/feedmail.el: Fix header,
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 74c07f19602..8854633d58f 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -529,7 +529,7 @@ flyspell-buffer checks the whole buffer."
          (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