(vm-mode)
tmp-folder))
-(defun gnus-summary-save-article-vm (arg)
+(defun gnus-summary-save-article-vm (&optional arg)
"Append the current article to a vm folder.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
(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)))
(if gnus-use-full-window
(pop-to-buffer gnus-article-buffer)
(switch-to-buffer gnus-article-buffer)))
- (set-buffer gnus-article-buffer)
+ (gnus-copy-article-buffer)
+ (set-buffer gnus-article-copy)
(save-excursion
(save-restriction
(widen)
(replace-match (concat "\\1" subject))))))))
(vm-forward-message)
(gnus-vm-init-reply-buffer gnus-buffer)
+ (run-hooks 'gnus-mail-hook)
(kill-buffer vm-folder))))))
(defun gnus-vm-init-reply-buffer (buffer)
Optional argument YANK means yank original article.
The command \\[vm-yank-message] yank the original message into current buffer."
(let ((gnus-buffer (current-buffer)))
- (set-buffer gnus-article-buffer)
+ (gnus-copy-article-buffer)
+ (set-buffer gnus-article-copy)
(save-excursion
(save-restriction
(widen)
- (let ((vm-folder (gnus-vm-make-folder gnus-article-buffer)))
+ (let ((vm-folder (gnus-vm-make-folder gnus-article-copy)))
(vm-reply 1)
(gnus-vm-init-reply-buffer gnus-buffer)
(setq gnus-buffer (current-buffer))
(gnus-yank-article nil))
(kill-buffer vm-folder))))
(if (featurep 'win-vm) nil
- (pop-to-buffer gnus-buffer))))
+ (pop-to-buffer gnus-buffer))
+ (run-hooks 'gnus-mail-hook)))
(defun gnus-mail-other-window-using-vm ()
"Compose mail in the other window using VM."
(interactive)
(let ((gnus-buffer (current-buffer)))
(vm-mail)
- (gnus-vm-init-reply-buffer gnus-buffer)))
+ (gnus-vm-init-reply-buffer gnus-buffer))
+ (run-hooks 'gnus-mail-hook))
(defun gnus-yank-article (article &optional prefix)
;; Based on vm-yank-message by Kyle Jones.
(or (gnus-server-opened (gnus-find-method-for-group
gnus-newsgroup-name))
(progn
- (gnus-check-news-server
+ (gnus-check-server
(gnus-find-method-for-group gnus-newsgroup-name))
(gnus-request-group gnus-newsgroup-name t)))
(and (stringp article)