From ebbd9a2b78fd2e05f56303b4e1f87633d1400094 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 18 Jul 2002 02:42:06 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-edit-string): Don't set buffer-read-only. * wl-summary.el (wl-summary-mode-map): Remove already abolished bindings. --- wl/ChangeLog | 7 +++++++ wl/wl-draft.el | 3 +-- wl/wl-summary.el | 2 -- 3 files changed, 8 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index b5ae40b..578f161 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,10 @@ +2002-07-18 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft-edit-string): Don't set buffer-read-only. + + * wl-summary.el (wl-summary-mode-map): Remove already abolished + bindings. + 2002-07-14 Yoichi NAKAYAMA * wl-draft.el (wl-draft-config-exec): Fixed docstring. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index a0607e1..5b2c9e9 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -549,7 +549,7 @@ Reply to author if WITH-ARG is non-nil." (tmp-buf (get-buffer-create " *wl-draft-edit-string*")) to subject in-reply-to cc references newsgroups mail-followup-to content-type content-transfer-encoding from - body-beg buffer-read-only) + body-beg) (set-buffer tmp-buf) (erase-buffer) (insert string) @@ -607,7 +607,6 @@ Reply to author if WITH-ARG is non-nil." (and to (mail-position-on-field "To")) (delete-other-windows) (kill-buffer tmp-buf))) - (setq buffer-read-only nil) ;;?? (run-hooks 'wl-draft-reedit-hook)) (defun wl-draft-insert-current-message (dummy) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 94878cb..b4329a6 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -416,10 +416,8 @@ (define-key wl-summary-mode-map "p" 'wl-summary-prev) (define-key wl-summary-mode-map "N" 'wl-summary-down) (define-key wl-summary-mode-map "P" 'wl-summary-up) -;;;(define-key wl-summary-mode-map "w" 'wl-draft) (define-key wl-summary-mode-map "w" 'wl-summary-write) (define-key wl-summary-mode-map "W" 'wl-summary-write-current-folder) -;;;(define-key wl-summary-mode-map "e" 'wl-draft-open-file) (define-key wl-summary-mode-map "e" 'wl-summary-save) (define-key wl-summary-mode-map "\C-c\C-o" 'wl-jump-to-draft-buffer) (define-key wl-summary-mode-map "\C-c\C-a" 'wl-addrmgr) -- 1.7.10.4