;ELC ;;; compiled by jwz@thalidomide on Sun Apr 10 01:57:08 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-delete.el ;;; emacs version 19.10 Lucid (beta13). ;;; 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.")) (fset 'vm-delete-message #[(count) "t !! q pC\"t \n= !@HH@\"TAc։C$tU!Uݪ#  ?! =! ##)+" [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 last-command vm-next-command-uses-marks vm-select-marked-or-prefixed-messages count 0 del-count mlist used-marks 2 vm-set-deleted-flag t vm-display nil (vm-delete-message vm-delete-message-backward) this-command message "No messages deleted" "%d message%s deleted" 1 "" "s" vm-update-summary-and-mode-line vm-move-after-deleting vm-circular-folders vm-next-message executing-kbd-macro] 6 "\ Add the `deleted' attribute to the current message. The message will be physically deleted from the current folder the next time the current folder is expunged. With a prefix argument COUNT, the current message and the next COUNT - 1 messages are deleted. A negative argument means the the current message and the previous COUNT - 1 messages are deleted. When invoked on marked messages (via vm-next-command-uses-marks), only marked messages are deleted, other messages are ignored." "p"]) (fset 'vm-delete-message-backward #[(count) "t \n[!" [vm-follow-summary-cursor vm-delete-message count] 2 "\ Like vm-delete-message, except the deletion direction is reversed." "p"]) (fset 'vm-undelete-message #[(count) "t !! q pC\"t \n= ! @HH@\" T Act U! Uت#Ӊ$ ?= \"#)+" [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 last-command vm-next-command-uses-marks vm-select-marked-or-prefixed-messages count 0 mlist used-marks 2 vm-set-deleted-flag nil message "No messages undeleted" "%d message%s undeleted" 1 "" "s" vm-display (vm-undelete-message) (vm-undelete-message) vm-update-summary-and-mode-line vm-move-after-undeleting vm-circular-folders t vm-next-message executing-kbd-macro] 6 "\ Remove the `deleted' attribute from the current message. With a prefix argument COUNT, the current message and the next COUNT - 1 messages are undeleted. A negative argument means the the current message and the previous COUNT - 1 messages are deleted. When invoked on marked messages (via vm-next-command-uses-marks), only marked messages are undeleted, other messages are ignored." "p"]) (fset 'vm-kill-subject #[nil " !! q pC\"t  @!   @HH@!@\"TAYtU!Uڪ#,݉$ " [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-so-sortable-subject vm-message-pointer vm-mark-search-whole-folder vm-message-list 0 t case-fold-search n mp subject 2 vm-set-deleted-flag message "No messages deleted." "%d message%s deleted" 1 "" "s" vm-display nil (vm-kill-subject) (vm-kill-subject) vm-update-summary-and-mode-line] 6 "\ Delete all messages with the same subject as the current message. Message subjects are compared after ignoring parts matched by the variables vm-subject-ignored-prefix and vm-subject-ignored-suffix." nil]) (fset 'vm-expunge-folder #[(&optional shaddap) "!!q pC\"u  !!=\"Ӊ@HHy@HHJ!@HHJRӉ @HHJ@HHJB @HHJ  Q @HHq @HHJA \"$!!(=)A(*=*+@#.T.AAA@HHLAAA@HHL@HH AL!* A +@HHJHH@@HHJHHJ\"L(=)A(*=* \"$!!+AAA@HHLAAA@HHL@#!@HH1S1.T.)@H@HHJH=ڊ@HHJHHq deZVӉ345 eӓ4 dӓ3~8@HHJHH@HHJHH|.AHӉ$\") ?!!-" [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-update-summary-and-mode-line shaddap message "Expunging..." vm-select-marked-or-prefixed-messages 0 vm-message-list major-mode vm-virtual-mode make-vector 29 nil virtual-messages prev buffers-altered virtual mp 2 vm-thread-obarray vm-unthread-message 1 5 4 curr vms 9 6 intern vm-numbering-redo-start-point vm-set-numbering-redo-start-point t vm-set-summary-redo-start-point vm-message-pointer vm-system-state vm-last-message-pointer inhibit-quit vm-set-deleted-flag expunged vm-modification-counter vm-set-buffer-modified-p delq vm-mark-count buffer-size vm-sr-max vm-sr-min vm-sr-clip make-marker ((byte-code "~ \n} É\nÉÇ" [vm-sr-clip vm-sr-min vm-sr-max nil] 3)) buffer-read-only vm-display (vm-expunge-folder) (vm-expunge-folder) mapatoms #[(buffer) " !q\n  =\n \n " [symbol-name buffer vm-system-state vm-message-pointer nil vm-folder-type vm-update-summary-and-mode-line vm-preview-current-message major-mode vm-virtual-mode vm-message-order-changed vm-message-order-header-present vm-clear-expunge-invalidated-undos] 2] "Deleted messages expunged." "No messages are flagged for deletion."] 6 "\ Expunge messages with the `deleted' attribute. For normal folders this means that the deleted messages are removed from the message list and the message contents are removed from the folder buffer. For virtual folders, messages are removed from the virtual message list. If virtual mirroring is in effect for the virtual folder, the corresponding real messages are also removed from real message lists and the message contents are removed from real folders. When invoked on marked messages (via vm-next-command-uses-marks), only messages both marked and deleted are expunged, other messages are ignored." nil])