- (pgg-pgp5-process-region start end passphrase
- pgg-pgp5-pgpv-program args)
- (pgg-process-when-success nil)
- ))
-
-(luna-define-method sign-region ((scheme pgg-scheme-pgp5)
- start end &optional clearsign)
- (let* ((pgg-pgp5-user-id pgg-default-user-id)
+ (pgg-pgp5-process-region start end passphrase pgg-pgp5-pgpv-program args)
+ (pgg-process-when-success nil)))
+
+(luna-define-method pgg-scheme-sign-region ((scheme pgg-scheme-pgp5)
+ start end &optional clearsign)
+ (let* ((pgg-pgp5-user-id (or pgg-pgp5-user-id pgg-default-user-id))