(wl-user-agent-insert-body): Make sure body ends with newline.

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

diff --git a/elmo/slp.el b/elmo/slp.el
index 42cbb25..5805f31 100644 (file)
--- a/elmo/slp.el
+++ b/elmo/slp.el
@@ -32,6 +32,7 @@
 ;; 28 Aug 2001 Created.
 
 ;;; Code:
+(eval-when-compile (require 'cl))
 
 (defgroup slp nil
   "Interface for `Service Location Protocol'."
@@ -54,7 +55,7 @@ TYPE is a symbol (one of `srvs', `attrs', `srvtypes', `as-is', `ignore')."
     (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))