(rmail-header-summary): Use line-end-position.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 8da18a055c8eb75a602fb392f35253f5fef1b72e..94cfa7b3df62d630dd4d5c0e2df2b67052571f0b 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -492,7 +492,7 @@ the message being processed."
             (if (not (re-search-forward "^Date:" nil t))
                 "      "
               (cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)"
-                      (save-excursion (end-of-line) (point)) t)
+                      (line-end-position) t)
                      (format "%2d-%3s"
                              (string-to-number (buffer-substring
                                                 (match-beginning 2)
@@ -500,7 +500,7 @@ the message being processed."
                              (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)
+                      (line-end-position) t)
                      (format "%2d-%3s"
                              (string-to-number (buffer-substring
                                                 (match-beginning 4)
@@ -508,7 +508,7 @@ the message being processed."
                              (buffer-substring
                               (match-beginning 2) (match-end 2))))
                     ((re-search-forward "\\(19\\|20\\)\\([0-9][0-9]\\)-\\([01][0-9]\\)-\\([0-3][0-9]\\)"
-                      (save-excursion (end-of-line) (point)) t)
+                      (line-end-position) t)
                      (format "%2s%2s%2s"
                              (buffer-substring
                               (match-beginning 2) (match-end 2))