Mercurial > hg > xemacs-beta
comparison lisp/vm/vm-user.el @ 30:ec9a17fef872 r19-15b98
Import from CVS: tag r19-15b98
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:52:29 +0200 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 29:7976500f47f9 | 30:ec9a17fef872 |
|---|---|
| 1 ;;; Interface functions to VM internal data | |
| 2 ;;; Copyright (C) 1997 Kyle E. Jones | |
| 3 ;;; | |
| 4 ;;; This program is free software; you can redistribute it and/or modify | |
| 5 ;;; it under the terms of the GNU General Public License as published by | |
| 6 ;;; the Free Software Foundation; either version 2, or (at your option) | |
| 7 ;;; any later version. | |
| 8 ;;; | |
| 9 ;;; This program is distributed in the hope that it will be useful, | |
| 10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 12 ;;; GNU General Public License for more details. | |
| 13 ;;; | |
| 14 ;;; You should have received a copy of the GNU General Public License | |
| 15 ;;; along with this program; if not, write to the Free Software | |
| 16 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. | |
| 17 | |
| 18 (provide 'vm-user) | |
| 19 | |
| 20 (defun vm-user-composition-folder-buffer () | |
| 21 "Returns the folder buffer associated with the current buffer. | |
| 22 The current buffer must be a composition buffer created by VM for | |
| 23 a reply, resend or forward. | |
| 24 | |
| 25 Nil is returned if the current buffer is not assocaited with any | |
| 26 VM folder. | |
| 27 | |
| 28 Note that the buffer returned might be a virtual folder buffer, | |
| 29 which might have several underlying real folders associated with | |
| 30 it. To get the list of real folder buffers associated with a | |
| 31 composition buffer, use vm-user-composition-real-folder-buffers | |
| 32 instead." | |
| 33 (if (eq major-mode 'mail-mode) | |
| 34 vm-mail-buffer | |
| 35 nil )) | |
| 36 | |
| 37 (defun vm-user-composition-real-folder-buffers () | |
| 38 "Returns a list of the real folder buffers associated with the current | |
| 39 buffer. The current buffer must be a composition buffer created | |
| 40 by VM for a reply, resend or forward." | |
| 41 (if (eq major-mode 'mail-mode) | |
| 42 (let ((list nil) (newlist nil)) | |
| 43 (cond ((eq vm-system-state 'replying) | |
| 44 (setq list vm-reply-list)) | |
| 45 ((eq vm-system-state 'forwarding) | |
| 46 (setq list vm-forward-list)) | |
| 47 ((eq vm-system-state 'redistributing) | |
| 48 (setq list vm-redistribute-list))) | |
| 49 (while list | |
| 50 (setq newlist (cons (vm-buffer-of (vm-real-message-of (car list))) | |
| 51 newlist) | |
| 52 list (cdr list))) | |
| 53 newlist ) | |
| 54 nil )) |