procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mml-parse-1): Frob mml-confirmation-set when proceeding

Browse source 
after warnings.  Amend multipart warning message.
This commit is contained in:
Dave Love 2001-01-08 19:25:35 +00:00
parent f36782bc24
commit 2453b2e8f8
1 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/gnus/mml.el
View file

@ -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)