Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current...

[gnus] / lisp / nnheader.el

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 9a90a76..1bfdbea 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -835,8 +835,7 @@ The first string in ARGS can be a format string."
   "Clear the communication buffer and insert FORMAT and ARGS into the buffer.
 If FORMAT isn't a format string, it and all ARGS will be inserted
 without formatting."
-  (save-excursion
-    (set-buffer nntp-server-buffer)
+  (with-current-buffer nntp-server-buffer
     (erase-buffer)
     (if (string-match "%" format)
        (insert (apply 'format format args))