X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/dd72e25cb2561f180437db5e84b08dd7670809ae..0e963201d03d9229bb8ac4323291d2b0119526ed:/lisp/gnus/gnus-agent.el?ds=inline

diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index 67525ee0c1..9219ce04c1 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -1,6 +1,6 @@
 ;;; gnus-agent.el --- unplugged support for Gnus
 
-;; Copyright (C) 1997-2014 Free Software Foundation, Inc.
+;; Copyright (C) 1997-2016 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; This file is part of GNU Emacs.
@@ -868,8 +868,9 @@ be a select method."
 		      (not (eq gnus-agent-synchronize-flags 'ask)))
 		 (and (eq gnus-agent-synchronize-flags 'ask)
 		      (gnus-y-or-n-p
-		       (format "Synchronize flags on server `%s'? "
-			       (cadr method))))))
+		       (gnus-format-message
+			"Synchronize flags on server `%s'? "
+			(cadr method))))))
     (gnus-agent-synchronize-flags-server method)))
 
 ;;;###autoload
@@ -1721,7 +1722,7 @@ and that there are no duplicates."
               (or backed-up
                   (setq backed-up (gnus-agent-backup-overview-buffer)))
 	      (gnus-message 1
-			    "Overview buffer contains garbage '%s'."
+			    "Overview buffer contains garbage `%s'."
 			    (buffer-substring
 			     p (point-at-eol))))
 	     ((= cur prev-num)
@@ -1901,7 +1902,7 @@ article numbers will be returned."
 
       (when articles
 	(gnus-message
-	 10 "gnus-agent-fetch-headers: undownloaded articles are '%s'"
+	 10 "gnus-agent-fetch-headers: undownloaded articles are `%s'"
 	 (gnus-compress-sequence articles t)))
 
       (with-current-buffer nntp-server-buffer