From ecb99ede496992087092c65695a5e27fae91a41a Mon Sep 17 00:00:00 2001 From: hayashi Date: Tue, 30 Mar 1999 10:08:08 +0000 Subject: [PATCH] Fix bug in nnheader-nov-field --- lisp/nnheader.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index e138ede..dafbfba 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -264,8 +264,11 @@ on your system, you could say something like: (1- (point)) eol)) +(defmacro nnheader-nov-skip-field () + '(search-forward "\t" eol 'move)) + (defmacro nnheader-nov-field () - '(buffer-substring (point) (nnheader-nov-next-field))) + '(buffer-substring (point) (if (nnheader-nov-skip-field) (1- (point)) eol))) (defmacro nnheader-nov-read-integer () '(let ((field (buffer-substring (point) (nnheader-nov-next-field)))) -- 1.7.10.4