From: hayashi <hayashi>
Date: Mon, 22 May 2000 06:09:43 +0000 (+0000)
Subject: * pgg-gpg.el (pgg-gpg-process-region): Abolish redundant nconc.
X-Git-Tag: emy-1_13_7~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=04141c891268f154938a80d6751ab603beb2fd29;p=elisp%2Fsemi.git

* pgg-gpg.el (pgg-gpg-process-region): Abolish redundant nconc.
---

diff --git a/ChangeLog b/ChangeLog
index f2f4edf..303e19e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-05-21   Daiki Ueno  <ueno@unixuser.org>
+
+	* pgg-gpg.el (pgg-gpg-process-region): Abolish redundant nconc.
+
 2000-05-22  Yoshiki Hayashi  <yoshiki@xemacs.org>
 
 	* mime-view.el: Merge WEMY.
diff --git a/pgg-gpg.el b/pgg-gpg.el
index 3cf8b0c..b475016 100644
--- a/pgg-gpg.el
+++ b/pgg-gpg.el
@@ -59,11 +59,10 @@
   (let* ((output-file-name
 	  (concat temporary-file-directory (make-temp-name "pgg-output")))
 	 (args
-	  (nconc
-	   `("--status-fd" "2"
-	     ,@(if passphrase '("--passphrase-fd" "0"))
-	     "--output" ,output-file-name ,@pgg-gpg-extra-args)
-	   args))
+	  `("--status-fd" "2"
+	    ,@(if passphrase '("--passphrase-fd" "0"))
+	    "--output" ,output-file-name
+	    ,@pgg-gpg-extra-args ,@args))
 	 (output-buffer pgg-output-buffer)
 	 (errors-buffer pgg-errors-buffer)
 	 (orig-mode (default-file-modes))