*** message.el	Fri Oct 12 16:39:31 2001
--- /home/egoge/message.el	Sat Oct 13 21:04:09 2001
***************
*** 3943,3955 ****
    (when message-default-headers
      (insert message-default-headers)
      (or (bolp) (insert ?\n)))
-   (put-text-property (point-min) (point) 'field 'header)
    (put-text-property
     (point)
     (progn
       (insert mail-header-separator "\n")
       (1- (point)))
!    'read-only nil)
    (forward-line -1)
    (when (message-news-p)
      (when message-default-news-headers
--- 3943,3954 ----
    (when message-default-headers
      (insert message-default-headers)
      (or (bolp) (insert ?\n)))
    (put-text-property
     (point)
     (progn
       (insert mail-header-separator "\n")
       (1- (point)))
!    'read-only t)
    (forward-line -1)
    (when (message-news-p)
      (when message-default-news-headers
***************
*** 3979,3984 ****
--- 3978,3986 ----
    (set-buffer-modified-p nil)
    (setq buffer-undo-list nil)
    (run-hooks 'message-setup-hook)
+   (save-restriction
+     (message-narrow-to-headers)
+     (put-text-property (point-min) (point-max) 'field 'header))
    (message-position-point)
    (undo-boundary))