(defun epg-start (context args)
"Start `epg-gpg-program' in a subprocess with given ARGS."
- (if (eq (process-status (epg-context-process context)) 'run)
+ (if (and (epg-context-process context)
+ (eq (process-status (epg-context-process context)) 'run))
(error "%s is already running in this context"
(if (eq (epg-context-protocol context) 'CMS)
epg-gpgsm-program