# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 978981935 0
# Node ID 40698b92a36a5052f87208fa886306e3021a4425
# Parent  0153adccc03d266b332a25e97767d8237c1cda34
(mml-parse-1): Frob mml-confirmation-set when proceeding
after warnings.  Amend multipart warning message.

diff -r 0153adccc03d -r 40698b92a36a lisp/gnus/mml.el
--- a/lisp/gnus/mml.el	Mon Jan 08 19:12:12 2001 +0000
+++ b/lisp/gnus/mml.el	Mon Jan 08 19:25:35 2001 +0000
@@ -132,8 +132,11 @@
 			 (mm-find-mime-charset-region point (point))))
 	(when (and (not raw) (memq nil charsets))
 	  (if (or (memq 'unknown-encoding mml-confirmation-set)
-		  (y-or-n-p
-		   "Message contains characters with unknown encoding.  Really send?"))
+		  (prog1 (y-or-n-p
+		   "\
+Message contains characters with unknown encoding.  Really send?")
+		    (set (make-local-variable 'mml-confirmation-set)
+			 (push 'unknown-encoding mml-confirmation-set))))
 	      (if (setq use-ascii 
 			(or (memq 'use-ascii mml-confirmation-set)
 			    (y-or-n-p "Use ASCII as charset?")))
@@ -153,10 +156,13 @@
 	    (when (and warn
 		       (not (memq 'multipart mml-confirmation-set))
 		       (not
-			(y-or-n-p
-			 (format
-			  "Warning: Your message contains more than %d parts.  Really send? "
-			  (length nstruct)))))
+			(prog1 (y-or-n-p
+				(format
+				 "\
+A message part needs to be split into %d charset parts.  Really send? "
+				 (length nstruct)))
+			  (set (make-local-variable 'mml-confirmation-set)
+			       (push 'multipart mml-confirmation-set)))))
 	      (error "Edit your message to use only one charset"))
 	    (setq struct (nconc nstruct struct)))))))
     (unless (eobp)