Mercurial > emacs
changeset 35142:40698b92a36a
(mml-parse-1): Frob mml-confirmation-set when proceeding
after warnings. Amend multipart warning message.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 08 Jan 2001 19:25:35 +0000 |
| parents | 0153adccc03d |
| children | 7c51bb7e8413 |
| files | lisp/gnus/mml.el |
| diffstat | 1 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)