X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-mh.el;h=6fabb5cc7d542186b3bab7a17df6bd7fbb6d7cf1;hb=40d03db27d74b7736b86bfc2846d4f43aefa44d2;hp=ce15a0135ee8c52dee0f50cde69fead28456555c;hpb=45f225ef9c444d29bef83d2b63c8cbd9746d8aaa;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-mh.el b/lisp/gnus-mh.el
index ce15a01..6fabb5c 100644
--- a/lisp/gnus-mh.el
+++ b/lisp/gnus-mh.el
@@ -1,8 +1,8 @@
 ;;; gnus-mh.el --- mh-e interface for Gnus
-;; Copyright (C) 1994,95,96,97 Free Software Foundation, Inc.
+;; Copyright (C) 1994,95,96,97,98,99 Free Software Foundation, Inc.
 
 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
-;;	Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+;;	Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
 
 ;; This file is part of GNU Emacs.
@@ -55,11 +55,16 @@ Optional argument FOLDER specifies folder name."
   ;; Thanks to yuki@flab.Fujitsu.JUNET and ohm@kaba.junet.
   (mh-find-path)
   (let ((folder
-	 (gnus-read-save-file-name
-		  "Save %s in file:" folder
-		  gnus-folder-save-name gnus-newsgroup-name
-		  gnus-current-headers 'gnus-newsgroup-last-folder))
-	(errbuf (get-buffer-create " *Gnus rcvstore*"))
+	 (cond ((and (eq folder 'default)
+		     gnus-newsgroup-last-folder)
+		gnus-newsgroup-last-folder)
+	       (folder folder)
+	       (t (mh-prompt-for-folder
+		   "Save article in"
+		   (funcall gnus-folder-save-name gnus-newsgroup-name
+			    gnus-current-headers gnus-newsgroup-last-folder)
+		   t))))
+	(errbuf (gnus-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