(nntp-send-strings-to-server, nntp-async-send-strings): Fix error format string.

diff --git a/lisp/nntp.el b/lisp/nntp.el
index f3c0b7a0eb7ad7562c91beea0f6351bf3890dedc..4577fe5258590d4e084e5c0930dadbbe9835f9f5 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1014,7 +1014,7 @@ It will prompt for a password."
     ;; We open the nntp server if it is down.
     (or (nntp-server-opened nntp-current-server)
        (nntp-open-server nntp-current-server)
-       (error (nntp-status-message)))
+       (error "%s" (nntp-status-message)))
     ;; Send the strings.
     (process-send-string nntp-server-process cmd)))
 
@@ -1260,7 +1260,7 @@ defining this function as macro."
   (let ((cmd (concat (mapconcat 'identity strings " ") "\r\n")))
     (or (nntp-async-server-opened)
        (nntp-async-open-server)
-       (error (nntp-status-message)))
+       (error "%s" (nntp-status-message)))
     (process-send-string nntp-async-process cmd)))
 
 (defun nntp-async-request-group (group)