mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
the gnus-save-hidden-threads macro.
This commit is contained in:
Andreas Schwab 1999-03-31 08:40:48 +00:00
parent ebef6d9376
commit 107ecebbe7
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/gnus/gnus-sum.el
View File

@ -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)