X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fspam-report.el;h=e73444e85c04097b047304d3517e5b2174e23441;hb=f5c2719cac7704cf45be49a857c128fc823ddf86;hp=0e32e9340403f6d1418bbc2964e136e563b14eed;hpb=d35f74681dd75d8a3f27e9d3be60c8ec687cc6bd;p=gnus

diff --git a/lisp/spam-report.el b/lisp/spam-report.el
index 0e32e9340..e73444e85 100644
--- a/lisp/spam-report.el
+++ b/lisp/spam-report.el
@@ -109,8 +109,7 @@ Reports is as ham when HAM is set."
     ;; select this particular article
     (gnus-summary-select-article nil nil nil article)
     ;; resend it to the destination address
-    (save-excursion
-      (set-buffer gnus-original-article-buffer)
+    (with-current-buffer gnus-original-article-buffer
       (message-resend spam-report-resend-to))))
 
 (defun spam-report-resend-ham (articles)
@@ -292,8 +291,7 @@ symbol `ask', query before flushing the queue file."
     (gnus-message 7 "Processing requests using `%s'."
 		  spam-report-url-ping-function))
   (or file (setq file spam-report-requests-file))
-  (save-excursion
-    (set-buffer (find-file-noselect file))
+  (with-current-buffer (find-file-noselect file)
     (goto-char (point-min))
     (while (and (not (eobp))
 		(re-search-forward