# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822957500 0
# Node ID 165a13220edc6137fabeac76988c1ae9f5dbba8f
# Parent  ac3101efc47e9a09614149b238ec169b9b5acf8b
(nntp-send-strings-to-server, nntp-async-send-strings): Fix error format string.

diff -r ac3101efc47e -r 165a13220edc lisp/nntp.el
--- a/lisp/nntp.el	Mon Jan 29 23:17:49 1996 +0000
+++ b/lisp/nntp.el	Mon Jan 29 23:18:20 1996 +0000
@@ -1014,7 +1014,7 @@
     ;; 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 @@
   (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)