[Mew-dist 10509] Re: reedit で +draft が壊れる

[Kazu Yamamoto ( 山本和彦 )]

From: Chifumi Hayashi (林　千史) <chifumi at example.com>
Subject: [Mew-dist 10507] Re: reedit で +draft が壊れる

> 2回目の E のかわりに A でも同様に後の方の内容が頭にくっついたものにな
> ります。

これでどうでしょう？

--かず
-------------- next part --------------
Index: mew-summary.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-summary.el,v
retrieving revision 1.216
diff -c -r1.216 mew-summary.el
*** mew-summary.el	1999/08/27 06:02:45	1.216
--- mew-summary.el	1999/08/27 11:26:58
***************
*** 1390,1409 ****
  	 (if (or part newdraftp)
  	     (setq draft (mew-folder-new-message mew-draft-folder))
  	   (setq draft (mew-expand-folder-get-msg fld msg)))
! 	 (setq attachdir (mew-attachdir draft)))
! 	;; prepare draft file
! 	(switch-to-buffer (find-file-noselect draft))
! 	(mew-draft-rename draft)
! 	(mew-delete-directory-recursively attachdir)
! 	(cond
! 	 (part
! 	  (insert-buffer-substring
! 	   cache
! 	   (mew-syntax-get-begin syntax)
! 	   (mew-syntax-get-end (mew-syntax-get-part syntax))))
! 	 (newdraftp
! 	  ;; if fld equal mew-draft-folder, message already exists.
! 	  (insert-file-contents (mew-expand-folder-get-msg fld msg)))))
        nil)))
  
  (defun mew-summary-edit-header ()
--- 1390,1409 ----
  	 (if (or part newdraftp)
  	     (setq draft (mew-folder-new-message mew-draft-folder))
  	   (setq draft (mew-expand-folder-get-msg fld msg)))
! 	 (setq attachdir (mew-attachdir draft))
! 	 ;; prepare draft file
! 	 (switch-to-buffer (find-file-noselect draft))
! 	 (mew-draft-rename draft)
! 	 (mew-delete-directory-recursively attachdir)
! 	 (cond
! 	  (part
! 	   (insert-buffer-substring
! 	    cache
! 	    (mew-syntax-get-begin syntax)
! 	    (mew-syntax-get-end (mew-syntax-get-part syntax))))
! 	  (newdraftp
! 	   ;; if fld equal mew-draft-folder, message already exists.
! 	   (insert-file-contents (mew-expand-folder-get-msg fld msg))))))
        nil)))
  
  (defun mew-summary-edit-header ()
***************
*** 1426,1432 ****
  	   (mew-decode-rfc822-header 'no-property))))
     (mew-header-clear) ;; erase the old header separator
     (mew-header-prepared)
!    (set-buffer-modified-p nil)))
  
  (defun mew-summary-resend ()
    "\\<mew-summary-mode-map>
--- 1426,1432 ----
  	   (mew-decode-rfc822-header 'no-property))))
     (mew-header-clear) ;; erase the old header separator
     (mew-header-prepared)
!    (save-buffer)))
  
  (defun mew-summary-resend ()
    "\\<mew-summary-mode-map>
***************
*** 1449,1455 ****
        (mew-header-goto-end)
        (mew-header-clear) ;; erase the old header separator
        (mew-header-prepared))
!      (set-buffer-modified-p nil)
       (mew-draft-mode)
       (run-hooks 'mew-draft-mode-reedit-hook)
       ;; move the cursor after "Resent-To: "
--- 1449,1455 ----
        (mew-header-goto-end)
        (mew-header-clear) ;; erase the old header separator
        (mew-header-prepared))
!      (save-buffer)
       (mew-draft-mode)
       (run-hooks 'mew-draft-mode-reedit-hook)
       ;; move the cursor after "Resent-To: "