;;;###autoload
(defun epg-cancel (context)
- (if (buffer-live-p (process-buffer process))
+ (if (buffer-live-p (process-buffer (epg-context-process context)))
(save-excursion
- (set-buffer (process-buffer process))
+ (set-buffer (process-buffer (epg-context-process context)))
(epg-context-set-result-for
epg-context 'error
(cons '(quit)