(gnus-data-compute-positions): Move down after

the gnus-save-hidden-threads macro.

1 files changed, 17 insertions, 15 deletions

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 8445b475db1..45658018139 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -2048,21 +2048,6 @@ The following commands are available:
     (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 @@ marks of articles."
                  (= (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)