From 2453b2e8f83ea4cf10df35f04b5789ab3c52c4e9 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 8 Jan 2001 19:25:35 +0000 Subject: [PATCH] (mml-parse-1): Frob mml-confirmation-set when proceeding after warnings. Amend multipart warning message. --- lisp/gnus/mml.el | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 8bdbe289bd9..83b16f135f9 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -132,8 +132,11 @@ The function is called with one parameter, which is the generated part.") (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 @@ The function is called with one parameter, which is the generated part.") (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) -- 2.39.2