;ELC ;;; compiled by jwz@thalidomide on Sat Apr 16 17:48:28 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-motion.el ;;; emacs version 19.10 Lucid (beta15). ;;; 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-record-and-change-message-pointer #[(old new) " \n\"  lj" [intern buffer-name vm-buffers-needing-display-update old vm-last-message-pointer new vm-message-pointer t vm-need-summary-pointer-update] 3]) (fset 'vm-goto-message #[(n) "?? !! q ȉ$S  ! =  \" )" [n vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-display nil (vm-goto-message) (vm-goto-message) vm-message-list cons "No such message." vm-message-pointer vm-preview-current-message vm-record-and-change-message-pointer] 6 "\ Go to the message numbered N. Interactively N is the prefix argument. If no prefix arg is provided N is prompted for in the minibuffer. If vm-follow-summary-cursor is non-nil this command will go to the message under the cursor in the summary buffer if the summary window is selected. This only happens if no prefix argument is given." (byte-code "! ê !*C" [current-prefix-arg prefix-numeric-value vm-follow-summary-cursor nil last-command this-command vm-read-number "Go to message: "] 2)]) (fset 'vm-goto-message-last-seen #[nil "!!q lj$\n \n\" " [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-display nil (vm-goto-message-last-seen) (vm-goto-message-last-seen) vm-last-message-pointer vm-record-and-change-message-pointer vm-message-pointer vm-preview-current-message] 5 "\ Go to the message last previewed." nil]) (fset 'vm-goto-parent-message #[nil " !! q !ɉ$@!A!AAAt@N@!>\" *" [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-thread-obarray vm-build-threads nil vm-display (vm-goto-parent-message) (vm-goto-parent-message) vm-th-thread-list vm-message-pointer message list "Message has no parent." messages "Parent message is not in this folder." vm-record-and-change-message-pointer vm-message-list vm-preview-current-message] 6 "\ Go to the parent of the current message." nil]) (fset 'vm-goto-message-id #[(id) "!!q lj$\n    @!    A g  \" \" *" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-display nil (vm-goto-message-id) (vm-goto-message-id) vm-message-list ptr rest id vm-su-message-id "Message id not found in this folder: %s" vm-record-and-change-message-pointer vm-message-pointer t vm-need-summary-pointer-update vm-preview-current-message] 6 "\ Select the message with the given message ID." "sMessage ID: "]) (byte-code "MMM" [vm-check-count #[(count) "Y\nGW\"G\nGZT!W\"" [count 0 vm-message-pointer signal end-of-folder nil vm-message-list vm-abs beginning-of-folder] 3] vm-move-message-pointer #[(direction) "\n= A \" @HHJ !\" )" [vm-message-pointer mp direction forward vm-circular-folders vm-message-list signal end-of-folder nil 1 6 vm-last beginning-of-folder] 4] vm-should-skip-message #[(mp &optional skip-dogmatically) " \n@HH \n@HH\n@HH\n@HH?=\n@HH? =\n@HH =\n@HH\n@HH\n@HH?=\n@HH?" [skip-dogmatically vm-skip-deleted-messages mp 2 vm-skip-read-messages 0 1 last-command vm-next-command-uses-marks t] 2]] 2) (fset 'vm-next-message #[(&optional count retry signal-errors) "t !! q lj C$\n   = VҪ !  Uڏ܏=\" \n \"-" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-display nil (vm-next-message vm-delete-message vm-undelete-message vm-scroll-forward) this-command signal-errors vm-error-if-folder-empty count 1 vm-message-pointer last-command vm-next-command-uses-marks 0 forward backward vm-abs direction use-marks oldmp vm-message-list (byte-code " U ! @HH=@HH !k= SD)‡" [oldmp count 0 vm-move-message-pointer direction use-marks vm-message-pointer 1 2] 3) ((beginning-of-folder (byte-code "" [beginning-of-folder error] 1)) (end-of-folder (byte-code "" [end-of-folder error] 1))) (byte-code " !\n = \" !o \n=A\n = ! !p" [vm-move-message-pointer direction oldmp vm-message-pointer vm-should-skip-message t retry vm-message-list] 3) ((beginning-of-folder (byte-code "\nŏÇ" [oldmp vm-message-pointer retry nil (byte-code "\n!!\n!u)" [vm-message-pointer vm-move-message-pointer direction vm-should-skip-message] 2) ((beginning-of-folder (byte-code "\n" [beginning-of-folder error oldmp] 1))) beginning-of-folder error] 3)) (end-of-folder (byte-code "\nŏÇ" [oldmp vm-message-pointer retry nil (byte-code "\n!!\n!u)" [vm-message-pointer vm-move-message-pointer direction vm-should-skip-message] 2) ((end-of-folder (byte-code "\n" [end-of-folder error oldmp] 1))) end-of-folder error] 3))) vm-record-and-change-message-pointer vm-preview-current-message signal] 6 "\ Go forward one message and preview it. With prefix arg (optional first argument) COUNT, go forward COUNT messages. A negative COUNT means go backward. If the absolute value of COUNT is greater than 1, then the values of the variables vm-skip-deleted-messages and vm-skip-read-messages are ignored. When invoked on marked messages (via vm-next-command-uses-marks) this command 'sees' marked messages as it moves." "p\np\np"]) (fset 'vm-previous-message #[(&optional count retry signal-errors) "t !! qȉ$[  #" [count 1 vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-display nil (vm-previous-message) (vm-previous-message) vm-next-message retry signal-errors] 5 "\ Go back one message and preview it. With prefix arg COUNT, go backward COUNT messages. A negative COUNT means go forward. If the absolute value of COUNT > 1 the values of the variables vm-skip-deleted-messages and vm-skip-read-messages are ignored." "p\np\np"]) (fset 'vm-next-message-no-skip #[(&optional count) "t !! qƉ$Ɖ \n #*" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-display nil (vm-Next-message) (vm-Next-message) vm-skip-read-messages vm-skip-deleted-messages vm-next-message count t] 5 "\ Like vm-next-message but will not skip deleted or read messages." "p"]) (fset 'vm-Next-message 'vm-next-message-no-skip) (fset 'vm-previous-message-no-skip #[(&optional count) "t !! qƉ$Ɖ \n !*" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-display nil (vm-Previous-message) (vm-Previous-message) vm-skip-read-messages vm-skip-deleted-messages vm-previous-message count] 5 "\ Like vm-previous-message but will not skip deleted or read messages." "p"]) (fset 'vm-Previous-message 'vm-previous-message-no-skip) (fset 'vm-next-unread-message #[nil "t !! q lj$ˏ" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-display nil (vm-next-unread-message) (vm-next-unread-message) (byte-code " # \n=\"*" [t vm-message-pointer oldmp vm-skip-read-messages vm-next-message 1 nil signal end-of-folder] 4) ((end-of-folder (message "No next unread message")))] 5 "\ Move forward to the nearest new or unread message, if there is one." nil]) (fset 'vm-previous-unread-message #[nil "t !! q lj$ˏ" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-display nil (vm-previous-unread-message) (vm-previous-unread-message) (byte-code "  \n=\"*" [t vm-message-pointer oldmp vm-skip-read-messages vm-previous-message signal beginning-of-folder nil] 3) ((beginning-of-folder (message "No previous unread message")))] 5 "\ Move backward to the nearest new or unread message, if there is one." nil]) (fset 'vm-next-message-same-subject #[nil "t !! q lj$ˏ" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-display nil (vm-next-message-same-subject) (vm-next-message-same-subject) (byte-code "@! ! =\" @!gʉe \" +" [vm-message-pointer nil vm-so-sortable-subject subject done oldmp vm-move-message-pointer forward signal end-of-folder t vm-record-and-change-message-pointer vm-preview-current-message] 5) ((end-of-folder (message "No next message with the same subject")))] 5 "\ Move forward to the nearest message with the same subject. vm-subject-ignored-prefix and vm-subject-ignored-suffix will apply to the subject comparisons." nil]) (fset 'vm-previous-message-same-subject #[nil "t !! q lj$ˏ" [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-display nil (vm-previous-message-same-subject) (vm-previous-message-same-subject) (byte-code "@! ! =\" @!gʉe \" +" [vm-message-pointer nil vm-so-sortable-subject subject done oldmp vm-move-message-pointer backward signal beginning-of-folder t vm-record-and-change-message-pointer vm-preview-current-message] 5) ((beginning-of-folder (message "No previous message with the same subject")))] 5 "\ Move backward to the nearest message with the same subject. vm-subject-ignored-prefix and vm-subject-ignored-suffix will apply to the subject comparisons." nil]) (byte-code "MMM" [vm-find-first-unread-message #[(new) "  \n\n@HH\n@HH\ng\nAa\n\n@HH\n@HH\n@HH\n_\nA[ *" [nil unread-mp mp vm-message-list new 2 0 1] 3] vm-thoughtfully-select-message #[nil "! !ĉ  !  =? \" ," [vm-jump-to-new-messages vm-find-first-unread-message t vm-jump-to-unread-messages nil mp fix unread new vm-message-pointer vm-last vm-message-list vm-record-and-change-message-pointer] 5] vm-follow-summary-cursor #[nil " =`Éq \n)?@HHY@HHW?@HHW A = @HHY Aj =?q \" )," [vm-follow-summary-cursor major-mode vm-summary-mode nil mp message-list message-pointer point vm-mail-buffer vm-message-pointer vm-message-list 1 3 4 vm-record-and-change-message-pointer vm-preview-current-message t] 5]] 2)