(let ((default-name
(funcall gnus-mail-save-name gnus-newsgroup-name
gnus-current-headers gnus-newsgroup-last-mail)))
- (setq filename
- (cond ((eq filename 'default)
+ (setq folder
+ (cond ((eq folder 'default)
default-name)
- (filename filename)
+ (folder folder)
(t (read-file-name
(concat "Save article in VM folder: (default "
(file-name-nondirectory default-name) ") ")
(and default-name
(file-name-directory 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)
)