* nnheader.el (nnheader-header-value): Ignore leading whitespaces.

diff --git a/ChangeLog b/ChangeLog
index aef04cd..8fe3956 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2001-07-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * lisp/nnheader.el (nnheader-header-value): Ignore leading
+       whitespaces.
+
        * lisp/dgnushack.el (dgnushack-make-auto-load): Advise
        `make-autoload' to handle `define-derived-mode'.
 

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 791b6cb..53834bc 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -213,7 +213,7 @@ This variable is a substitute for `mm-text-coding-system-for-write'.")
   (let ((pt (point)))
     (prog2
        (skip-chars-forward " \t")
-       (buffer-substring (match-end 0) (std11-field-end))
+       (buffer-substring (point) (std11-field-end))
       (goto-char pt))))
 
 (defun nnheader-parse-head (&optional naked)