X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Fslp.el;h=5805f31af57a0d6d3d5c6625c1760493e529a48a;hb=93025ed9d6792ef40793910e2a2b7ac46029b5cb;hp=5ca27c3b7842ff3ce98344ee51e2c927abd7cd71;hpb=48ba9b0fbb1ebee7ba623f3fe99d333161f57bf9;p=elisp%2Fwanderlust.git

diff --git a/elmo/slp.el b/elmo/slp.el
index 5ca27c3..5805f31 100644
--- a/elmo/slp.el
+++ b/elmo/slp.el
@@ -27,11 +27,12 @@
 ;;
 ;; slp.el is an elisp library providing an interface for SLP (RFC2614)
 ;; using OpenSLP(http://www.openslp.org/) slptool .
-;; 
+;;
 ;;; History:
 ;; 28 Aug 2001 Created.
 
 ;;; Code:
+(eval-when-compile (require 'cl))
 
 (defgroup slp nil
   "Interface for `Service Location Protocol'."
@@ -50,10 +51,11 @@
 (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)))
+	(error "SLP error: %s" (buffer-string)))
       (goto-char (point-min))
       (case type
 	(srvs (slp-parse-srvs))