# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1191357710 0
# Node ID ff46392e7e97b8dfb9d9c0e9da6e81981f6bd04b
# Parent  3d045ef560618c7fe1a8c766b7cde28e2c6a8f8a
(gnus-uu-reginize-string, gnus-uu-expand-numbers): Don't hardcode point-min==1.

diff -r 3d045ef56061 -r ff46392e7e97 lisp/gnus/ChangeLog
--- 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)
diff -r 3d045ef56061 -r ff46392e7e97 lisp/gnus/gnus-uu.el
--- 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))