Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-vm.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 360340f9fd5f
children
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
85 (let ((gnus-default-article-saver 'gnus-summary-save-in-vm)) 85 (let ((gnus-default-article-saver 'gnus-summary-save-in-vm))
86 (gnus-summary-save-article arg))) 86 (gnus-summary-save-article arg)))
87 87
88 (defun gnus-summary-save-in-vm (&optional folder) 88 (defun gnus-summary-save-in-vm (&optional folder)
89 (interactive) 89 (interactive)
90 (let ((default-name 90 (setq folder
91 (funcall gnus-mail-save-name gnus-newsgroup-name 91 (cond ((eq folder 'default) default-name)
92 gnus-current-headers gnus-newsgroup-last-mail))) 92 (folder folder)
93 (setq folder 93 (t (gnus-read-save-file-name
94 (cond ((eq folder 'default) default-name) 94 "Save %s in VM folder:" folder
95 (folder folder) 95 gnus-mail-save-name gnus-newsgroup-name
96 (t (gnus-read-save-file-name 96 gnus-current-headers 'gnus-newsgroup-last-mail))))
97 "Save %s in VM folder:" default-name)))) 97 (gnus-eval-in-buffer-window gnus-original-article-buffer
98 (gnus-make-directory (file-name-directory folder))
99 (set-buffer gnus-original-article-buffer)
100 (save-excursion 98 (save-excursion
101 (save-restriction 99 (save-restriction
102 (widen) 100 (widen)
103 (let ((vm-folder (gnus-vm-make-folder))) 101 (let ((vm-folder (gnus-vm-make-folder)))
104 (vm-save-message folder) 102 (vm-save-message folder)
105 (kill-buffer vm-folder)))) 103 (kill-buffer vm-folder))))))
106 ;; Remember the directory name to save articles.
107 (setq gnus-newsgroup-last-mail folder)))
108 104
109 (provide 'gnus-vm) 105 (provide 'gnus-vm)
110 106
111 ;;; gnus-vm.el ends here. 107 ;;; gnus-vm.el ends here.