Mercurial > emacs

comparison lisp/gnus/gnus-sum.el @ 24552:ccf2939fc5ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 15fc6acbae7a
children 9968f55ad26e
comparison
equal deleted inserted replaced
24551:c10fd4e02857 24552:ccf2939fc5ec
2046 (setq gnus-newsgroup-data-reverse nil) 2046 (setq gnus-newsgroup-data-reverse nil)
2047 (while data 2047 (while data
2048 (setcar (nthcdr 2 (car data)) (+ offset (nth 2 (car data)))) 2048 (setcar (nthcdr 2 (car data)) (+ offset (nth 2 (car data))))
2049 (setq data (cdr data)))) 2049 (setq data (cdr data))))
2050 2050
2051 (defun gnus-data-compute-positions ()
2052 "Compute the positions of all articles."
2053 (setq gnus-newsgroup-data-reverse nil)
2054 (let ((data gnus-newsgroup-data))
2055 (save-excursion
2056 (gnus-save-hidden-threads
2057 (gnus-summary-show-all-threads)
2058 (goto-char (point-min))
2059 (while data
2060 (while (get-text-property (point) 'gnus-intangible)
2061 (forward-line 1))
2062 (gnus-data-set-pos (car data) (+ (point) 3))
2063 (setq data (cdr data))
2064 (forward-line 1))))))
2065
2066 (defun gnus-summary-article-pseudo-p (article) 2051 (defun gnus-summary-article-pseudo-p (article)
2067 "Say whether this article is a pseudo article or not." 2052 "Say whether this article is a pseudo article or not."
2068 (not (vectorp (gnus-data-header (gnus-data-find article))))) 2053 (not (vectorp (gnus-data-header (gnus-data-find article)))))
2069 2054
2070 (defmacro gnus-summary-article-sparse-p (article) 2055 (defmacro gnus-summary-article-sparse-p (article)
2245 (while (setq point (pop config)) 2230 (while (setq point (pop config))
2246 (when (and (< point (point-max)) 2231 (when (and (< point (point-max))
2247 (goto-char point) 2232 (goto-char point)
2248 (= (following-char) ?\n)) 2233 (= (following-char) ?\n))
2249 (subst-char-in-region point (1+ point) ?\n ?\r))))) 2234 (subst-char-in-region point (1+ point) ?\n ?\r)))))
2235
2236 ;; This needs to be put here because it uses the
2237 ;; gnus-save-hidden-threads macro
2238 (defun gnus-data-compute-positions ()
2239 "Compute the positions of all articles."
2240 (setq gnus-newsgroup-data-reverse nil)
2241 (let ((data gnus-newsgroup-data))
2242 (save-excursion
2243 (gnus-save-hidden-threads
2244 (gnus-summary-show-all-threads)
2245 (goto-char (point-min))
2246 (while data
2247 (while (get-text-property (point) 'gnus-intangible)
2248 (forward-line 1))
2249 (gnus-data-set-pos (car data) (+ (point) 3))
2250 (setq data (cdr data))
2251 (forward-line 1))))))
2250 2252
2251 ;; Various summary mode internalish functions. 2253 ;; Various summary mode internalish functions.
2252 2254
2253 (defun gnus-mouse-pick-article (e) 2255 (defun gnus-mouse-pick-article (e)
2254 (interactive "e") 2256 (interactive "e")