(defun vm-record-and-change-message-pointer (old new) (byte-code "   ‰‡" [vm-last-message-pointer old vm-message-pointer new] 2)) (defun vm-goto-message (n) "\ 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 first tries to follow the summary cursor to a new message. If a new message is selected in this way, no further action is taken. I.e. you can move the cursor in the summary buffer, press RETURN and select a new message without typing in a message number." (interactive (byte-code "à ƒ À‚ ƒÄ !‚ÅÆ!C‡" [nil current-prefix-arg t vm-follow-summary-cursor prefix-numeric-value vm-read-number "Go to message: "] 4)) (byte-code "Àˆ ?ƒ À‚Z …Ê !… qˆË !…(Ê !?…(À‰ˆÌ ˆÍ S\"?…=ÎÏ!ˆ=ƒKÐ ‚YÑ\"ˆÂ‰ ˆÐ )‡" [nil current-prefix-arg t n vm-mail-buffer vm-summary-buffer cons vm-message-list vm-message-pointer vm-need-summary-pointer-update buffer-name bufferp vm-error-if-folder-empty nthcdr error "No such message." vm-preview-current-message vm-record-and-change-message-pointer] 10)) (defun vm-goto-message-last-seen nil "\ Go to the message last previewed." (interactive) (byte-code "ˆ…Ç!…qˆÈ !…Ç !?…‰ˆÉ ˆ …2Ê \"ˆÆ‰ˆË ‡" [vm-mail-buffer vm-summary-buffer nil vm-last-message-pointer vm-message-pointer vm-need-summary-pointer-update t buffer-name bufferp vm-error-if-folder-empty vm-record-and-change-message-pointer vm-preview-current-message] 7)) (put (quote beginning-of-folder) (quote error-conditions) (quote (beginning-of-folder error))) (put (quote beginning-of-folder) (quote error-message) "Beginning of folder") (put (quote end-of-folder) (quote error-conditions) (quote (end-of-folder error))) (put (quote end-of-folder) (quote error-message) "End of folder") (defun vm-check-count (count) (byte-code "ÄYƒ GW…ÅÆÂ\"‚% G GZTÇ!W…%ÅÈÂ\"‡" [count vm-message-pointer nil vm-message-list 0 signal end-of-folder vm-abs beginning-of-folder] 5)) (defun vm-move-message-pointer (direction) (byte-code "  Æ=ƒ#A‰ˆ?… ƒ ‰‚ ÇÈÅ\"‚B@ÉHÊHJ‰ˆ?…B ƒ>Ë !‰‚BÇÌÅ\"ˆ‰)‡" [mp vm-message-pointer direction vm-circular-folders vm-message-list nil forward signal end-of-folder 0 8 vm-last beginning-of-folder] 5)) (defun vm-should-skip-message (mp &optional skip-dogmatically) (byte-code "ƒ1 … @ÅHÅH†. …. @ÅHÅH†. @ÅHÆH†- @ÅHÇH?‚_ Ä=…= @ÅHÅH†_ Ä=…_ @ÅHÅH†_ @ÅHÆH†^ @ÅHÇH?‡" [skip-dogmatically vm-skip-deleted-messages mp vm-skip-read-messages t 2 0 1] 2)) (defun vm-next-message (&optional count retry signal-errors) "\ Go forward one message and preview it. With prefix arg COUNT, go forward COUNT messages. A negative COUNT means go backward. If the absolute value of COUNT > 1 the values of the variables vm-skip-deleted-messages and vm-skip-read-messages are ignored." (interactive "p p p") (byte-code "ˆ…Ì!…qˆÍ ˆÎ !…\"Ì !?…\"‰ˆ …)Ï ˆ †1Љˆ ÑVƒ?Ò‚@ÓÔ !?ƒW ‰‚iÕ Ð\"ƒeÂÖׂiÂØÙˆ =?…Ú \"ˆÊ‰ ˆÛ ˆ…Ž …ŽÜÂ\",‡" [vm-mail-buffer vm-summary-buffer nil signal-errors count oldmp vm-message-pointer error direction vm-message-list t vm-need-summary-pointer-update buffer-name vm-sanity-check-modification-flag bufferp vm-error-if-folder-empty 1 0 forward backward vm-abs /= (byte-code "Â!?…à !ˆS‰ˆ‚‡" [count direction zerop vm-move-message-pointer] 5) ((beginning-of-folder (byte-code "Á‰‡" [error beginning-of-folder] 2)) (end-of-folder (byte-code "Á‰‡" [error end-of-folder] 2))) (byte-code "Æ!ˆ =?…Ç Ã\"…Æ!ˆ‚ˆ =…= …= A…= =?…3Ç !…=Æ!ˆ‚)‡" [direction oldmp vm-message-pointer t retry vm-message-list vm-move-message-pointer vm-should-skip-message] 7) ((beginning-of-folder (byte-code " ‰ˆ ƒÄÅƉ‚lj‡" [vm-message-pointer oldmp retry error nil (byte-code " !ˆÃ!… !ˆ‚ˆ)‡" [vm-message-pointer direction vm-move-message-pointer vm-should-skip-message] 5) ((beginning-of-folder (byte-code "‰ˆ ‡" [error oldmp beginning-of-folder] 2))) beginning-of-folder] 3)) (end-of-folder (byte-code " ‰ˆ ƒÄÅƉ‚lj‡" [vm-message-pointer oldmp retry error nil (byte-code " !ˆÃ!… !ˆ‚ˆ)‡" [vm-message-pointer direction vm-move-message-pointer vm-should-skip-message] 5) ((end-of-folder (byte-code "‰ˆ ‡" [error oldmp end-of-folder] 2))) end-of-folder] 3))) vm-record-and-change-message-pointer vm-preview-current-message signal] 12)) (defun vm-previous-message (&optional count retry signal-errors) "\ 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." (interactive "p p p") (byte-code "Ĉ† ʼnˆ …Æ !… qˆÇ[ #‡" [count vm-mail-buffer retry signal-errors nil 1 buffer-name vm-next-message] 5)) (defun vm-Next-message (&optional count) "\ Like vm-next-message but will not skip messages." (interactive "p") (byte-code "Ĉ…Æ!…qˆÄÄÇ ÄÅ#*‡" [vm-mail-buffer vm-skip-deleted-messages vm-skip-read-messages count nil t buffer-name vm-next-message] 5)) (defun vm-Previous-message (&optional count) "\ Like vm-previous-message but will not skip messages." (interactive "p") (byte-code "Ĉ…Å!…qˆÄÄÆ !*‡" [vm-mail-buffer vm-skip-deleted-messages vm-skip-read-messages count nil buffer-name vm-previous-message] 3)) (defun vm-next-unread-message nil "\ Move forward to the nearest new or unread message, if there is one." (interactive) (byte-code "ˆ…Ã!…qˆÄ !…à !?…‰ˆÂÅƇ" [vm-mail-buffer vm-summary-buffer nil buffer-name bufferp (byte-code "Á ÅÆÄÁ#ˆ =…ÇÈÄ\"*‡" [vm-skip-read-messages t oldmp vm-message-pointer nil vm-next-message 1 signal end-of-folder] 4) ((end-of-folder (byte-code "ÀÁ!‡" [message "No next unread message"] 2)))] 6)) (defun vm-previous-unread-message nil "\ Move backward to the nearest new or unread message, if there is one." (interactive) (byte-code "ˆ…Ã!…qˆÄ !…à !?…‰ˆÂÅƇ" [vm-mail-buffer vm-summary-buffer nil buffer-name bufferp (byte-code "Á Å ˆ =…ÆÇÄ\"*‡" [vm-skip-read-messages t oldmp vm-message-pointer nil vm-previous-message signal beginning-of-folder] 4) ((beginning-of-folder (byte-code "ÀÁ!‡" [message "No previous unread message"] 2)))] 6)) (defun vm-find-first-unread-message nil (byte-code "Ãà ‰ˆ…/@ÄHÅH…@ÄHÄH?ƒ'É‚+A‰ˆ‚ˆ ?…` ‰ˆ…`@ÄHÆH…M@ÄHÄH?ƒXÉ‚\\A‰ˆ‚9ˆ *‡" [mp unread-mp vm-message-list nil 2 0 1] 3)) (defun vm-thoughtfully-select-message nil (byte-code "?† Æ=?…:Ç  ƒ-ƒÈ \"‚! ‰ˆÄ‰ˆÉ ˆÄ‚9ƒ5Å‚9Ê ˆÄ)‡" [vm-message-pointer vm-system-state mp vm-need-summary-pointer-update t nil reading vm-find-first-unread-message vm-record-and-change-message-pointer vm-preview-current-message vm-Next-message] 5))