[Emacs-diffs] emacs/lisp/mail rmailsum.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/30 07:20:58

Modified files:
        lisp/mail      : rmailsum.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailsum.el?cvsroot=emacs&r1=1.162&r2=1.163

Patches:
Index: rmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailsum.el,v
retrieving revision 1.162
retrieving revision 1.163
diff -u -b -r1.162 -r1.163
--- rmailsum.el 30 Jan 2009 03:47:38 -0000      1.162
+++ rmailsum.el 30 Jan 2009 07:20:58 -0000      1.163
@@ -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))