;;; mml1991.el --- Old PGP message format (RFC 1991) support for MML
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-;; 2007, 2008 Free Software Foundation, Inc.
+;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
-;; Author: Sascha Ldecke <sascha@meta-x.de>,
+;; Author: Sascha LΓΌdecke <sascha@meta-x.de>,
;; Simon Josefsson <simon@josefsson.org> (Mailcrypt interface, Gnus glue)
;; Keywords PGP
(require 'cl)
(require 'mm-util))
+(require 'mm-encode)
(require 'mml-sec)
(defvar mc-pgp-always-sign)
(defun mml1991-epg-sign (cont)
(let ((context (epg-make-context))
headers cte signers signature)
- (if mml1991-verbose
+ (if (eq mm-sign-option 'guided)
(setq signers (epa-select-keys context "Select keys for signing.
If no one is selected, default secret key is used. "
mml1991-signers t))
(or (epg-expand-group config recipient)
(list recipient)))
recipients))))
- (if mml1991-verbose
+ (if (eq mm-encrypt-option 'guided)
(setq recipients
(epa-select-keys context "Select recipients for encryption.
If no one is selected, symmetric encryption will be performed. "
mml1991-signers)))
(error "mml1991-signers not set")))
(when sign
- (if mml1991-verbose
+ (if (eq mm-sign-option 'guided)
(setq signers (epa-select-keys context "Select keys for signing.
If no one is selected, default secret key is used. "
mml1991-signers t))