Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-vm.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 8fc7fe29b841
children
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-vm.el 4 ;; File: efs-vm.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.1 $ 6 ;; Version: #Revision: 1.1 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: Allows the VM mail reader to access folders using efs. 8 ;; Description: Allows the VM mail reader to access folders using efs.
9 ;; If you are looking for support for VM/CMS, see efs-cms.el. 9 ;; If you are looking for support for VM/CMS, see efs-cms.el.
10 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it> 10 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it>
11 ;; Created: Mon Nov 9 23:49:18 1992 by sandy on riemann 11 ;; Created: Mon Nov 9 23:49:18 1992 by sandy on riemann
73 ;;; Internal variables 73 ;;; Internal variables
74 74
75 (defconst efs-vm-version 75 (defconst efs-vm-version
76 (concat (substring "$efs release: 1.15 $" 14 -2) 76 (concat (substring "$efs release: 1.15 $" 14 -2)
77 "/" 77 "/"
78 (substring "$Revision: 1.1 $" 11 -2))) 78 (substring "#Revision: 1.1 $" 11 -2)))
79 79
80 80
81 (defun efs-vm-get-new-mail (&optional arg) 81 (defun efs-vm-get-new-mail (&optional arg)
82 "Documented as original" 82 "Documented as original"
83 (interactive "P") 83 (interactive "P")