Mercurial > emacs

comparison lisp/gnus/gnus-vm.el @ 24357:15fc6acbae7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Upgrading to Gnus 5.7; see ChangeLog
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Sat, 20 Feb 1999 14:05:57 +0000
parents e6935c08cf0b
children cbe304a26771
comparison
equal deleted inserted replaced
24356:a5a611ef40f6 24357:15fc6acbae7a
1 ;;; gnus-vm.el --- vm interface for Gnus 1 ;;; gnus-vm.el --- vm interface for Gnus
2 ;; Copyright (C) 1994,95,96,97 Free Software Foundation, Inc. 2 ;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc.
3 3
4 ;; Author: Per Persson <pp@gnu.ai.mit.edu> 4 ;; Author: Per Persson <pp@gnu.ai.mit.edu>
5 ;; Keywords: news, mail 5 ;; Keywords: news, mail
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
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 (setq folder 90 (setq folder
91 (cond ((eq folder 'default) default-name) 91 (gnus-read-save-file-name
92 (folder folder) 92 "Save %s in VM folder:" folder
93 (t (gnus-read-save-file-name 93 gnus-mail-save-name gnus-newsgroup-name
94 "Save %s in VM folder:" folder 94 gnus-current-headers 'gnus-newsgroup-last-mail))
95 gnus-mail-save-name gnus-newsgroup-name
96 gnus-current-headers 'gnus-newsgroup-last-mail))))
97 (gnus-eval-in-buffer-window gnus-original-article-buffer 95 (gnus-eval-in-buffer-window gnus-original-article-buffer
98 (save-excursion 96 (save-excursion
99 (save-restriction 97 (save-restriction
100 (widen) 98 (widen)
101 (let ((vm-folder (gnus-vm-make-folder))) 99 (let ((vm-folder (gnus-vm-make-folder)))