mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

mml: Signal error on invalid <#secure> tag

Browse source 
* mml.el (mml-parse-1): Error out if unknown mode is specified in
<#secure> tag (bug#18513).
This commit is contained in:
Daiki Ueno 2014-10-01 11:25:15 +09:00
parent 85ee81a08f
commit c8145320b2
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2014-09-29 Daiki Ueno <ueno@gnu.org>
* mml.el (mml-parse-1): Error out if unknown mode is specified in
<#secure> tag (bug#18513).
2014-06-26 Glenn Morris <rgm@gnu.org> 2014-06-26 Glenn Morris <rgm@gnu.org>
* mm-util.el (help-function-arglist): Remove outdated declaration. * mm-util.el (help-function-arglist): Remove outdated declaration.

4
lisp/gnus/mml.el
View file

@ -260,7 +260,9 @@ part. This is for the internal use, you should never modify the value.")
((string= mode "encrypt") ((string= mode "encrypt")
(setq tags (list "encrypt" method))) (setq tags (list "encrypt" method)))
((string= mode "signencrypt") ((string= mode "signencrypt")
(setq tags (list "sign" method "encrypt" method)))) (setq tags (list "sign" method "encrypt" method)))
(t
(error "Unknown secure mode %s" mode)))
(eval `(mml-insert-tag ,secure-mode (eval `(mml-insert-tag ,secure-mode
,@tags ,@tags
,(if keyfile "keyfile") ,(if keyfile "keyfile")