- (mime-mc-pgp50-process-region
- 1 2 passwd pgp-path
- (list "-fat" "+verbose=1" "+language=us" "+clearsig=on"
- "+batchmode" "-u" (cdr key))
- (function mc-pgp50-sign-parser) buffer nil)
+ (let ((mc-passwd-timeout 60)) ;; Don't deactivate passwd.
+ (mime-mc-pgp50-process-region
+ 1 2 passwd pgp-path
+ (list "-fat" "+verbose=1" "+language=us" "+clearsig=on"
+ "+batchmode" "-u" (cdr key))
+ (function mc-pgp50-sign-parser) buffer nil
+ ))