--- /usr/share/emacs/site-lisp/gnus/rfc2047.el	Thu Mar 15 17:57:24 2001
+++ rfc2047.el	Thu Apr 19 18:20:12 2001
@@ -161,14 +161,9 @@
 	      (and (delq 'ascii
 			 (mm-find-charset-region (point-min)
 						 (point-max)))
-		   (if (or (message-options-get
+		   (if (message-options-get
 			    'rfc2047-encode-message-header-encode-any)
-			   (message-options-set
-			    'rfc2047-encode-message-header-encode-any
-			    (y-or-n-p
-			     "Some texts are not encoded. Encode anyway?")))
-		       (rfc2047-encode-region (point-min) (point-max))
-		     (error "Cannot send unencoded text."))))
+		       (rfc2047-encode-region (point-min) (point-max)))))
 	     ((mm-coding-system-p method)
 	      (if (and (featurep 'mule)
 		       (if (boundp 'default-enable-multibyte-characters)