From: Andreas Schwab Date: Wed, 31 Mar 1999 08:40:48 +0000 (+0000) Subject: (gnus-data-compute-positions): Move down after X-Git-Tag: emacs-20.4~397 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=107ecebbe7446098aea53d3ea315947c7754518b;p=emacs.git (gnus-data-compute-positions): Move down after the gnus-save-hidden-threads macro. --- 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)