X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Fslp.el;h=42cbb25bb84def1647c22e76dc3a2828461164d6;hb=51f9787799e1f8a5ad1f9cde0fd99489dae071c3;hp=5ca27c3b7842ff3ce98344ee51e2c927abd7cd71;hpb=0e2202b5181bc68425cd8dec8486f99b8d0c67c5;p=elisp%2Fwanderlust.git

diff --git a/elmo/slp.el b/elmo/slp.el
index 5ca27c3..42cbb25 100644
--- a/elmo/slp.el
+++ b/elmo/slp.el
@@ -27,7 +27,7 @@
 ;;
 ;; slp.el is an elisp library providing an interface for SLP (RFC2614)
 ;; using OpenSLP(http://www.openslp.org/) slptool .
-;; 
+;;
 ;;; History:
 ;; 28 Aug 2001 Created.
 
@@ -50,8 +50,9 @@
 (defun slp-exec-wait (type &rest args)
   "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))))
+  (with-temp-buffer
+    (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))