From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 12 Apr 2002 03:16:26 +0000 (+0000)
Subject: (gnus-update-summary-mark-positions, gnus-summary-toggle-header):
X-Git-Tag: ttn-vms-21-2-B4~15677
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=667e0ba62f1484761104eeb42499417432401b4c;p=emacs.git

(gnus-update-summary-mark-positions, gnus-summary-toggle-header):
Don't assume point-min == 1.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 00ff1271cd3..39150527270 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,14 @@
+2002-04-11  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* gnus-sum.el (gnus-update-summary-mark-positions)
+	(gnus-summary-toggle-header):
+	* gnus-uu.el (gnus-uu-binhex-article, gnus-uu-reginize-string)
+	(gnus-uu-expand-numbers, gnus-uu-post-make-mime)
+	(gnus-uu-post-encoded):
+	* nnfolder.el (nnfolder-possibly-change-group):
+	* nnimap.el (nnimap-retrieve-headers):
+	* nnmbox.el (nnmbox-create-mbox): Don't assume point-min == 1.
+
 2002-04-08  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* nnml.el (nnml-save-nov, nnml-generate-nov-file):
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index f75c58a50e3..c47c03e528c 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -2673,17 +2673,19 @@ buffer that was in action when the last article was fetched."
 	   [0 "" "" "" "" "" 0 0 "" nil]  0 nil 128 t nil "" nil 1)
 	  (goto-char (point-min))
 	  (setq pos (list (cons 'unread (and (search-forward "\200" nil t)
-					     (- (point) 2)))))
+					     (- (point) (point-min) 1)))))
 	  (goto-char (point-min))
 	  (push (cons 'replied (and (search-forward "\201" nil t)
-				    (- (point) 2)))
+				    (- (point) (point-min) 1)))
 		pos)
 	  (goto-char (point-min))
-	  (push (cons 'score (and (search-forward "\202" nil t) (- (point) 2)))
+	  (push (cons 'score (and (search-forward "\202" nil t)
+				  (- (point) (point-min) 1)))
 		pos)
 	  (goto-char (point-min))
 	  (push (cons 'download
-		      (and (search-forward "\203" nil t) (- (point) 2)))
+		      (and (search-forward "\203" nil t)
+			   (- (point) (point-min) 1)))
 		pos)))
       (setq gnus-summary-mark-positions pos))))
 
@@ -7428,7 +7430,7 @@ If ARG is a negative number, hide the unwanted header lines."
     (save-restriction
       (let* ((buffer-read-only nil)
 	     (inhibit-point-motion-hooks t)
-	     hidden e)
+	     hidden s e)
 	(setq hidden
 	      (if (numberp arg)
 		  (>= arg 0)
@@ -7439,11 +7441,10 @@ If ARG is a negative number, hide the unwanted header lines."
 	(when (search-forward "\n\n" nil t)
 	  (delete-region (point-min) (1- (point))))
 	(goto-char (point-min))
-	(save-excursion
-	  (set-buffer gnus-original-article-buffer)
-	  (goto-char (point-min))
+	(with-current-buffer gnus-original-article-buffer
+	  (goto-char (setq s (point-min)))
 	  (setq e (1- (or (search-forward "\n\n" nil t) (point-max)))))
-	(insert-buffer-substring gnus-original-article-buffer 1 e)
+	(insert-buffer-substring gnus-original-article-buffer s e)
 	(save-restriction
 	  (narrow-to-region (point-min) (point))
 	  (article-decode-encoded-words)