(nnheader-header-value): Save point.

;; Patch from Arisawa-san.

diff --git a/ChangeLog b/ChangeLog
index 2f9202e..d51e1a6 100644 (file)
--- 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 (file)
--- 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)