2003-01-12 Jesper Harder <harder@ifa.au.dk>
+ * 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.
(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*")