;ELC ;;; compiled by jwz@thalidomide on Fri Apr 8 00:22:48 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-undo.el ;;; emacs version 19.10 Lucid (beta12). ;;; bytecomp version 2.23; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "MMMMMMMMM" [vm-set-buffer-modified-p #[(flag &optional buffer) "q\n! T \"\n?lj)" [buffer set-buffer-modified-p flag vm-modification-counter intern buffer-name vm-buffers-needing-display-update 0 vm-messages-not-on-disk] 3] vm-undo-boundary #[nil "@B" [vm-undo-record-list nil] 2] vm-clear-expunge-invalidated-undos #[nil " @  @@= @A@HH=\n\n A A  AN* " [vm-undo-record-list nil udp-prev udp vm-set-buffer-modified-p 2 expunged vm-clear-modification-flag-undos] 3] vm-clear-virtual-quit-invalidated-undos #[nil " @  @@= @A@HHǚ\n\n A A  AN* " [vm-undo-record-list nil udp-prev udp vm-set-buffer-modified-p 1 8 "Q" vm-clear-modification-flag-undos] 3] vm-clear-modification-flag-undos #[nil " @  @@=\n\n A A  AZ *" [vm-undo-record-list nil udp-prev udp vm-set-buffer-modified-p vm-squeeze-consecutive-undo-boundaries] 3] vm-squeeze-consecutive-undo-boundaries #[nil " @\n\n@\n A  AfĚ*" [vm-undo-record-list nil udp-prev udp (nil)] 3] vm-undo-record #[(sexp) " B" [sexp vm-undo-record-list] 2] vm-undo-describe #[(record) "@A@ HH! HH8 8 A@8 A@ 8% @=8 HH! HH Ϫ Ѫ #%+" [record ((vm-set-new-flag "new" "old") (vm-set-unread-flag "unread" "read") (vm-set-deleted-flag "deleted" "undeleted") (vm-set-forwarded-flag "forwarded" "unforwarded") (vm-set-replied-flag "answered" "unanswered") (vm-set-redistributed-flag "redistributed" "unredistributed") (vm-set-filed-flag "filed" "unfiled") (vm-set-written-flag "written" "unwritten")) nil labels m cell message "VM Undo! %s/%s %s -> %s" buffer-name 1 9 0 2 vm-set-labels "VM Undo! %s/%s %s%s" "lost all its labels" "labels set to " "" mapconcat identity ", "] 10] vm-undo-set-message-pointer #[(record) "@=?A@\n=?\nA@HHJA\" )" [record vm-set-buffer-modified-p vm-message-pointer vm-record-and-change-message-pointer 1 6 vm-message-list t vm-folder-read-only vm-preview-current-message] 4]] 2) (fset 'vm-undo #[nil "!!q Ɖ$ \n = !A@@!@!@!Ac\n )" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-display nil (vm-undo) (vm-undo) buffer-modified-p modified last-command vm-undo vm-undo-record-list vm-undo-record-pointer "No further VM undo information available" vm-undo-set-message-pointer vm-undo-describe eval delete-auto-save-file-if-necessary vm-update-summary-and-mode-line] 6 "\ 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." nil]) (fset 'vm-set-message-attributes #[(string count) " !! q pC\"t ˉ$\"!ˉ@@ؘ\"ۘ\"ܘ\"ޘ\"ߘ\"\"\"☫\"䘫\"嘫\"瘫\"阫\"똫\"혫HI𘫈\"񘫈\"򘫈\"󘫈\"\"\"\"HIATAG -" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-folder-read-only signal folder-read-only vm-error-if-folder-empty vm-display nil (vm-set-message-attributes) (vm-set-message-attributes) vm-parse string "[ ]*\\([^ ]+\\)" vm-select-marked-or-prefixed-messages count m name n-list m-list name-list "new" vm-set-new-flag t "recent" "unread" vm-set-unread-flag "unseen" "read" "deleted" vm-set-deleted-flag "replied" vm-set-replied-flag "answered" "forwarded" vm-set-forwarded-flag "redistributed" vm-set-redistributed-flag "filed" vm-set-filed-flag "written" vm-set-written-flag "edited" 2 7 "undeleted" "unreplied" "unanswered" "unforwarded" "unredistributed" "unfiled" "unwritten" "unedited" vm-update-summary-and-mode-line] 6 "\ Set message attributes. Use this command to change attributes like `deleted' or `replied'. Interactively you will be prompted for the attributes to be changed, and only the attributes you enter will be altered. You can use completion to expand the attribute names. The names should be entered as a space separated list. A numeric prefix argument COUNT causes the current message and the next COUNT-1 message to have their attributes altered. A negative COUNT arg causes the current message and the previous COUNT-1 messages to be altered. COUNT defaults to one." (byte-code "  #!*D" [last-command this-command vm-follow-summary-cursor vm-read-string "Set attributes: " vm-supported-attribute-names t prefix-numeric-value current-prefix-arg] 4)]) (fset 'vm-add-message-labels #[(string count) " !! q pC\"t   #" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-folder-read-only signal folder-read-only vm-error-if-folder-empty vm-add-or-delete-message-labels string count t] 4 "\ Attach some labels to a message. These are arbitrary user-defined labels, not to be confused with message attributes like `new' and `deleted'. Interactively you will be prompted for the labels to be added. You can use completion to expand the label names, with the completion list being all the labels that have ever been used in this folder. The names should be entered as a space separated list. Label names are compared case-insensitively. A numeric prefix argument COUNT causes the current message and the next COUNT-1 message to have the labels added. A negative COUNT arg causes the current message and the previous COUNT-1 messages to be altered. COUNT defaults to one." (byte-code "  !!q!#!,D" [last-command this-command nil t completion-ignore-case vm-completion-auto-correct vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-read-string "Add labels: " vm-obarray-to-string-list vm-label-obarray prefix-numeric-value current-prefix-arg] 4)]) (fset 'vm-delete-message-labels #[(string count) " !! q pC\"t   #" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-folder-read-only signal folder-read-only vm-error-if-folder-empty vm-add-or-delete-message-labels string count nil] 4 "\ Delete some labels from a message. These are arbitrary user-defined labels, not to be confused with message attributes like `new' and `deleted'. Interactively you will be prompted for the labels to be deleted. You can use completion to expand the label names, with the completion list being all the labels that have ever been used in this folder. The names should be entered as a space separated list. Label names are compared case-insensitively. A numeric prefix argument COUNT causes the current message and the next COUNT-1 message to have the labels deleted. A negative COUNT arg causes the current message and the previous COUNT-1 messages to be altered. COUNT defaults to one." (byte-code "  !!q!#!,D" [last-command this-command nil t completion-ignore-case vm-completion-auto-correct vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-read-string "Delete labels: " vm-obarray-to-string-list vm-label-obarray prefix-numeric-value current-prefix-arg] 4)]) (byte-code "MMMMMMMMMMMMMMMMMMMMM" [vm-add-or-delete-message-labels #[(string count add) " C$ ! \" \n       @\" A p    @HH!\n   @\nB\n A n  @\n\"\n A o \n!\n @\n\" A *, " [vm-display nil (vm-add-message-labels vm-delete-message-labels) this-command string vm-select-marked-or-prefixed-messages count vm-parse "[- ,-]*\\([^- ,-]+\\)[- ,-]*" act-labels labels action-labels m-list add intern vm-label-obarray copy-sequence 4 3 vm-delqual vm-delete-duplicates vm-set-labels vm-update-summary-and-mode-line] 6] vm-set-xxxx-flag #[(m flag norecord function attr-index) " ? HHJ HHJHHq )? H\n I ! ?= ! HI HHJ HHJB H @H= @\nB Ak\n \nB\n\n@HHq !D!  ?E! T)\nAP*" [nil vmp m-list vm-folder-read-only m 4 1 5 9 2 attr-index flag vm-mark-for-summary-update norecord vm-flush-interval t vm-stuff-virtual-attributes buffer-modified-p vm-set-buffer-modified-p vm-undo-record function vm-undo-boundary vm-modification-counter] 5] vm-set-labels #[(m labels) " HH? HHJ HHJHHq)? H I HI ! = ! HI HHJ HHJB H @H= @B Ai B@HHq !D! E! T)AP+" [nil m 4 3 vmp old-labels m-list vm-folder-read-only 1 5 9 labels vm-mark-for-summary-update vm-flush-interval t vm-stuff-virtual-attributes 2 buffer-modified-p vm-set-buffer-modified-p vm-undo-record vm-set-labels vm-undo-boundary vm-modification-counter] 5] vm-set-new-flag #[(m flag &optional norecord) " \n %" [vm-set-xxxx-flag m flag norecord vm-set-new-flag 0] 6] vm-set-unread-flag #[(m flag &optional norecord) " \n %" [vm-set-xxxx-flag m flag norecord vm-set-unread-flag 1] 6] vm-set-deleted-flag #[(m flag &optional norecord) " \n %" [vm-set-xxxx-flag m flag norecord vm-set-deleted-flag 2] 6] vm-set-filed-flag #[(m flag &optional norecord) " \n %" [vm-set-xxxx-flag m flag norecord vm-set-filed-flag 3] 6] vm-set-replied-flag #[(m flag &optional norecord) " \n %" [vm-set-xxxx-flag m flag norecord vm-set-replied-flag 4] 6] vm-set-written-flag #[(m flag &optional norecord) " \n %" [vm-set-xxxx-flag m flag norecord vm-set-written-flag 5] 6] vm-set-forwarded-flag #[(m flag &optional norecord) " \n %" [vm-set-xxxx-flag m flag norecord vm-set-forwarded-flag 6] 6] vm-set-redistributed-flag #[(m flag &optional norecord) " \n %" [vm-set-xxxx-flag m flag norecord vm-set-forwarded-flag 8] 6] vm-set-new-flag-of #[(m flag) "H I" [m 2 0 flag] 3] vm-set-unread-flag-of #[(m flag) "H I" [m 2 1 flag] 3] vm-set-deleted-flag-of #[(m flag) "H\nI" [m 2 flag] 3] vm-set-filed-flag-of #[(m flag) "H I" [m 2 3 flag] 3] vm-set-replied-flag-of #[(m flag) "H I" [m 2 4 flag] 3] vm-set-written-flag-of #[(m flag) "H I" [m 2 5 flag] 3] vm-set-forwarded-flag-of #[(m flag) "H I" [m 2 6 flag] 3] vm-set-redistributed-flag-of #[(m flag) "H I" [m 2 8 flag] 3] vm-set-deleted-flag-in-vector #[(v flag) "\nI" [v 2 flag] 3] vm-set-new-flag-in-vector #[(v flag) "\nI" [v 0 flag] 3]] 2)