Mercurial > emacs
changeset 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 | f91737280f46 |
| children | ecf38b9f654d |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
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))