X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-draft.el;h=8c5a236d74ad28604748f3a84792355e0a1e7642;hb=bd1c7daca8de303dd5766cb7831e964cfe3a03c5;hp=b75cccf91dd40d839afc7864c2c2ce37aa4bc957;hpb=10c9f47884508cec3b96340be0b4118938633e51;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index b75cccf..8c5a236 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -772,8 +772,8 @@ Reply to author if WITH-ARG is non-nil."
 				folder-name)))
 		(with-current-buffer buffer
 		  (elmo-folder-unmark-answered folder (list number))
-		  (wl-summary-jump-to-msg number)
-		  (wl-summary-update-mark number))
+		  (when (wl-summary-jump-to-msg number)
+		    (wl-summary-update-persistent-mark)))
 	      (elmo-folder-open folder 'load-msgdb)
 	      (elmo-folder-unmark-answered folder (list number))
 	      (elmo-folder-close folder))))
@@ -1644,6 +1644,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
     (if (interactive-p)
 	(run-hooks 'wl-mail-setup-hook))
     (goto-char (point-min))
+    (setq buffer-undo-list nil)
     (wl-user-agent-compose-internal) ;; user-agent
     (cond ((and
 	    (interactive-p)