375 |
(cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)" |
(cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)" |
376 |
(save-excursion (end-of-line) (point)) t) |
(save-excursion (end-of-line) (point)) t) |
377 |
(format "%2d-%3s" |
(format "%2d-%3s" |
378 |
(string-to-int (buffer-substring |
(string-to-number (buffer-substring |
379 |
(match-beginning 2) |
(match-beginning 2) |
380 |
(match-end 2))) |
(match-end 2))) |
381 |
(buffer-substring |
(buffer-substring |
382 |
(match-beginning 4) (match-end 4)))) |
(match-beginning 4) (match-end 4)))) |
383 |
((re-search-forward "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z \t_]*\\)\\([0-9][0-9]?\\)" |
((re-search-forward "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z \t_]*\\)\\([0-9][0-9]?\\)" |
384 |
(save-excursion (end-of-line) (point)) t) |
(save-excursion (end-of-line) (point)) t) |
385 |
(format "%2d-%3s" |
(format "%2d-%3s" |
386 |
(string-to-int (buffer-substring |
(string-to-number (buffer-substring |
387 |
(match-beginning 4) |
(match-beginning 4) |
388 |
(match-end 4))) |
(match-end 4))) |
389 |
(buffer-substring |
(buffer-substring |
390 |
(match-beginning 2) (match-end 2)))) |
(match-beginning 2) (match-end 2)))) |
391 |
((re-search-forward "\\(19\\|20\\)\\([0-9][0-9]\\)-\\([01][0-9]\\)-\\([0-3][0-9]\\)" |
((re-search-forward "\\(19\\|20\\)\\([0-9][0-9]\\)-\\([01][0-9]\\)-\\([0-3][0-9]\\)" |
580 |
;; Advance thru summary. |
;; Advance thru summary. |
581 |
(forward-line (if forward 1 -1)) |
(forward-line (if forward 1 -1)) |
582 |
;; Get msg number of this line. |
;; Get msg number of this line. |
583 |
(setq i (string-to-int |
(setq i (string-to-number |
584 |
(buffer-substring (point) |
(buffer-substring (point) |
585 |
(min (point-max) (+ 6 (point)))))) |
(min (point-max) (+ 6 (point)))))) |
586 |
;; See if that msg has desired subject. |
;; See if that msg has desired subject. |
791 |
(forward-line -1)) |
(forward-line -1)) |
792 |
(beginning-of-line) |
(beginning-of-line) |
793 |
(skip-chars-forward " ") |
(skip-chars-forward " ") |
794 |
(let ((msg-num (string-to-int (buffer-substring |
(let ((msg-num (string-to-number (buffer-substring |
795 |
(point) |
(point) |
796 |
(progn (skip-chars-forward "0-9") |
(progn (skip-chars-forward "0-9") |
797 |
(point)))))) |
(point)))))) |
798 |
;; Always leave `unseen' removed |
;; Always leave `unseen' removed |
799 |
;; if we get out of isearch mode. |
;; if we get out of isearch mode. |
800 |
;; Don't let a subsequent isearch restore that `unseen'. |
;; Don't let a subsequent isearch restore that `unseen'. |
1061 |
(buf rmail-buffer) |
(buf rmail-buffer) |
1062 |
(cur (point)) |
(cur (point)) |
1063 |
message-not-found |
message-not-found |
1064 |
(curmsg (string-to-int |
(curmsg (string-to-number |
1065 |
(buffer-substring (point) |
(buffer-substring (point) |
1066 |
(min (point-max) (+ 6 (point)))))) |
(min (point-max) (+ 6 (point)))))) |
1067 |
(total (save-excursion (set-buffer buf) rmail-total-messages))) |
(total (save-excursion (set-buffer buf) rmail-total-messages))) |