Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnheader.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
155 (string-match "\\`fake\\+none\\+[0-9]+\\'" id))) 155 (string-match "\\`fake\\+none\\+[0-9]+\\'" id)))
156 156
157 ;; Parsing headers and NOV lines. 157 ;; Parsing headers and NOV lines.
158 158
159 (defsubst nnheader-header-value () 159 (defsubst nnheader-header-value ()
160 (buffer-substring (match-end 0) (point-at-eol))) 160 (buffer-substring (match-end 0) (gnus-point-at-eol)))
161 161
162 (defun nnheader-parse-head (&optional naked) 162 (defun nnheader-parse-head (&optional naked)
163 (let ((case-fold-search t) 163 (let ((case-fold-search t)
164 (cur (current-buffer)) 164 (cur (current-buffer))
165 (buffer-read-only nil) 165 (buffer-read-only nil)
261 (or (eobp) (forward-char 1)))) 261 (or (eobp) (forward-char 1))))
262 262
263 ;; (defvar nnheader-none-counter 0) 263 ;; (defvar nnheader-none-counter 0)
264 264
265 (defun nnheader-parse-nov () 265 (defun nnheader-parse-nov ()
266 (let ((eol (point-at-eol))) 266 (let ((eol (gnus-point-at-eol)))
267 (vector 267 (vector
268 (nnheader-nov-read-integer) ; number 268 (nnheader-nov-read-integer) ; number
269 (nnheader-nov-field) ; subject 269 (nnheader-nov-field) ; subject
270 (nnheader-nov-field) ; from 270 (nnheader-nov-field) ; from
271 (nnheader-nov-field) ; date 271 (nnheader-nov-field) ; date