← Back to branch summary

~ubuntu-branches/ubuntu/hardy/vm/hardy

« back to all changes in this revision

Viewing changes to vm-message.el

  • Committer: Bazaar Package Importer
  • Author(s): Manoj Srivastava
  • Date: 2005-05-02 23:57:59 UTC
  • mfrom: (2.1.2 hoary)
  • Revision ID: james.westby@ubuntu.com-20050502235759-lsq60hinwkchrbxp
Tags: 7.19-4
http://bugs.debian.org/306876
http://bugs.debian.org/303519
* Bug fix: "vm: Please do not discriminate against XEmacs", thanks to
  Dirk Eddelbuettel. Well, back in the mists of time, VM was packaged to
  be byte-compiled for XEmacs, but the XEmacs maintainer at that time
  asked me to cease and desist. Times change, so that is reverted. 
                                                        (Closes: #306876).
* Bug fix: "vm: purge doesn't", thanks to Ian Zimmerman. This should be
  better.                                               (Closes: #303519).

Show diffs side-by-side

added added

removed removed

Lines of Context:
vm-message.el
15
15
;;; along with this program; if not, write to the Free Software
16
16
;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17
17
 
18
 
(provide 'vm-message)
 
18
;;(provide 'vm-message)
19
19
 
20
20
;; data that is always shared with virtual folders
21
21
(defsubst vm-location-data-of (message)
100
100
  (aref (aref message 1) 17))
101
101
(defsubst vm-su-summary-mouse-track-overlay-of (message)
102
102
  (aref (aref message 1) 18))
103
 
(defsubst vm-message-access-method (message)
 
103
(defsubst vm-message-access-method-of (message)
104
104
  (aref (aref message 1) 19))
105
105
;; message attribute vector
106
106
(defsubst vm-attributes-of (message) (aref message 2))
175
175
;; pop UIDL value for message
176
176
(defsubst vm-pop-uidl-of (message)
177
177
  (aref (aref message 3) 23))
 
178
;; imap UID value for message (shares same slot as pop-uidl-of)
 
179
(defsubst vm-imap-uid-of (message)
 
180
  (aref (aref message 3) 23))
 
181
(defsubst vm-imap-uid-validity-of (message)
 
182
  (aref (aref message 3) 24))
178
183
;; extra data shared by virtual messages if vm-virtual-mirror is non-nil
179
184
(defsubst vm-mirror-data-of (message) (aref message 4))
180
185
;; if message is being edited, this is the buffer being used.
182
187
;; list of virtual messages mirroring the underlying real message
183
188
(defsubst vm-virtual-messages-of (message)
184
189
  (symbol-value (aref (aref message 4) 1)))
185
 
;; modification flag for this message
186
190
;; nil if all attribute changes have been stuffed into the folder buffer
187
 
(defsubst vm-modflag-of (message) (aref (aref message 4) 2))
 
191
(defsubst vm-stuff-flag-of (message) (aref (aref message 4) 2))
188
192
;; list of labels attached to this message
189
193
(defsubst vm-labels-of (message) (aref (aref message 4) 3))
190
194
;; comma list of labels
191
195
(defsubst vm-label-string-of (message) (aref (aref message 4) 4))
 
196
;; attribute modification flag for this message
 
197
;; non-nil if attributes need to be saved
 
198
(defsubst vm-attribute-modflag-of (message) (aref (aref message 4) 5))
192
199
 
193
200
(defsubst vm-set-location-data-of (message vdata) (aset message 0 vdata))
194
201
(defsubst vm-set-start-of (message start)
254
261
  (vm-mark-for-summary-update message)
255
262
  (if (eq vm-flush-interval t)
256
263
      (vm-stuff-virtual-attributes message)
257
 
    (vm-set-modflag-of message t))
 
264
    (vm-set-stuff-flag-of message t))
258
265
  (and (not (buffer-modified-p)) (vm-set-buffer-modified-p t))
259
266
  (vm-clear-modification-flag-undos))
260
267
(defsubst vm-set-cache-of (message cache) (aset message 3 cache))
306
313
  (aset (aref message 3) 22 val))
307
314
(defsubst vm-set-pop-uidl-of (message val)
308
315
  (aset (aref message 3) 23 val))
 
316
(defsubst vm-set-imap-uid-of (message val)
 
317
  (aset (aref message 3) 23 val))
 
318
(defsubst vm-set-imap-uid-validity-of (message val)
 
319
  (aset (aref message 3) 24 val))
309
320
(defsubst vm-set-mirror-data-of (message data)
310
321
  (aset message 4 data))
311
322
(defsubst vm-set-edit-buffer-of (message buf)
314
325
  (set (aref (aref message 4) 1) list))
315
326
(defsubst vm-set-virtual-messages-sym-of (message sym)
316
327
  (aset (aref message 4) 1 sym))
317
 
(defsubst vm-set-modflag-of (message val)
 
328
(defsubst vm-set-stuff-flag-of (message val)
318
329
  (aset (aref message 4) 2 val))
319
330
(defsubst vm-set-labels-of (message labels)
320
331
  (aset (aref message 4) 3 labels))
321
332
(defsubst vm-set-label-string-of (message string)
322
333
  (aset (aref message 4) 4 string))
 
334
(defsubst vm-set-attribute-modflag-of (message flag)
 
335
  (aset (aref message 4) 5 flag))
323
336
 
324
337
(defun vm-make-message ()
325
338
  (let ((v (make-vector 5 nil)) sym)
358
371
 
359
372
(defun vm-virtual-message-p (m)
360
373
  (not (eq m (vm-real-message-of m))))
 
374
 
 
375
(provide 'vm-message)