From: yamaoka <yamaoka>
Date: Fri, 17 Nov 2000 03:43:18 +0000 (+0000)
Subject: (nnheader-header-value): Save point.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=768768434cb4dea68bc5321e2f72089cd6ae2b53;p=elisp%2Fgnus.git-

(nnheader-header-value): Save point.
;; Patch from Arisawa-san.
---

diff --git a/ChangeLog b/ChangeLog
index 2f9202e..d51e1a6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-17  Akihiro Arisawa  <ari@atesoft.advantest.co.jp>
+
+	* lisp/nnheader.el (nnheader-header-value): Save point.
+
 2000-11-16  Katsuhiro Hermit Endo  <hermit@koka-in.org>
 
 	* texi/gnus-ja.texi (Drafts): Fix typo.
diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 0aebba5..c777023 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -189,7 +189,10 @@ This variable is a substitute for `mm-text-coding-system-for-write'.")
 ;; Parsing headers and NOV lines.
 
 (defsubst nnheader-header-value ()
-  (buffer-substring (match-end 0) (std11-field-end)))
+  (let ((pt (point)))
+    (prog1
+	(buffer-substring (match-end 0) (std11-field-end))
+      (goto-char pt))))
 
 (defun nnheader-parse-head (&optional naked)
   (let ((case-fold-search t)