(let ((default-name
(funcall gnus-mail-save-name gnus-newsgroup-name
gnus-current-headers gnus-newsgroup-last-mail)))
- (or folder
- (setq folder
- (read-file-name
- (concat "Save article in VM folder: (default "
- (file-name-nondirectory default-name) ") ")
- (file-name-directory default-name)
- default-name)))
+ (setq folder
+ (cond ((eq folder 'default)
+ default-name)
+ (folder folder)
+ (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))))
(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)
+ )
+
(defun gnus-mail-forward-using-vm (&optional buffer)
"Forward the current message to another user using vm."
(let* ((gnus-buffer (or buffer (current-buffer)))