From: Glenn Morris Date: Fri, 30 Jan 2009 07:20:58 +0000 (+0000) Subject: (rmail-header-summary): Use line-end-position. X-Git-Tag: emacs-pretest-23.0.90~66 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98a9d488a3422a240da6b7919e2d61ced68070ee;p=emacs.git (rmail-header-summary): Use line-end-position. --- diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 8da18a055c8..94cfa7b3df6 100644 --- 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))