# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1233300058 0
# Node ID 4c9b7acbd8b492f89eafe8044c6874c82a92a13a
# Parent  f91737280f468b2d19fa6eaffce93f2fec813b26
(rmail-header-summary): Use line-end-position.

diff -r f91737280f46 -r 4c9b7acbd8b4 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Fri Jan 30 05:19:18 2009 +0000
+++ b/lisp/mail/rmailsum.el	Fri Jan 30 07:20:58 2009 +0000
@@ -492,7 +492,7 @@
 	     (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 @@
 			      (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 @@
 			      (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))