X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Fslp.el;h=84f4cac02d4b8049fa18830a9a2f7ab9dea60d4a;hb=3e31d481762f539f79632d0ca9cab80b65380c87;hp=23ca570c2cb43dc4e6f7aff2dbdd6fbd53c4a333;hpb=5069e187e3bd8778f240fd117d8f539e46a7fd90;p=elisp%2Fwanderlust.git

diff --git a/elmo/slp.el b/elmo/slp.el
index 23ca570..84f4cac 100644
--- a/elmo/slp.el
+++ b/elmo/slp.el
@@ -1,4 +1,4 @@
-;;; slp.el --- A SLP interface.
+;;; slp.el --- An SLP interface.
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: SLP
@@ -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,10 +50,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))