From 768768434cb4dea68bc5321e2f72089cd6ae2b53 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 17 Nov 2000 03:43:18 +0000 Subject: [PATCH] (nnheader-header-value): Save point. ;; Patch from Arisawa-san. --- ChangeLog | 4 ++++ lisp/nnheader.el | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 2f9202e..d51e1a6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-11-17 Akihiro Arisawa + + * lisp/nnheader.el (nnheader-header-value): Save point. + 2000-11-16 Katsuhiro Hermit Endo * 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) -- 1.7.10.4