;ELC ;;; compiled by jwz@thalidomide on Fri Apr 8 00:19:55 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-mark.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.")) (fset 'vm-mark-status #[(markp count) " \nU\nUƪ#\nUƪ $\nUƪ $" [markp vm-mark-count count message "%d message%s marked" 1 "" "s" "%d message%s marked (total %d)" "%d message%s unmarked (%d remaining)"] 5]) (fset 'vm-clear-all-marks #[nil "!!q @HH@HI@\"A_)  \")ʉ$ " [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-message-list mp 1 2 nil vm-mark-for-summary-update t vm-mark-count omc 0 vm-mark-status vm-display (vm-clear-all-marks) (vm-clear-all-marks marking-message) vm-update-summary-and-mode-line] 6 "\ Removes all message marks in the current folder." nil]) (fset 'vm-mark-all-messages #[nil "!!q @HI@\"Ah)G  \"ω$ " [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-message-list mp 1 2 t vm-mark-for-summary-update vm-mark-count vm-mark-status vm-display nil (vm-mark-all-messages) (vm-mark-all-messages marking-message) vm-update-summary-and-mode-line] 6 "\ Mark all messages in the current folder." nil]) (fset 'vm-mark-message #[(count) "t !! q Wɪ!   U @HH @HI T  @\"SUR!K Z\",׉$ " [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty count 0 backward forward vm-abs vm-mark-count vm-message-pointer omc direction 1 2 t vm-mark-for-summary-update vm-move-message-pointer vm-mark-status vm-display nil (vm-mark-message) (vm-mark-message marking-message) vm-update-summary-and-mode-line] 6 "\ Mark the current message. Numeric prefix argument N means mark the current message and the next N-1 messages. A negative N means mark the current message and the previous N-1 messages." "p"]) (fset 'vm-unmark-message #[(count) "t !! q ! \n  @HH @HI S  @\" A Z\n Z\"*Ή$ " [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-select-marked-or-prefixed-messages count vm-mark-count omc mlist 1 2 nil vm-mark-for-summary-update t vm-mark-status vm-display (vm-unmark-message) (vm-unmark-message marking-message) vm-update-summary-and-mode-line] 6 "\ Remove the mark from the current message. Numeric prefix argument N means unmark the current message and the next N-1 messages. A negative N means unmark the current message and the previous N-1 messages." "p"]) (fset 'vm-mark-or-unmark-messages-with-selector #[(val selector arg) " \n = C \n  !P!  @HH=  @HHJHHq @HHJ\n#) @\n# @HITS @\" T  A Z!\"-܉D$ " [vm-mark-search-whole-folder vm-message-list vm-message-pointer major-mode vm-virtual-mode arg 0 vm-mark-count omc count arglist virtual mlist intern "vm-vs-" symbol-name selector val 1 2 5 9 apply vm-mark-for-summary-update t vm-mark-status vm-abs vm-display nil (vm-mark-matching-messages vm-unmark-matching-messages) this-command marking-message vm-update-summary-and-mode-line] 7]) (fset 'vm-mark-matching-messages #[(selector &optional arg) "!!q  #" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-mark-or-unmark-messages-with-selector t selector arg] 4 "\ Mark messages matching some criterion. You can use any of the virtual folder selectors, except for the `and', `or' and `not' selectors. See the documentation for the variable vm-virtual-folder-alist for more information." (byte-code " \n\n!!\nq!*" [last-command this-command vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-read-virtual-selector "Mark messages: "] 2)]) (fset 'vm-unmark-matching-messages #[(selector &optional arg) "!!q  #" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-mark-or-unmark-messages-with-selector nil selector arg] 4 "\ Unmark messages matching some criterion. You can use any of the virtual folder selectors, except for the `and', `or' and `not' selectors. See the documentation for the variable vm-virtual-folder-alist for more information." (byte-code " \n\n!!\nq!*" [last-command this-command vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-read-virtual-selector "Unmark messages: "] 2)]) (fset 'vm-mark-thread-subtree #[nil " !! q !" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-mark-or-unmark-thread-subtree t] 2 "\ Mark the all messages in the thread tree rooted at the current message." nil]) (fset 'vm-unmark-thread-subtree #[nil " !! q !" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-mark-or-unmark-thread-subtree nil] 2 "\ Unmark the all messages in the thread tree rooted at the current message." nil]) (fset 'vm-mark-or-unmark-thread-subtree #[(mark) "! @C ‰@HH =@H I T S@!@!!@ N!@!\"! JH=JH!A  Z!\",‰D$ " [vm-thread-obarray vm-build-threads nil vm-message-pointer vm-mark-count id-sym subject-sym omc list 1 2 mark vm-mark-for-summary-update vm-last vm-th-thread-list copy-sequence children intern vm-so-sortable-subject vm-thread-subject-obarray boundp 0 vm-mark-status vm-abs vm-display (vm-mark-thread-subtree vm-unmark-thread-subtree) this-command marking-message vm-update-summary-and-mode-line] 7]) (fset 'vm-mark-messages-same-subject #[nil "\"" [vm-mark-or-unmark-messages-same-subject-or-author t nil] 3 "\ Mark all messages with the same subject as the current message." nil]) (fset 'vm-unmark-messages-same-subject #[nil "\"" [vm-mark-or-unmark-messages-same-subject-or-author nil] 3 "\ Unmark all messages with the same subject as the current message." nil]) (fset 'vm-mark-messages-same-author #[nil "\"" [vm-mark-or-unmark-messages-same-subject-or-author t] 3 "\ Mark all messages with the same author as the current message." nil]) (fset 'vm-unmark-messages-same-author #[nil "\"" [vm-mark-or-unmark-messages-same-subject-or-author nil t] 3 "\ Unmark all messages with the same author as the current message." nil]) (fset 'vm-mark-or-unmark-messages-same-subject-or-author #[(mark author-p) " !! q  \n ? @!  @!  @!Ԛ@HH= @!@!@HI\nT\n\nS\n@\"A3\nZ!\"-ՉD$ " [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-mark-search-whole-folder vm-message-list vm-message-pointer vm-mark-count author-p vm-so-sortable-subject vm-su-full-name vm-su-from from name subject omc mp "" nil 1 2 mark vm-mark-for-summary-update t vm-mark-status vm-abs vm-display (vm-mark-messages-same-subject vm-mark-messages-same-author vm-unmark-messages-same-subject vm-unmark-messages-same-author) this-command marking-message vm-update-summary-and-mode-line] 7]) (fset 'vm-next-command-uses-marks #[nil "!É$" [message "Next command uses marks..." vm-display nil (vm-next-command-uses-marks) (vm-next-command-uses-marks)] 5 "\ Does nothing except insure that the next VM command will operate only on the marked messages in the current folder." nil]) (byte-code "MM" [vm-marked-messages #[nil " \n\n@HH\n@ B\nAm *" [nil vm-message-list mp list 1 2] 3] vm-mark-help #[nil "$!" [vm-display nil (vm-mark-help) (vm-mark-help) message "MM = mark, MU = unmark, Mm = mark all, Mu = unmark all, MN = use marks, ..."] 5 nil nil]] 2)