X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-agent.el;h=9219ce04c1fb140659d4aed01faa4b76ce9ef874;hp=f779f3c7415a64d1ac13d6b7ba6077365e19eb35;hb=7067d9be35e2177e6b891ede1db93f9af6c7e234;hpb=b83561e18ceb438203812786590893bd5fc2a6cc diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index f779f3c74..9219ce04c 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -1,6 +1,6 @@ ;;; gnus-agent.el --- unplugged support for Gnus -;; Copyright (C) 1997-2015 Free Software Foundation, Inc. +;; Copyright (C) 1997-2016 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; 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