Mercurial > emacs

comparison lisp/mh-e/mh-mime.el @ 63499:7d727ba4a112

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-secure-message): Don't use `format' on `error' arguments.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 16 Jun 2005 15:04:53 +0000
parents 3466d8eb59e3
children 60261c7a1b56
comparison
equal deleted inserted replaced
63498:42fdfa5aeb2a 63499:7d727ba4a112
595 (error "Sorry. Your version of gnus does not support PGP/GPG") 595 (error "Sorry. Your version of gnus does not support PGP/GPG")
596 ;; Check the arguments 596 ;; Check the arguments
597 (let ((valid-methods (list "pgpmime" "pgp" "smime")) 597 (let ((valid-methods (list "pgpmime" "pgp" "smime"))
598 (valid-modes (list "sign" "encrypt" "signencrypt" "none"))) 598 (valid-modes (list "sign" "encrypt" "signencrypt" "none")))
599 (if (not (member method valid-methods)) 599 (if (not (member method valid-methods))
600 (error (format "Sorry. METHOD \"%s\" is invalid" method))) 600 (error "Sorry. METHOD \"%s\" is invalid" method))
601 (if (not (member mode valid-modes)) 601 (if (not (member mode valid-modes))
602 (error (format "Sorry. MODE \"%s\" is invalid" mode))) 602 (error "Sorry. MODE \"%s\" is invalid" mode))
603 (mml-unsecure-message) 603 (mml-unsecure-message)
604 (if (not (string= mode "none")) 604 (if (not (string= mode "none"))
605 (save-excursion 605 (save-excursion
606 (goto-char (point-min)) 606 (goto-char (point-min))
607 (mh-goto-header-end 1) 607 (mh-goto-header-end 1)