Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-vm.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 9b50b4588a93
children 2af401a6ecca
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
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.4 $ 12 ;; Version: $Revision: 1.5 $
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.4 1997/04/13 03:14:15 steve Exp $") 106 "$Id: tm-vm.el,v 1.5 1997/05/09 03:28:15 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)
1173
1172 (defun tm-vm/enclose-messages (mlist &optional preamble) 1174 (defun tm-vm/enclose-messages (mlist &optional preamble)
1173 "Enclose the messages in MLIST as multipart/digest. 1175 "Enclose the messages in MLIST as multipart/digest.
1174 The resulting digest is inserted at point in the current buffer. 1176 The resulting digest is inserted at point in the current buffer.
1175 1177
1176 MLIST should be a list of message structs (real or virtual). 1178 MLIST should be a list of message structs (real or virtual).