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

diff --git a/ChangeLog b/ChangeLog
index a39a470..31357d5 100644 (file)
--- 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 (file)
--- 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))