* gnus-draft.el (gnus-draft-send): If interactive, use its default

	value of message-syntax-checks.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3f5577..ef41710 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-03-05  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-draft.el (gnus-draft-send): If interactive, use its default
+       value of message-syntax-checks.
+
        * qp.el (quoted-printable-decode-region): Doc addition.
        From: Eli Zaretskii <eliz@is.elta.co.il>
 

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 9b18989..887e12d 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -131,7 +131,7 @@
 
 (defun gnus-draft-send (article &optional group interactive)
   "Send message ARTICLE."
-  (let ((message-syntax-checks (if interactive nil
+  (let ((message-syntax-checks (if interactive message-syntax-checks
                                 'dont-check-for-anything-just-trust-me))
        (message-inhibit-body-encoding (or (not group)
                                           (equal group "nndraft:queue")