From: yoichi <yoichi>
Date: Thu, 18 Jul 2002 02:42:06 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-edit-string): Don't set buffer-read-only.
X-Git-Tag: elmo-mark-root~48
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ebbd9a2b78fd2e05f56303b4e1f87633d1400094;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)