Mercurial > emacs

comparison lisp/mail/rmail.el @ 90182:f042e7c0fe20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 302-319) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 69) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 20 May 2005 04:22:05 +0000
parents 08185296b491 a7e02ef1e3d6
children 5b029ff3b08d
comparison
equal deleted inserted replaced
90181:0c828e2b0b6f 90182:f042e7c0fe20
1988 (forward-char -1) 1988 (forward-char -1)
1989 (and (search-forward "\ncontent-length: " 1989 (and (search-forward "\ncontent-length: "
1990 header-end t) 1990 header-end t)
1991 (let ((beg (point)) 1991 (let ((beg (point))
1992 (eol (progn (end-of-line) (point)))) 1992 (eol (progn (end-of-line) (point))))
1993 (string-to-int (buffer-substring beg eol))))))) 1993 (string-to-number (buffer-substring beg eol)))))))
1994 (and size 1994 (and size
1995 (if (and (natnump size) 1995 (if (and (natnump size)
1996 (<= (+ header-end size) (point-max)) 1996 (<= (+ header-end size) (point-max))
1997 ;; Make sure this would put us at a position 1997 ;; Make sure this would put us at a position
1998 ;; that we could continue from. 1998 ;; that we could continue from.