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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4b72dc126f950826c418ac2cc2acacb1c1b2424..ac62970ebfb878636f5c3693c39f20b3faf3c67b 100644 (file)
--- 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 74c07f19602d2f7f7bb5e777c42084fbe2de041f..8854633d58f96cc877ed495efb94ae77985c339e 100644 (file)
--- 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