Mercurial > emacs
diff lisp/mail/rmailsum.el @ 101666:4c9b7acbd8b4
(rmail-header-summary): Use line-end-position.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 30 Jan 2009 07:20:58 +0000 |
parents | e18d6fe1381d |
children | ba9c16ff3497 |
line wrap: on
line diff
--- 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))