From: teranisi <teranisi>
Date: Fri, 25 Jan 2002 03:21:44 +0000 (+0000)
Subject: * wl-e21.el (wl-draft-key-setup): Don't bind C-x C-s
X-Git-Tag: wl-2_9_7~32
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=381e2a97cad59f2ec2f1f40e7c23e107ecee9ba8;p=elisp%2Fwanderlust.git

* wl-e21.el (wl-draft-key-setup): Don't bind C-x C-s

* wl-xmas.el (wl-draft-key-setup): Ditto.

* wl-mule.el (wl-draft-key-setup): Ditto.

* wl-draft.el (wl-draft-reedit): Set buffer-file-name.
(wl-draft-reedit): Add `wl-draft-save' to `local-write-file-hooks'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index decca94..b9fc763 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,10 +1,19 @@
 2002-01-25  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-e21.el (wl-draft-key-setup): Don't bind C-x C-s
+
+	* wl-xmas.el (wl-draft-key-setup): Ditto.
+
+	* wl-mule.el (wl-draft-key-setup): Ditto.
+
 	* 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-draft-reedit): Set buffer-file-name.
+	(wl-draft-reedit): Add `wl-draft-save' to `local-write-file-hooks'.
+
 
 	* wl.el (wl-exit): If wl-delete-startup-frame-function is non-nil,
 	call it.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 8701f14..bf8692a 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1711,6 +1711,7 @@ Derived from `message-save-drafts' in T-gnus."
 	  (rename-buffer (concat wl-draft-folder "/" (buffer-name))))
       (auto-save-mode -1)
       (wl-draft-mode)
+      (setq buffer-file-name file-name)
       (make-local-variable 'truncate-partial-width-windows)
       (setq truncate-partial-width-windows nil)
       (setq truncate-lines wl-draft-truncate-lines)
@@ -1721,6 +1722,7 @@ Derived from `message-save-drafts' in T-gnus."
       (goto-char (point-min))
       (wl-draft-overload-functions)
       (wl-draft-editor-mode)
+      (add-hook 'local-write-file-hooks 'wl-draft-save)
       (wl-highlight-headers 'for-draft)
       (run-hooks 'wl-draft-reedit-hook)
       (goto-char (point-max))
diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index a9f48e2..7767bca 100644
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -609,7 +609,7 @@ Special commands:
   (define-key wl-draft-mode-map "\C-c\C-j" 'wl-template-select)
   (define-key wl-draft-mode-map "\C-c\C-p" 'wl-draft-preview-message)
   (define-key wl-draft-mode-map "\C-c\C-a" 'wl-addrmgr)
-  (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
+;;  (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
   (define-key wl-draft-mode-map "\C-xk"    'wl-draft-mimic-kill-buffer)
   (define-key wl-draft-mode-map "\C-c\C-d" 'wl-draft-elide-region))
 
diff --git a/wl/wl-mule.el b/wl/wl-mule.el
index 1e3aee4..8a2b8da 100644
--- a/wl/wl-mule.el
+++ b/wl/wl-mule.el
@@ -156,7 +156,7 @@ Special commands:
   (define-key wl-draft-mode-map "\C-c\C-e" 'wl-draft-config-exec)
   (define-key wl-draft-mode-map "\C-c\C-j" 'wl-template-select)
   (define-key wl-draft-mode-map "\C-c\C-p" 'wl-draft-preview-message)
-  (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
+;;   (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
   (define-key wl-draft-mode-map "\C-c\C-a" 'wl-addrmgr)
   (define-key wl-draft-mode-map "\C-xk" 'wl-draft-mimic-kill-buffer)
   (define-key wl-draft-mode-map "\C-c\C-d" 'wl-draft-elide-region))
diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index 2799c53..1931b29 100644
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -512,7 +512,7 @@ Special commands:
   (define-key wl-draft-mode-map "\C-c\C-e" 'wl-draft-config-exec)
   (define-key wl-draft-mode-map "\C-c\C-j" 'wl-template-select)
   (define-key wl-draft-mode-map "\C-c\C-p" 'wl-draft-preview-message)
-  (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
+;;   (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
   (define-key wl-draft-mode-map "\C-c\C-a" 'wl-addrmgr)
   (define-key wl-draft-mode-map "\C-xk"    'wl-draft-mimic-kill-buffer)
   (define-key wl-draft-mode-map "\C-c\C-d" 'wl-draft-elide-region))