From: ueno <ueno>
Date: Mon, 1 May 2006 22:46:40 +0000 (+0000)
Subject: Simplified.
X-Git-Tag: epg-0_0_2~51
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0c3e9e003ba132ba0e88f6a71d7f949e29b325ea;p=elisp%2Fepg.git

Simplified.
---

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