/[emacs]/emacs/lisp/mh-e/mh-mime.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-mime.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by lektu, Tue Jun 14 15:37:18 2005 UTC revision 1.14 by lektu, Thu Jun 16 15:04:53 2005 UTC
# Line 597  IDENTITY is optionally the default-user- Line 597  IDENTITY is optionally the default-user-
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

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26