Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-vm.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children 360340f9fd5f
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; gnus-vm.el --- vm interface for Gnus 1 ;;; gnus-vm.el --- vm interface for Gnus
2 ;; Copyright (C) 1994,95,96 Free Software Foundation, Inc. 2 ;; Copyright (C) 1994,95,96,97 Free Software Foundation, Inc.
3 3
4 ;; Author: Per Persson <pp@solace.mh.se> 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.
8 8
9 ;; GNU Emacs is free software; you can redistribute it and/or modify 9 ;; GNU Emacs is free software; you can redistribute it and/or modify
46 "Inhibit loading `win-vm' if using a window-system. 46 "Inhibit loading `win-vm' if using a window-system.
47 Has to be set before gnus-vm is loaded.") 47 Has to be set before gnus-vm is loaded.")
48 48
49 (or gnus-vm-inhibit-window-system 49 (or gnus-vm-inhibit-window-system
50 (condition-case nil 50 (condition-case nil
51 (if window-system 51 (when window-system
52 (require 'win-vm)) 52 (require 'win-vm))
53 (error nil))) 53 (error nil)))
54 54
55 (if (not (featurep 'vm)) 55 (when (not (featurep 'vm))
56 (load "vm")) 56 (load "vm"))
57 57
58 (defun gnus-vm-make-folder (&optional buffer) 58 (defun gnus-vm-make-folder (&optional buffer)
59 (let ((article (or buffer (current-buffer))) 59 (let ((article (or buffer (current-buffer)))
60 (tmp-folder (generate-new-buffer " *tmp-folder*")) 60 (tmp-folder (generate-new-buffer " *tmp-folder*"))
61 (start (point-min)) 61 (start (point-min))
92 gnus-current-headers gnus-newsgroup-last-mail))) 92 gnus-current-headers gnus-newsgroup-last-mail)))
93 (setq folder 93 (setq folder
94 (cond ((eq folder 'default) default-name) 94 (cond ((eq folder 'default) default-name)
95 (folder folder) 95 (folder folder)
96 (t (gnus-read-save-file-name 96 (t (gnus-read-save-file-name
97 "Save article in VM folder:" default-name)))) 97 "Save %s in VM folder:" default-name))))
98 (gnus-make-directory (file-name-directory folder)) 98 (gnus-make-directory (file-name-directory folder))
99 (set-buffer gnus-original-article-buffer) 99 (set-buffer gnus-original-article-buffer)
100 (save-excursion 100 (save-excursion
101 (save-restriction 101 (save-restriction
102 (widen) 102 (widen)