;;; gnus-vm.el --- vm interface for Gnus
-;; Copyright (C) 1994,95 Free Software Foundation, Inc.
+;; Copyright (C) 1994,95,96 Free Software Foundation, Inc.
;; Author: Per Persson <pp@solace.mh.se>
;; Keywords: news, mail
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
;;; Commentary:
(let ((default-name
(funcall gnus-mail-save-name gnus-newsgroup-name
gnus-current-headers gnus-newsgroup-last-mail)))
- (setq filename
- (cond ((eq filename 'default)
- default-name)
- (filename filename)
- (t (read-file-name
- (concat "Save article in VM folder: (default "
- (file-name-nondirectory default-name) ") ")
- (file-name-directory default-name)
- default-name))))
(setq folder
- (expand-file-name folder
- (and default-name
- (file-name-directory default-name))))
+ (cond ((eq folder 'default) default-name)
+ (folder folder)
+ (t (gnus-read-save-file-name
+ "Save article in VM folder:" default-name))))
(gnus-make-directory (file-name-directory folder))
- (set-buffer gnus-article-buffer)
+ (set-buffer gnus-original-article-buffer)
(save-excursion
(save-restriction
(widen)
(kill-buffer vm-folder))))
;; Remember the directory name to save articles.
(setq gnus-newsgroup-last-mail folder)))
-
+
(defun gnus-vm-mail-setup (to subject in-reply-to cc replybuffer actions)
(gnus-sendmail-mail-setup to subject in-reply-to cc replybuffer actions)
)