From f7892090a54f15ec9badb293c5bef1beff5089ea Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 7 Mar 2007 01:45:03 +0000 Subject: [PATCH] * epg.el (epg--start): Don't specify --use-agent if the protocol is CMS. --- ChangeLog | 5 +++++ epg.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index cc7a34a..292e2ad 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2007-03-07 Daiki Ueno + + * epg.el (epg--start): Don't specify --use-agent if the protocol + is CMS. + 2007-02-02 Daiki Ueno * epa-file.el (epa-file-write-region): Set a dummy filename diff --git a/epg.el b/epg.el index 7f84366..a9efba4 100644 --- a/epg.el +++ b/epg.el @@ -1061,7 +1061,9 @@ This function is for internal use only." (let* ((args (append (list "--no-tty" "--status-fd" "1" "--yes") - (if (string-match ":" (or (getenv "GPG_AGENT_INFO") "")) + (if (and (not (eq (epg-context-protocol context) 'CMS)) + (string-match ":" (or (getenv "GPG_AGENT_INFO") + ""))) '("--use-agent")) (if (and (not (eq (epg-context-protocol context) 'CMS)) (epg-context-progress-callback context)) -- 1.7.10.4