From: hayashi <hayashi>
Date: Tue, 30 Mar 1999 10:08:08 +0000 (+0000)
Subject: Fix bug in nnheader-nov-field
X-Git-Tag: semi-gnus-6_10_12~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ecb99ede496992087092c65695a5e27fae91a41a;p=elisp%2Fgnus.git-

Fix bug in nnheader-nov-field
---

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))))