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 "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 "Sorry. MODE \"%s\" is invalid" mode)) |
603 |
(mml-unsecure-message) |
(mml-unsecure-message) |
604 |
(if (not (string= mode "none")) |
(if (not (string= mode "none")) |
605 |
(save-excursion |
(save-excursion |