Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-message.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 859a2309aef8
children 131b0175ea99
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
137 (defmacro vm-sortable-datestring-of (message) 137 (defmacro vm-sortable-datestring-of (message)
138 (list 'aref (list 'aref message 3) 16)) 138 (list 'aref (list 'aref message 3) 16))
139 ;; sortable subject, re: garbage removed 139 ;; sortable subject, re: garbage removed
140 (defmacro vm-sortable-subject-of (message) 140 (defmacro vm-sortable-subject-of (message)
141 (list 'aref (list 'aref message 3) 17)) 141 (list 'aref (list 'aref message 3) 17))
142 ;; tokenized summary entry
142 (defmacro vm-summary-of (message) 143 (defmacro vm-summary-of (message)
143 (list 'aref (list 'aref message 3) 18)) 144 (list 'aref (list 'aref message 3) 18))
145 ;; parent of this message, as determined by threading
144 (defmacro vm-parent-of (message) 146 (defmacro vm-parent-of (message)
145 (list 'aref (list 'aref message 3) 19)) 147 (list 'aref (list 'aref message 3) 19))
148 ;; message IDs parsed from References header
149 (defmacro vm-references-of (message)
150 (list 'aref (list 'aref message 3) 20))
146 ;; extra data shared by virtual messages if vm-virtual-mirror is non-nil 151 ;; extra data shared by virtual messages if vm-virtual-mirror is non-nil
147 (defmacro vm-mirror-data-of (message) (list 'aref message 4)) 152 (defmacro vm-mirror-data-of (message) (list 'aref message 4))
148 ;; if message is being edited, this is the buffer being used. 153 ;; if message is being edited, this is the buffer being used.
149 (defmacro vm-edit-buffer-of (message) (list 'aref (list 'aref message 4) 0)) 154 (defmacro vm-edit-buffer-of (message) (list 'aref (list 'aref message 4) 0))
150 ;; list of virtual messages mirroring the underlying real message 155 ;; list of virtual messages mirroring the underlying real message
260 (list 'aset (list 'aref message 3) 17 val)) 265 (list 'aset (list 'aref message 3) 17 val))
261 (defmacro vm-set-summary-of (message val) 266 (defmacro vm-set-summary-of (message val)
262 (list 'aset (list 'aref message 3) 18 val)) 267 (list 'aset (list 'aref message 3) 18 val))
263 (defmacro vm-set-parent-of (message val) 268 (defmacro vm-set-parent-of (message val)
264 (list 'aset (list 'aref message 3) 19 val)) 269 (list 'aset (list 'aref message 3) 19 val))
270 (defmacro vm-set-references-of (message val)
271 (list 'aset (list 'aref message 3) 20 val))
265 (defmacro vm-set-mirror-data-of (message data) 272 (defmacro vm-set-mirror-data-of (message data)
266 (list 'aset message 4 data)) 273 (list 'aset message 4 data))
267 (defmacro vm-set-edit-buffer-of (message buf) 274 (defmacro vm-set-edit-buffer-of (message buf)
268 (list 'aset (list 'aref message 4) 0 buf)) 275 (list 'aset (list 'aref message 4) 0 buf))
269 (defmacro vm-set-virtual-messages-of (message list) 276 (defmacro vm-set-virtual-messages-of (message list)