/[emacs]/emacs/lisp/mail/rmailsum.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmailsum.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.131 by eliz, Sat Nov 1 16:37:35 2003 UTC revision 1.132 by lektu, Mon May 16 11:16:34 2005 UTC
# Line 375  Setting this variable has an effect only Line 375  Setting this variable has an effect only
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]\\)"
# Line 580  If N is negative, go backwards." Line 580  If N is negative, go backwards."
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.
# Line 791  Search, the `unseen' attribute is restor Line 791  Search, the `unseen' attribute is restor
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'.
# Line 1061  If SKIP-RMAIL, don't do anything to the Line 1061  If SKIP-RMAIL, don't do anything to the
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)))

Legend:
Removed from v.1.131  
changed lines
  Added in v.1.132

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26