Mercurial > hg > xemacs-beta
diff lisp/tm/tm-vm.el @ 146:2af401a6ecca r20-2p1
Import from CVS: tag r20-2p1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:34:46 +0200 |
| parents | 1856695b1fa9 |
| children | 0132846995bd |
line wrap: on
line diff
--- a/lisp/tm/tm-vm.el Mon Aug 13 09:34:16 2007 +0200 +++ b/lisp/tm/tm-vm.el Mon Aug 13 09:34:46 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.5 $ +;; Version: $Revision: 1.6 $ ;; 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.5 1997/05/09 03:28:15 steve Exp $") + "$Id: tm-vm.el,v 1.6 1997/05/14 02:01:47 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,7 +1169,8 @@ ;;; @@@ multipart/digest -(fset 'vm-unsaved-message 'message) +(if (not (fboundp 'vm-unsaved-message)) + (fset 'vm-unsaved-message 'message)) (defun tm-vm/enclose-messages (mlist &optional preamble) "Enclose the messages in MLIST as multipart/digest.