* wl-draft.el (wl-draft-edit-string): Don't set buffer-read-only.

* wl-summary.el (wl-summary-mode-map): Remove already abolished
bindings.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b5ae40b..578f161 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2002-07-18  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * 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  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * 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 (file)
--- 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 (file)
--- 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)