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

[gnus] / lisp / gnus-int.el

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 36d79ac..88d3555 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -179,7 +179,7 @@ If it is down, start it up (again)."
                        (format " on %s" (nth 1 method)))))
       (gnus-run-hooks 'gnus-open-server-hook)
       (prog1
-         (progn (gnus-open-server method))
+         (gnus-open-server method)
        (unless silent
          (gnus-message 5 "Opening %s server%s...%s" (car method)
                        (if (equal (nth 1 method) "") ""
@@ -503,8 +503,7 @@ If BUFFER, insert the article in that group."
       (setq res (gnus-request-article article group)
            clean-up t)))
     (when clean-up
-      (save-excursion
-       (set-buffer nntp-server-buffer)
+      (with-current-buffer nntp-server-buffer
        (goto-char (point-min))
        (when (search-forward "\n\n" nil t)
          (delete-region (1- (point)) (point-max)))
@@ -536,8 +535,7 @@ If BUFFER, insert the article in that group."
       (setq res (gnus-request-article article group)
            clean-up t)))
     (when clean-up
-      (save-excursion
-       (set-buffer nntp-server-buffer)
+      (with-current-buffer nntp-server-buffer
        (goto-char (point-min))
        (when (search-forward "\n\n" nil t)
          (delete-region (point-min) (1- (point))))))