From: teranisi <teranisi>
Date: Fri, 25 Jan 2002 03:01:51 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-create-buffer): Don't clear buffer-file-name.
X-Git-Tag: wl-2_9_7~33
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=38061fbd310c760c63348497a927aebc7a8bc389;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-create-buffer): Don't clear buffer-file-name.
(wl-draft-reedit): Ditto.
(wl-draft-prepare-edit): Add `wl-draft-save' to
`local-write-file-hooks'.
(wl-draft-prepare-edit): Call clear-visited-file-modtime.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e2faa83..decca94 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2002-01-25  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-draft.el (wl-draft-create-buffer): Don't clear buffer-file-name.
+	(wl-draft-reedit): Ditto.
+	(wl-draft-prepare-edit): Add `wl-draft-save' to
+	`local-write-file-hooks'.
+	(wl-draft-prepare-edit): Call clear-visited-file-modtime.
+
 	* wl.el (wl-exit): If wl-delete-startup-frame-function is non-nil,
 	call it.
 	(wl-delete-startup-frame-function): New variable.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 347f514..8701f14 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1484,8 +1484,6 @@ Derived from `message-save-drafts' in T-gnus."
     (make-local-variable 'truncate-partial-width-windows)
     (setq truncate-partial-width-windows nil)
     (setq truncate-lines wl-draft-truncate-lines)
-    ;; Don't care about supersession.
-    (setq buffer-file-name nil)
     (setq wl-sent-message-via nil)
     (setq wl-sent-message-queued nil)
     (setq wl-draft-buffer-file-name file-name)
@@ -1539,9 +1537,11 @@ Derived from `message-save-drafts' in T-gnus."
     (error "wl-draft-create-header must be use in wl-draft-mode."))
   (let (change-major-mode-hook)
     (wl-draft-editor-mode)
+    (add-hook 'local-write-file-hooks 'wl-draft-save)
     (wl-draft-overload-functions)
     (wl-highlight-headers 'for-draft)
-    (wl-draft-save)))
+    (wl-draft-save)
+    (clear-visited-file-modtime)))
 
 (defun wl-draft-decode-header ()
   (save-excursion
@@ -1711,11 +1711,9 @@ Derived from `message-save-drafts' in T-gnus."
 	  (rename-buffer (concat wl-draft-folder "/" (buffer-name))))
       (auto-save-mode -1)
       (wl-draft-mode)
-      ;; Don't care about supersession.
       (make-local-variable 'truncate-partial-width-windows)
       (setq truncate-partial-width-windows nil)
       (setq truncate-lines wl-draft-truncate-lines)
-      (setq buffer-file-name nil)
       (setq wl-sent-message-via nil)
       (setq wl-sent-message-queued nil)
       (setq wl-draft-buffer-file-name file-name)