*** empty log message ***

[gnus] / lisp / gnus-mh.el

diff --git a/lisp/gnus-mh.el b/lisp/gnus-mh.el
index 9efab83..02317a2 100644 (file)
--- a/lisp/gnus-mh.el
+++ b/lisp/gnus-mh.el
@@ -67,18 +67,17 @@ Optional argument FOLDER specifies folder name."
        (errbuf (get-buffer-create " *Gnus rcvstore*"))
        ;; Find the rcvstore program.
        (exec-path (if mh-lib (cons mh-lib exec-path) exec-path)))
-    (gnus-eval-in-buffer-window 
-     gnus-original-article-buffer
-     (save-restriction
-       (widen)
-       (unwind-protect
-          (call-process-region 
-           (point-min) (point-max) "rcvstore" nil errbuf nil folder)
-        (set-buffer errbuf)
-        (if (zerop (buffer-size))
-            (message "Article saved in folder: %s" folder)
-          (message "%s" (buffer-string)))
-        (kill-buffer errbuf))))
+    (gnus-eval-in-buffer-window gnus-original-article-buffer
+      (save-restriction
+       (widen)
+       (unwind-protect
+           (call-process-region 
+            (point-min) (point-max) "rcvstore" nil errbuf nil folder)
+         (set-buffer errbuf)
+         (if (zerop (buffer-size))
+             (message "Article saved in folder: %s" folder)
+           (message "%s" (buffer-string)))
+         (kill-buffer errbuf))))
     (setq gnus-newsgroup-last-folder folder)))
 
 (defun gnus-Folder-save-name (newsgroup headers &optional last-folder)