From 381e2a97cad59f2ec2f1f40e7c23e107ecee9ba8 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 25 Jan 2002 03:21:44 +0000 Subject: [PATCH] * 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'. --- wl/ChangeLog | 9 +++++++++ wl/wl-draft.el | 2 ++ wl/wl-e21.el | 2 +- wl/wl-mule.el | 2 +- wl/wl-xmas.el | 2 +- 5 files changed, 14 insertions(+), 3 deletions(-) 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 + * 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)) -- 1.7.10.4