Mercurial > hg > xemacs-beta
diff lisp/tm/tm-vm.el @ 142:1856695b1fa9 r20-2b5
Import from CVS: tag r20-2b5
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:33:18 +0200 |
| parents | 9b50b4588a93 |
| children | 2af401a6ecca |
line wrap: on
line diff
--- a/lisp/tm/tm-vm.el Mon Aug 13 09:32:45 2007 +0200 +++ b/lisp/tm/tm-vm.el Mon Aug 13 09:33:18 2007 +0200 @@ -9,7 +9,7 @@ ;; Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch> ;; Maintainer: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch> ;; Created: 1994/10/29 -;; Version: $Revision: 1.4 $ +;; Version: $Revision: 1.5 $ ;; Keywords: mail, MIME, multimedia, multilingual, encoded-word ;; This file is part of tm (Tools for MIME). @@ -103,7 +103,7 @@ ;;; @@ System/Information variables (defconst tm-vm/RCS-ID - "$Id: tm-vm.el,v 1.4 1997/04/13 03:14:15 steve Exp $") + "$Id: tm-vm.el,v 1.5 1997/05/09 03:28:15 steve Exp $") (defconst tm-vm/version (get-version-string tm-vm/RCS-ID)) ; Ensure vm-menu-mail-menu gets properly defined *before* tm-vm/vm-emulation-map @@ -1169,6 +1169,8 @@ ;;; @@@ multipart/digest +(fset 'vm-unsaved-message 'message) + (defun tm-vm/enclose-messages (mlist &optional preamble) "Enclose the messages in MLIST as multipart/digest. The resulting digest is inserted at point in the current buffer.