[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el

[Juanma Barranquero]

Index: emacs/lisp/mail/rmailsum.el
diff -c emacs/lisp/mail/rmailsum.el:1.131 emacs/lisp/mail/rmailsum.el:1.132
*** emacs/lisp/mail/rmailsum.el:1.131   Sat Nov  1 16:37:35 2003
--- emacs/lisp/mail/rmailsum.el Mon May 16 11:16:34 2005
***************
*** 375,391 ****
              (cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- 
\t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)"
                      (save-excursion (end-of-line) (point)) t)
                     (format "%2d-%3s"
!                            (string-to-int (buffer-substring
!                                            (match-beginning 2)
!                                            (match-end 2)))
                             (buffer-substring
                              (match-beginning 4) (match-end 4))))
                    ((re-search-forward 
"\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z 
\t_]*\\)\\([0-9][0-9]?\\)"
                      (save-excursion (end-of-line) (point)) t)
                     (format "%2d-%3s"
!                            (string-to-int (buffer-substring
!                                            (match-beginning 4)
!                                            (match-end 4)))
                             (buffer-substring
                              (match-beginning 2) (match-end 2))))
                    ((re-search-forward 
"\\(19\\|20\\)\\([0-9][0-9]\\)-\\([01][0-9]\\)-\\([0-3][0-9]\\)"
--- 375,391 ----
              (cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- 
\t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)"
                      (save-excursion (end-of-line) (point)) t)
                     (format "%2d-%3s"
!                            (string-to-number (buffer-substring
!                                                 (match-beginning 2)
!                                                 (match-end 2)))
                             (buffer-substring
                              (match-beginning 4) (match-end 4))))
                    ((re-search-forward 
"\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z 
\t_]*\\)\\([0-9][0-9]?\\)"
                      (save-excursion (end-of-line) (point)) t)
                     (format "%2d-%3s"
!                            (string-to-number (buffer-substring
!                                                 (match-beginning 4)
!                                                 (match-end 4)))
                             (buffer-substring
                              (match-beginning 2) (match-end 2))))
                    ((re-search-forward 
"\\(19\\|20\\)\\([0-9][0-9]\\)-\\([01][0-9]\\)-\\([0-3][0-9]\\)"
***************
*** 580,586 ****
            ;; Advance thru summary.
            (forward-line (if forward 1 -1))
            ;; Get msg number of this line.
!           (setq i (string-to-int
                     (buffer-substring (point)
                                       (min (point-max) (+ 6 (point))))))
            ;; See if that msg has desired subject.
--- 580,586 ----
            ;; Advance thru summary.
            (forward-line (if forward 1 -1))
            ;; Get msg number of this line.
!           (setq i (string-to-number
                     (buffer-substring (point)
                                       (min (point-max) (+ 6 (point))))))
            ;; See if that msg has desired subject.
***************
*** 791,800 ****
          (forward-line -1))
        (beginning-of-line)
        (skip-chars-forward " ")
!       (let ((msg-num (string-to-int (buffer-substring
!                                    (point)
!                                    (progn (skip-chars-forward "0-9")
!                                           (point))))))
        ;; Always leave `unseen' removed
        ;; if we get out of isearch mode.
        ;; Don't let a subsequent isearch restore that `unseen'.
--- 791,800 ----
          (forward-line -1))
        (beginning-of-line)
        (skip-chars-forward " ")
!       (let ((msg-num (string-to-number (buffer-substring
!                                         (point)
!                                         (progn (skip-chars-forward "0-9")
!                                                (point))))))
        ;; Always leave `unseen' removed
        ;; if we get out of isearch mode.
        ;; Don't let a subsequent isearch restore that `unseen'.
***************
*** 1061,1067 ****
         (buf rmail-buffer)
         (cur (point))
         message-not-found
!        (curmsg (string-to-int
                  (buffer-substring (point)
                                    (min (point-max) (+ 6 (point))))))
         (total (save-excursion (set-buffer buf) rmail-total-messages)))
--- 1061,1067 ----
         (buf rmail-buffer)
         (cur (point))
         message-not-found
!        (curmsg (string-to-number
                  (buffer-substring (point)
                                    (min (point-max) (+ 6 (point))))))
         (total (save-excursion (set-buffer buf) rmail-total-messages)))