Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnheader.el @ 112:48d667d6f17f r20-1b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b8
author cvs
date Mon, 13 Aug 2007 09:20:48 +0200
parents 360340f9fd5f
children 9f59509498e1
comparison
equal deleted inserted replaced
111:164ab62060bf 112:48d667d6f17f
176 ;; This implementation of this function, with nine 176 ;; This implementation of this function, with nine
177 ;; search-forwards instead of the one re-search-forward and 177 ;; search-forwards instead of the one re-search-forward and
178 ;; a case (which basically was the old function) is actually 178 ;; a case (which basically was the old function) is actually
179 ;; about twice as fast, even though it looks messier. You 179 ;; about twice as fast, even though it looks messier. You
180 ;; can't have everything, I guess. Speed and elegance 180 ;; can't have everything, I guess. Speed and elegance
181 ;; doesn't always go hand in hand. 181 ;; don't always go hand in hand.
182 (vector 182 (vector
183 ;; Number. 183 ;; Number.
184 (if naked 184 (if naked
185 (progn 185 (progn
186 (setq p (point-min)) 186 (setq p (point-min))
209 (if (search-forward "\ndate: " nil t) 209 (if (search-forward "\ndate: " nil t)
210 (nnheader-header-value) "")) 210 (nnheader-header-value) ""))
211 ;; Message-ID. 211 ;; Message-ID.
212 (progn 212 (progn
213 (goto-char p) 213 (goto-char p)
214 (if (search-forward "\nmessage-id: " nil t) 214 (if (search-forward "\nmessage-id:" nil t)
215 (nnheader-header-value) 215 (buffer-substring
216 (1- (or (search-forward "<" nil t) (point)))
217 (or (search-forward ">" nil t) (point)))
216 ;; If there was no message-id, we just fake one to make 218 ;; If there was no message-id, we just fake one to make
217 ;; subsequent routines simpler. 219 ;; subsequent routines simpler.
218 (nnheader-generate-fake-message-id))) 220 (nnheader-generate-fake-message-id)))
219 ;; References. 221 ;; References.
220 (progn 222 (progn