597 |
(let ((valid-methods (list "pgpmime" "pgp" "smime")) |
(let ((valid-methods (list "pgpmime" "pgp" "smime")) |
598 |
(valid-modes (list "sign" "encrypt" "signencrypt" "none"))) |
(valid-modes (list "sign" "encrypt" "signencrypt" "none"))) |
599 |
(if (not (member method valid-methods)) |
(if (not (member method valid-methods)) |
600 |
(error (format "Sorry. METHOD \"%s\" is invalid." method))) |
(error (format "Sorry. METHOD \"%s\" is invalid" method))) |
601 |
(if (not (member mode valid-modes)) |
(if (not (member mode valid-modes)) |
602 |
(error (format "Sorry. MODE \"%s\" is invalid" mode))) |
(error (format "Sorry. MODE \"%s\" is invalid" mode))) |
603 |
(mml-unsecure-message) |
(mml-unsecure-message) |