Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-message.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 376386a54a3c
children c53a95d3c46d
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
1 ;;; Macros and functions dealing with accessing VM message struct fields 1 ;;; Macros and functions dealing with accessing VM message struct fields
2 ;;; Copyright (C) 1989, 1990, 1991, 1993, 1994, 1995 Kyle E. Jones 2 ;;; Copyright (C) 1989-1997 Kyle E. Jones
3 ;;; 3 ;;;
4 ;;; This program is free software; you can redistribute it and/or modify 4 ;;; This program is free software; you can redistribute it and/or modify
5 ;;; it under the terms of the GNU General Public License as published by 5 ;;; it under the terms of the GNU General Public License as published by
6 ;;; the Free Software Foundation; either version 1, or (at your option) 6 ;;; the Free Software Foundation; either version 1, or (at your option)
7 ;;; any later version. 7 ;;; any later version.
79 (defmacro vm-saved-virtual-mirror-data-of (message) 79 (defmacro vm-saved-virtual-mirror-data-of (message)
80 (list 'aref (list 'aref message 1) 14)) 80 (list 'aref (list 'aref message 1) 14))
81 ;; summary for unmirrored virtual message 81 ;; summary for unmirrored virtual message
82 (defmacro vm-virtual-summary-of (message) 82 (defmacro vm-virtual-summary-of (message)
83 (list 'aref (list 'aref message 1) 15)) 83 (list 'aref (list 'aref message 1) 15))
84 ;; MIME layout information; types, ids, positions, etc. of all MIME entities
85 (defmacro vm-mime-layout-of (message)
86 (list 'aref (list 'aref message 1) 16))
87 (defmacro vm-mime-encoded-header-flag-of (message)
88 (list 'aref (list 'aref message 1) 17))
84 ;; message attribute vector 89 ;; message attribute vector
85 (defmacro vm-attributes-of (message) (list 'aref message 2)) 90 (defmacro vm-attributes-of (message) (list 'aref message 2))
86 (defmacro vm-new-flag (message) (list 'aref (list 'aref message 2) 0)) 91 (defmacro vm-new-flag (message) (list 'aref (list 'aref message 2) 0))
87 (defmacro vm-unread-flag (message) (list 'aref (list 'aref message 2) 1)) 92 (defmacro vm-unread-flag (message) (list 'aref (list 'aref message 2) 1))
88 (defmacro vm-deleted-flag (message) (list 'aref (list 'aref message 2) 2)) 93 (defmacro vm-deleted-flag (message) (list 'aref (list 'aref message 2) 2))
200 (list 'aset (list 'aref message 1) 13 attrs)) 205 (list 'aset (list 'aref message 1) 13 attrs))
201 (defmacro vm-set-saved-virtual-mirror-data-of (message data) 206 (defmacro vm-set-saved-virtual-mirror-data-of (message data)
202 (list 'aset (list 'aref message 1) 14 data)) 207 (list 'aset (list 'aref message 1) 14 data))
203 (defmacro vm-set-virtual-summary-of (message summ) 208 (defmacro vm-set-virtual-summary-of (message summ)
204 (list 'aset (list 'aref message 1) 15 summ)) 209 (list 'aset (list 'aref message 1) 15 summ))
210 (defmacro vm-set-mime-layout-of (message layout)
211 (list 'aset (list 'aref message 1) 16 layout))
212 (defmacro vm-set-mime-encoded-header-flag-of (message flag)
213 (list 'aset (list 'aref message 1) 17 flag))
205 (defmacro vm-set-attributes-of (message attrs) (list 'aset message 2 attrs)) 214 (defmacro vm-set-attributes-of (message attrs) (list 'aset message 2 attrs))
206 ;; The other routines in attributes group are part of the undo system. 215 ;; The other routines in attributes group are part of the undo system.
207 (defun vm-set-edited-flag-of (message flag) 216 (defun vm-set-edited-flag-of (message flag)
208 (aset (aref message 2) 7 flag) 217 (aset (aref message 2) 7 flag)
209 (vm-mark-for-summary-update message) 218 (vm-mark-for-summary-update message)