From: ueno <ueno>
Date: Sun, 21 May 2000 12:00:36 +0000 (+0000)
Subject: * pgg-gpg.el (pgg-gpg-process-region): Abolish redundant nconc.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1ae92281264022070fd5d25d9b63f7b883abf0f6;p=elisp%2Fsemi.git

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

diff --git a/ChangeLog b/ChangeLog
index a39a470..31357d5 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-16   Daiki Ueno  <ueno@unixuser.org>
 
 	* mime-image.el (mime-image-create) [XEmacs]: Don't call
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))