(defun vm-delete-message (count) "\ 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, the next COUNT messages are deleted. A negative argument means the previous COUNT messages are deleted. When invoked on marked messages (via vm-next-command-uses-marks), all marked messages are deleted, other messages are ignored." (interactive "p") (byte-code "ˆt !q !& !?&‰ 4pC\"' =!c@HH?X@\"AB  n ?x #*" [vm-mail-buffer vm-summary-buffer nil vm-folder-read-only used-marks last-command mlist count t vm-move-after-deleting executing-kbd-macro vm-follow-summary-cursor buffer-name bufferp signal folder-read-only vm-error-if-folder-empty vm-next-command-uses-marks vm-select-marked-or-prefixed-messages 2 vm-set-deleted-flag vm-update-summary-and-mode-line vm-next-message] 13)) (defun vm-delete-message-backward (count) "\ Like vm-delete-message, except that the deletion direction is reversed." (interactive "p") (byte-code "ˆ [!)" [prefix-arg count nil command-execute vm-delete-message] 2)) (defun vm-undelete-message (count) "\ Remove the `deleted' attribute from the current message. With a prefix argument, the next COUNT messages are undeleted. A negative argument means the previous COUNT messages are undeleted. When invoked on marked messages (via vm-next-command-uses-marks), all marked messages are undeleted, other messages are ignored." (interactive "p") (byte-code "ˆt !q !& !?&‰ 4pC\"' =!b@HHW@\"AB m ?w #*" [vm-mail-buffer vm-summary-buffer nil vm-folder-read-only used-marks last-command mlist count vm-move-after-undeleting t executing-kbd-macro vm-follow-summary-cursor buffer-name bufferp signal folder-read-only vm-error-if-folder-empty vm-next-command-uses-marks vm-select-marked-or-prefixed-messages 2 vm-set-deleted-flag vm-update-summary-and-mode-line vm-next-message] 13)) (defun vm-kill-subject nil "\ Delete all messages with the same subject as the current message (ignoring re:'s)." (interactive) (byte-code "ˆ !q !\" !?\"‰ 0pC\"# @! \"O !O !Q@HH?q @!\"@\"TAYt!!U߂#+ " [vm-mail-buffer vm-summary-buffer nil vm-folder-read-only subject vm-message-pointer mp vm-message-list n t vm-follow-summary-cursor buffer-name bufferp signal folder-read-only vm-error-if-folder-empty vm-su-subject 0 string-match "^\\(re: *\\)+" match-end "^\\(re: *\\)*" regexp-quote " *$" 2 vm-set-deleted-flag zerop message "No messages deleted." "%d message%s deleted" 1 "" "s" vm-update-summary-and-mode-line] 20)) (defun vm-expunge-folder (&optional quitting shaddap) "\ Expunge deleted messages, but don't save folder to disk or exit VM." (interactive) (byte-code "ˆ!q ! !?‰ -pC\" !9! ?B!   ‰  ? ?l! ??~ ? !*" [vm-mail-buffer vm-summary-buffer nil vm-folder-read-only vm-virtual-buffers shaddap inhibit-quit t did-gobble vm-numbering-redo-start-point vm-summary-redo-start-point vm-totals quitting vm-message-pointer vm-message-list vm-system-state buffer-name bufferp signal folder-read-only vm-trim-dead-buffers error "Can't execute command: folder is referenced virtually." message "Expunging..." vm-gobble-deleted-messages vm-deferred-message "Deleted messages expunged." vm-update-summary-and-mode-line vm-next-message vm-preview-current-message "No messages are flagged for deletion."] 15)) (defun vm-gobble-deleted-messages nil (byte-code " deZV! e\"! d\"Վ    I @ @HHJ=? @HH?b  pm   @HH @HH\"? A @HHL A\" A A@HHL AM  =̉  / ! @HHˉ@HH,ˉA  @HH! A  ) ! .)+)" [vm-sr-clip vm-sr-min vm-sr-max mp vm-message-list old-message-list virtual prev buffer-read-only tail-cons did-gobble nil t vm-message-order-changed vm-message-order-stuffed vm-last-message-pointer vm-message-pointer vm-system-state buffer-size set-marker make-marker ((byte-code "  \" \" \"" [vm-sr-clip vm-sr-min vm-sr-max nil widen narrow-to-region set-marker] 6)) widen 0 6 2 delete-region 3 8 setcdr vm-clear-expunge-invalidated-undos vm-set-buffer-modified-p vm-last] 13))