Mercurial > emacs
changeset 85008:ff46392e7e97
(gnus-uu-reginize-string, gnus-uu-expand-numbers): Don't hardcode point-min==1.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 02 Oct 2007 20:41:50 +0000 |
| parents | 3d045ef56061 |
| children | 1889b9f9238e |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-uu.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Oct 02 02:05:46 2007 +0000 +++ b/lisp/gnus/ChangeLog Tue Oct 02 20:41:50 2007 +0000 @@ -1,3 +1,8 @@ +2007-10-02 Stefan Monnier <monnier@iro.umontreal.ca> + + * gnus-uu.el (gnus-uu-reginize-string, gnus-uu-expand-numbers): + Don't hardcode point-min==1. + 2007-09-30 David Kastrup <dak@gnu.org> * gnus-art.el (gnus-article-reply-with-original)
--- a/lisp/gnus/gnus-uu.el Tue Oct 02 02:05:46 2007 +0000 +++ b/lisp/gnus/gnus-uu.el Tue Oct 02 20:41:50 2007 +0000 @@ -1089,7 +1089,7 @@ nil t) (replace-match "\\1[0-9]+\\2[0-9]+" t nil nil nil)))) - (goto-char 1) + (goto-char (point-min)) (while (re-search-forward "[ \t]+" nil t) (replace-match "[ \t]+" t t)) @@ -1190,7 +1190,7 @@ (format "%06d" (string-to-number (buffer-substring (match-beginning 0) (match-end 0))))))) - (setq string (buffer-substring 1 (point-max))) + (setq string (buffer-substring (point-min) (point-max))) (setcar (car string-list) string) (setq string-list (cdr string-list)))) out-list))