(elmo-progress-start): Avoid updating `elmo-progress-counter' when a query

[elisp/wanderlust.git] / elmo / slp.el

diff --git a/elmo/slp.el b/elmo/slp.el
index 88ed9d4..84f4cac 100644 (file)
--- 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,11 +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 
+  (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))