From 0c3e9e003ba132ba0e88f6a71d7f949e29b325ea Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 1 May 2006 22:46:40 +0000 Subject: [PATCH] Simplified. --- epg.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/epg.el b/epg.el index d886f4e..0e96c97 100644 --- a/epg.el +++ b/epg.el @@ -1179,7 +1179,7 @@ This function is for internal use only." (let ((args (append (list "--with-colons" "--no-greeting" "--batch" "--with-fingerprint" "--with-fingerprint" - (if (or (eq mode t) (eq mode 'secret)) + (if (memq mode '(t secret)) "--list-secret-keys" (if mode "--list-sigs" @@ -1526,9 +1526,9 @@ If you are unsure, use synchronous version of this function `epg-sign-file' or `epg-sign-string' instead." (epg-context-set-result context nil) (epg-start context - (append (list (if (or (eq mode t) (eq mode 'detached)) + (append (list (if (memq mode '(t detached)) "--detach-sign" - (if (or (null mode) (eq mode 'normal)) + (if (memq mode '(nil normal)) "--sign" "--clearsign"))) (apply #'nconc -- 1.7.10.4