(defun vm-set-buffer-modified-p (flag &optional clear-modflags buffer) (byte-code "Š…qˆ ??‰ =ƒÂLÉ !ˆ T‰ˆ ?…Dʉˆ…C …C @ËÃIˆ A‰ˆ‚1)ˆ …J̉)‡" [buffer flag vm-buffer-modified-p nil vm-modification-counter mp vm-message-list vm-messages-not-on-disk clear-modflags set-buffer-modified-p 0 4 "--**-"] 5)) (defun vm-sanity-check-modification-flag nil (byte-code "??Á =?…ÂÁ !‡" [vm-buffer-modified-p buffer-modified-p vm-set-buffer-modified-p] 4)) (defun vm-undo-boundary nil (byte-code "@… ÁB‰‡" [vm-undo-record-list nil] 2)) (defun vm-clear-expunge-invalidated-undos (&optional real-folder) (byte-code " È…[@?ƒ‰‚R@@É=?…9@A@ÊHÊH…9 ?†9 Ë@A@ÌHÌH!=ƒO ƒHÍ A\"‚LA‰‚R‰ˆA‰ˆ‚ˆ ?…‡ …‡ pŠ……@qˆÎ!ˆA‰ˆ‚l)*ˆÏ !*‡" [udp vm-undo-record-list udp-prev real-folder t vm-virtual-buffers b-list curbuf nil vm-set-buffer-modified-p 2 marker-buffer 0 setcdr vm-clear-expunge-invalidated-undos vm-clear-modification-flag-undos] 6)) (defun vm-clear-modification-flag-undos (&optional real-folder) (byte-code " È…I@?ƒ‰‚@@@É=…' ?†' Ê@!=ƒ= ƒ6Ë A\"‚:A‰‚@‰ˆA‰ˆ‚ˆÌ ˆ ?…x …x pŠ…v@qˆÍ!ˆA‰ˆ‚])**‡" [udp vm-undo-record-list udp-prev real-folder t vm-virtual-buffers b-list curbuf nil vm-set-buffer-modified-p vm-last setcdr vm-squeeze-consecutive-undo-boundaries vm-clear-modification-flag-undos] 7)) (defun vm-squeeze-consecutive-undo-boundaries nil (byte-code " Ä…,@?… … @?ƒ Å A\"‚#‰ˆA‰ˆ‚ˆÆÇ \"…7ĉ*‡" [udp vm-undo-record-list udp-prev t nil setcdr equal (nil)] 4)) (defun vm-undo-record (sexp) (byte-code " B‰‡" [vm-undo-record-list sexp] 2)) (defun vm-undo nil "\ Undo last change to message attributes in the current folder. Consecutive invocations of this command cause sequentially earlier changes to be undone. After an intervening command between undos, the undos themselves become undoable." (interactive) (byte-code "ˆ…É!…qˆÊ !…É !?…‰ˆÄË Ì=?…2‰ˆ?…<ÍÎ!ˆA‰ˆ@…ZÏ@!ˆA‰ˆ‚DˆÐÑ!ˆ …kË ?…kÒ ˆÓ *‡" [vm-mail-buffer vm-summary-buffer nil inhibit-quit t modified last-command vm-undo-record-pointer vm-undo-record-list buffer-name bufferp buffer-modified-p vm-undo error "No further VM undo information available" eval message "VM Undo!" delete-auto-save-file-if-necessary vm-update-summary-and-mode-line] 11)) (defun vm-set-xxxx-flag (m flag norecord function attr-index) (byte-code "ÁÍÍÍÒHÓHJ=?ŠÔ ƒ#ÕHÖH‚)ÒHÒH!qˆ)ÖHÒHÓHJÖH=…NÒHÓHJÁ‰ˆ?…cÖH  Iˆ×!ˆ ?…m?…ŠÔ …x ?ƒ„ÕHÖH‚ŠÒHÒH!qˆ ?…¥p‰ˆØÁ!ˆÙØÍD!ˆÍ‰ˆÙ ?E!ˆÚ ˆT‰ˆÁ=ƒÉÛ!‚ÎÜÁI)ˆÒHÝH‰ˆ …Š …Ô @ÕHÖH!qˆ …÷ÙØÍÍ F!ˆÙ ?E!ˆÚ ˆT‰ˆÍ‰ˆ A‰ˆ‚Þ).‡" [inhibit-quit t m-list modflag-buffer mirror virtual m read-only vm-folder-read-only attr-index flag norecord vm-buffer-modified-p nil vm-totals function vm-modification-counter vm-flush-interval 0 6 marker-buffer 1 2 vm-mark-for-display-update vm-set-buffer-modified-p vm-undo-record vm-undo-boundary vm-stuff-virtual-attributes 4 7] 15)) (defun vm-set-new-flag (m flag &optional norecord) (byte-code "à ÄÅ%‡" [m flag norecord vm-set-xxxx-flag vm-set-new-flag 0] 6)) (defun vm-set-unread-flag (m flag &optional norecord) (byte-code "à ÄÅ%‡" [m flag norecord vm-set-xxxx-flag vm-set-unread-flag 1] 6)) (defun vm-set-deleted-flag (m flag &optional norecord) (byte-code "à ÄÅ%‡" [m flag norecord vm-set-xxxx-flag vm-set-deleted-flag 2] 6)) (defun vm-set-filed-flag (m flag &optional norecord) (byte-code "à ÄÅ%‡" [m flag norecord vm-set-xxxx-flag vm-set-filed-flag 3] 6)) (defun vm-set-replied-flag (m flag &optional norecord) (byte-code "à ÄÅ%‡" [m flag norecord vm-set-xxxx-flag vm-set-replied-flag 4] 6)) (defun vm-set-written-flag (m flag &optional norecord) (byte-code "à ÄÅ%‡" [m flag norecord vm-set-xxxx-flag vm-set-written-flag 5] 6)) (defun vm-set-forwarded-flag (m flag &optional norecord) (byte-code "à ÄÅ%‡" [m flag norecord vm-set-xxxx-flag vm-set-forwarded-flag 6] 6)) (defun vm-set-deleted-flag-in-vector (v flag) (byte-code " I‡" [v flag 2] 3))