(gnus-uu-reginize-string, gnus-uu-expand-numbers): Don't hardcode point-min==1.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 03156b7158e6c394ac036f1f47e6156933229ccf..4e91a74b66a5f8e73cf59293ff34c145946be28e 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el
index 94fb854c96009a77eca8f24b3050751a8d54a6dd..86253f0deefd9b77650d48e88a97b4be52d7826f 100644 (file)
--- a/lisp/gnus/gnus-uu.el
+++ b/lisp/gnus/gnus-uu.el
@@ -1089,7 +1089,7 @@ When called interactively, prompt for REGEXP."
                                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 @@ When called interactively, prompt for REGEXP."
             (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))