From e752ef1a7b83308660d3b129780e3ab01fd20424 Mon Sep 17 00:00:00 2001 From: Jesper Harder Date: Sun, 12 Jan 2003 04:56:17 +0000 Subject: [PATCH 1/1] (message-fetch-reply-field): Narrow to headers. --- lisp/ChangeLog | 2 ++ lisp/message.el | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2d6df1d84..27ae1ea1c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2003-01-12 Jesper Harder + * message.el (message-fetch-reply-field): Narrow to headers. + * gnus-msg.el (gnus-inews-do-gcc): Don't try to mark GCC's as read if Gnus isn't alive. diff --git a/lisp/message.el b/lisp/message.el index cb97d8108..fd8243911 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1520,7 +1520,9 @@ is used by default." (defun message-fetch-reply-field (header) "Fetch field HEADER from the message we're replying to." (message-with-reply-buffer - (message-fetch-field header))) + (save-restriction + (mail-narrow-to-head) + (message-fetch-field header)))) (defun message-set-work-buffer () (if (get-buffer " *message work*") -- 2.25.1