changeset 24552:ccf2939fc5ec

(gnus-data-compute-positions): Move down after the gnus-save-hidden-threads macro.
author Andreas Schwab <schwab@suse.de>
date Wed, 31 Mar 1999 08:40:48 +0000
parents c10fd4e02857
children bc3afd224741
files lisp/gnus/gnus-sum.el
diffstat 1 files changed, 17 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el	Tue Mar 30 21:38:20 1999 +0000
+++ b/lisp/gnus/gnus-sum.el	Wed Mar 31 08:40:48 1999 +0000
@@ -2048,21 +2048,6 @@
     (setcar (nthcdr 2 (car data)) (+ offset (nth 2 (car data))))
     (setq data (cdr data))))
 
-(defun gnus-data-compute-positions ()
-  "Compute the positions of all articles."
-  (setq gnus-newsgroup-data-reverse nil)
-  (let ((data gnus-newsgroup-data))
-    (save-excursion
-      (gnus-save-hidden-threads
-	(gnus-summary-show-all-threads)
-	(goto-char (point-min))
-	(while data
-	  (while (get-text-property (point) 'gnus-intangible)
-	    (forward-line 1))
-	  (gnus-data-set-pos (car data) (+ (point) 3))
-	  (setq data (cdr data))
-	  (forward-line 1))))))
-
 (defun gnus-summary-article-pseudo-p (article)
   "Say whether this article is a pseudo article or not."
   (not (vectorp (gnus-data-header (gnus-data-find article)))))
@@ -2248,6 +2233,23 @@
 		 (= (following-char) ?\n))
 	(subst-char-in-region point (1+ point) ?\n ?\r)))))
 
+;; This needs to be put here because it uses the
+;; gnus-save-hidden-threads macro
+(defun gnus-data-compute-positions ()
+  "Compute the positions of all articles."
+  (setq gnus-newsgroup-data-reverse nil)
+  (let ((data gnus-newsgroup-data))
+    (save-excursion
+      (gnus-save-hidden-threads
+	(gnus-summary-show-all-threads)
+	(goto-char (point-min))
+	(while data
+	  (while (get-text-property (point) 'gnus-intangible)
+	    (forward-line 1))
+	  (gnus-data-set-pos (car data) (+ (point) 3))
+	  (setq data (cdr data))
+	  (forward-line 1))))))
+
 ;; Various summary mode internalish functions.
 
 (defun gnus-mouse-pick-article (e)