*** gnus-draft.el	Sun Sep 23 12:37:11 2001
--- /home/egoge/gnus-draft.el	Sat Oct 13 21:42:02 2001
***************
*** 102,108 ****
      (save-excursion
        (save-restriction
  	(message-narrow-to-headers)
! 	(message-remove-header "date")))
      (save-buffer)
      (let ((gnus-verbose-backends nil))
        (gnus-request-expire-articles (list article) group t))
--- 102,109 ----
      (save-excursion
        (save-restriction
  	(message-narrow-to-headers)
! 	(message-remove-header "date")
! 	(put-text-property (point-min) (point-max) 'field 'header)))
      (save-buffer)
      (let ((gnus-verbose-backends nil))
        (gnus-request-expire-articles (list article) group t))
***************
*** 218,224 ****
  
  (progn
    (defun gnus-draft-setup (narticle group &optional restore)
!     (let (ga)
        (gnus-setup-message 'forward
  	(let ((article narticle))
  	  (message-mail)
--- 219,225 ----
  
  (progn
    (defun gnus-draft-setup (narticle group &optional restore)
!     (let (ga (inhibit-read-only t))
        (gnus-setup-message 'forward
  	(let ((article narticle))
  	  (message-mail)
***************
*** 232,238 ****
  	    (goto-char (point-min))
  	    (search-forward "\n\n")
  	    (forward-char -1)
! 	    (insert mail-header-separator)
  	    (forward-line 1)
  	    (setq ga (message-fetch-field gnus-draft-meta-information-header))
  	    (message-set-auto-save-file-name))))
--- 233,244 ----
  	    (goto-char (point-min))
  	    (search-forward "\n\n")
  	    (forward-char -1)
! 	    (put-text-property
! 	     (point)
! 	     (progn
! 	       (insert mail-header-separator)
! 	       (point))
! 	     'read-only t)
  	    (forward-line 1)
  	    (setq ga (message-fetch-field gnus-draft-meta-information-header))
  	    (message-set-auto-save-file-name))))