From: yamaoka <yamaoka>
Date: Tue, 17 Jul 2001 03:49:50 +0000 (+0000)
Subject: * nnheader.el (nnheader-header-value): Ignore leading whitespaces.
X-Git-Tag: t-gnus-6_15_4-04-quimby~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4ed9a3c780a8f5116845a8dd07ead4cc00162a6a;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index aef04cd..8fe3956 100644
--- 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
--- 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)