Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-vm.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 376386a54a3c
children ec9a17fef872
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
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)