procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2009-01-30 07:20:58 +00:00
parent f4150f610d
commit 98a9d488a3
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/rmailsum.el
View file

@ -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))