From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Fri, 1 Oct 2010 21:40:29 +0000 (+0200)
Subject: Use with-current-buffer instead of gnus-eval-in-buffer-window to avoid
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=624cfb672f8de880d63a9e66126145b6184c271a

Use with-current-buffer instead of gnus-eval-in-buffer-window to avoid
popping up frames.

Reported by Stefan Monnier.
(gnus-summary-save-in-rmail): Ditto.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c242bd462..719f7484f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2010-10-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus-art.el (gnus-summary-save-in-file): Use with-current-buffer
+	instead of gnus-eval-in-buffer-window to avoid popping up frames.
+	Reported by Stefan Monnier.
+	(gnus-summary-save-in-rmail): Ditto.
+
 	* gnus-sum.el (gnus-summary-select-article-buffer): Show only the
 	article buffer, instead of both the article buffer and the summary
 	buffer.  Sort of suggested by Dan Jacobson.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 91ff355b6..8a0193b26 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3958,7 +3958,7 @@ Directory to save to is default to `gnus-article-save-directory'."
 		  "Save %s in rmail file" filename
 		  gnus-rmail-save-name gnus-newsgroup-name
 		  gnus-current-headers 'gnus-newsgroup-last-rmail))
-  (gnus-eval-in-buffer-window gnus-save-article-buffer
+  (with-current-buffer gnus-save-article-buffer
     (save-excursion
       (save-restriction
 	(widen)
@@ -3976,7 +3976,7 @@ Directory to save to is default to `gnus-article-save-directory'."
 		  "Save %s in Unix mail file" filename
 		  gnus-mail-save-name gnus-newsgroup-name
 		  gnus-current-headers 'gnus-newsgroup-last-mail))
-  (gnus-eval-in-buffer-window gnus-save-article-buffer
+  (with-current-buffer gnus-save-article-buffer
     (save-excursion
       (save-restriction
 	(widen)
@@ -3997,7 +3997,7 @@ Directory to save to is default to `gnus-article-save-directory'."
 		  "Save %s in file" filename
 		  gnus-file-save-name gnus-newsgroup-name
 		  gnus-current-headers 'gnus-newsgroup-last-file))
-  (gnus-eval-in-buffer-window gnus-save-article-buffer
+  (with-current-buffer gnus-save-article-buffer
     (save-excursion
       (save-restriction
 	(widen)
@@ -4029,7 +4029,7 @@ The directory to save in defaults to `gnus-article-save-directory'."
 		  "Save %s body in file" filename
 		  gnus-file-save-name gnus-newsgroup-name
 		  gnus-current-headers 'gnus-newsgroup-last-file))
-  (gnus-eval-in-buffer-window gnus-save-article-buffer
+  (with-current-buffer gnus-save-article-buffer
     (save-excursion
       (save-restriction
 	(widen)
@@ -4108,7 +4108,7 @@ and the raw article including all headers will be piped."
       (if default
 	  (setq command default)
 	(error "A command is required")))
-    (gnus-eval-in-buffer-window save-buffer
+    (with-current-buffer save-buffer
       (save-restriction
 	(widen)
 	(shell-command-on-region (point-min) (point-max) command nil)))