Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-vm.el @ 146:2af401a6ecca r20-2p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2p1
author cvs
date Mon, 13 Aug 2007 09:34:46 +0200
parents 1856695b1fa9
children 0132846995bd
comparison
equal deleted inserted replaced
145:e13feca31ba6 146:2af401a6ecca
7 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> 7 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
8 ;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp> 8 ;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
9 ;; Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch> 9 ;; Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
10 ;; Maintainer: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch> 10 ;; Maintainer: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
11 ;; Created: 1994/10/29 11 ;; Created: 1994/10/29
12 ;; Version: $Revision: 1.5 $ 12 ;; Version: $Revision: 1.6 $
13 ;; Keywords: mail, MIME, multimedia, multilingual, encoded-word 13 ;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
14 14
15 ;; This file is part of tm (Tools for MIME). 15 ;; This file is part of tm (Tools for MIME).
16 16
17 ;; This program is free software; you can redistribute it and/or 17 ;; This program is free software; you can redistribute it and/or
101 These hooks are run in the MIME-Preview buffer.") 101 These hooks are run in the MIME-Preview buffer.")
102 102
103 ;;; @@ System/Information variables 103 ;;; @@ System/Information variables
104 104
105 (defconst tm-vm/RCS-ID 105 (defconst tm-vm/RCS-ID
106 "$Id: tm-vm.el,v 1.5 1997/05/09 03:28:15 steve Exp $") 106 "$Id: tm-vm.el,v 1.6 1997/05/14 02:01:47 steve Exp $")
107 (defconst tm-vm/version (get-version-string tm-vm/RCS-ID)) 107 (defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
108 108
109 ; Ensure vm-menu-mail-menu gets properly defined *before* tm-vm/vm-emulation-map 109 ; Ensure vm-menu-mail-menu gets properly defined *before* tm-vm/vm-emulation-map
110 ; since it contains a call to vm-menu-initialize-vm-mode-menu-map 110 ; since it contains a call to vm-menu-initialize-vm-mode-menu-map
111 (setq vm-menu-mail-menu 111 (setq vm-menu-mail-menu
1167 (setq vm-digest-send-type "rfc1521") 1167 (setq vm-digest-send-type "rfc1521")
1168 ))) 1168 )))
1169 1169
1170 ;;; @@@ multipart/digest 1170 ;;; @@@ multipart/digest
1171 1171
1172 (fset 'vm-unsaved-message 'message) 1172 (if (not (fboundp 'vm-unsaved-message))
1173 (fset 'vm-unsaved-message 'message))
1173 1174
1174 (defun tm-vm/enclose-messages (mlist &optional preamble) 1175 (defun tm-vm/enclose-messages (mlist &optional preamble)
1175 "Enclose the messages in MLIST as multipart/digest. 1176 "Enclose the messages in MLIST as multipart/digest.
1176 The resulting digest is inserted at point in the current buffer. 1177 The resulting digest is inserted at point in the current buffer.
1177 1178