From: teranisi <teranisi>
Date: Tue, 28 Aug 2001 11:46:50 +0000 (+0000)
Subject: * slp.el (slp-exec-wait): Use `slp-program-arguments'.
X-Git-Tag: wl-2_7_3~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e318afea97ec0557e54cc9c9c4cbb1c9f672ddb1;p=elisp%2Fwanderlust.git

* slp.el (slp-exec-wait): Use `slp-program-arguments'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 80b804d..e04ef1f 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2001-08-28  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* slp.el (slp-exec-wait): Use `slp-program-arguments'.
+
 	* acap.el (acap-parse-return-metadata-or-return-metalist): Fix for
 	parsing NIL.
 	(acap-parse-return-metadata): Ditto.
diff --git a/elmo/slp.el b/elmo/slp.el
index 5ca27c3..88ed9d4 100644
--- a/elmo/slp.el
+++ b/elmo/slp.el
@@ -51,7 +51,8 @@
   "Synchronous execution of slp-program.
 TYPE is a symbol (one of `srvs', `attrs', `srvtypes', `as-is', `ignore')."
   (with-temp-buffer 
-    (let ((result (apply 'call-process slp-program nil t nil (delq nil args))))
+    (let ((result (apply 'call-process slp-program nil t nil
+			 (append slp-program-arguments (delq nil args)))))
       (unless (zerop result)
 	(error "SLP error: " (buffer-string)))
       (goto-char (point-min))