Lines Matching +defs:num +defs:unread
122 (defvar mh-first-msg-num nil
125 (defvar mh-last-msg-num nil
139 ["Add Message to Sequence..." mh-put-msg-in-seq (mh-get-msg-num nil)]
140 ["List Sequences for Message" mh-msg-is-in-seq (mh-get-msg-num nil)]
142 (mh-get-msg-num nil)]
161 ["Show Message" mh-show (mh-get-msg-num nil)]
162 ["Show Message with Header" mh-header-display (mh-get-msg-num nil)]
169 ["Delete Message" mh-delete-msg (mh-get-msg-num nil)]
170 ["Refile Message" mh-refile-msg (mh-get-msg-num nil)]
176 ["Reply to Message..." mh-reply (mh-get-msg-num nil)]
177 ["Forward Message..." mh-forward (mh-get-msg-num nil)]
178 ["Redistribute Message..." mh-redistribute (mh-get-msg-num nil)]
179 ["Edit Message Again" mh-edit-again (mh-get-msg-num nil)]
182 ["Copy Message to Folder..." mh-copy-msg (mh-get-msg-num nil)]
183 ["Print Message" mh-print-msg (mh-get-msg-num nil)]
185 (mh-get-msg-num nil)]
186 ["Pipe Message to Command..." mh-pipe-msg (mh-get-msg-num nil)]
187 ["Unpack Uuencoded Message..." mh-store-msg (mh-get-msg-num nil)]
188 ["Burst Digest Message" mh-burst-digest (mh-get-msg-num nil)]))
257 "\M-n" mh-next-unread-msg
260 "\M-p" mh-previous-unread-msg
476 (let ((cur-msg (mh-get-msg-num nil)))
492 (not (member (mh-get-msg-num nil) ,cache))))
494 (let ((cur-msg (mh-get-msg-num nil)))
573 <num>:N
574 <num>:+N
575 <num>:-N
576 Up to N messages beginning with (or ending with) message num. Num
638 'mh-first-msg-num nil ; Number of first msg in buffer
639 'mh-last-msg-num nil ; Number of last msg in buffer
839 (let* ((message (or message (mh-get-msg-num t)))
885 many unread messages to skip.
901 (defun mh-next-unread-msg (&optional count)
902 "Display next unread message.
905 many unread messages to skip."
908 (error "The function `mh-next-unread-msg' expects positive argument"))
910 (let ((unread-sequence (reverse (cdr (assoc mh-unseen-seq mh-seq-list))))
911 (cur-msg (mh-get-msg-num nil)))
914 ;; to unread message after that.
917 (setq cur-msg (mh-get-msg-num nil)))
919 ((or (null unread-sequence) (not cur-msg))
920 ;; No unread message or there aren't any messages in buffer...
921 (message "No more unread messages"))
924 (while (and unread-sequence (>= cur-msg (car unread-sequence)))
925 (setq unread-sequence (cdr unread-sequence)))
927 (setq unread-sequence (cdr unread-sequence))
929 (not (car unread-sequence)))
930 (message "No more unread messages"))
931 (t (loop for msg in unread-sequence
933 finally (message "No more unread messages"))))))
985 many unread messages to skip.
999 (defun mh-previous-unread-msg (&optional count)
1000 "Display previous unread message.
1003 many unread messages to skip."
1006 (error "The function `mh-previous-unread-msg' expects positive argument"))
1008 (let ((unread-sequence (cdr (assoc mh-unseen-seq mh-seq-list)))
1009 (cur-msg (mh-get-msg-num nil)))
1012 ;; to unread message after that.
1015 (setq cur-msg (mh-get-msg-num nil)))
1017 ((or (null unread-sequence) (not cur-msg))
1018 ;; No unread message or there aren't any messages in buffer...
1019 (message "No more unread messages"))
1022 (while (and unread-sequence (>= (car unread-sequence) cur-msg))
1023 (setq unread-sequence (cdr unread-sequence)))
1025 (setq unread-sequence (cdr unread-sequence))
1027 (not (car unread-sequence)))
1028 (message "No more unread messages"))
1029 (t (loop for msg in unread-sequence
1031 finally (message "No more unread messages"))))))
1143 (msg-num (mh-get-msg-num nil)))
1148 (mh-goto-msg msg-num t t))
1198 (mh-undo-msg (mh-get-msg-num t))
1281 (list (mh-get-msg-num t)
1317 (new-cur (mh-get-msg-num nil)))
1444 (mh-set-cmd-note (mh-msg-num-width-to-column (mh-msg-num-width folder)))
1608 (mh-define-sequence 'cur (list (or (mh-get-msg-num nil) "last"))))
1662 (let ((new-first-msg-num (mh-get-msg-num nil)))
1664 (null mh-first-msg-num)
1665 (null new-first-msg-num)
1666 (< new-first-msg-num mh-first-msg-num))
1667 (setq mh-first-msg-num new-first-msg-num)))
1669 (let ((new-last-msg-num (mh-get-msg-num nil)))
1671 (null mh-last-msg-num)
1672 (null new-last-msg-num)
1673 (> new-last-msg-num mh-last-msg-num))
1674 (setq mh-last-msg-num new-last-msg-num)))
1675 (setq mh-msg-count (if mh-first-msg-num
1689 (format "s (%d-%d)" mh-first-msg-num
1690 mh-last-msg-num))
1691 (mh-first-msg-num
1692 (format " (%d)" mh-first-msg-num))
1756 (mh-set-cmd-note (mh-msg-num-width-to-column (mh-msg-num-width
1801 (mh-set-cmd-note (mh-msg-num-width-to-column (mh-msg-num-width name))))
1816 the user that there aren't any more unread messages."
1831 (let ((refile-file (ignore-errors (mh-msg-filename (mh-get-msg-num t)))))
1913 (setq message (mh-get-msg-num t)))
1934 (setq message (mh-get-msg-num t)))
1941 (mh-exec-cmd "refile" (mh-get-msg-num t) "-link"
1961 (setq msg (mh-get-msg-num t)))