From: yamaoka <yamaoka>
Date: Wed, 21 Jul 2010 01:13:44 +0000 (+0000)
Subject: (wl-summary-put-temp-mark): Use (delete-char -1) instead of
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-1^2~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b935522ec4fd13aef49de28cec86a8b532db4693;p=elisp%2Fwanderlust.git

(wl-summary-put-temp-mark): Use (delete-char -1) instead of
 (delete-backward-char 1) that deletes region in Emacs 24.
 See delete-active-region described in NEWS.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 52c4610..6e9495e 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2010-07-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* wl-summary.el (wl-summary-put-temp-mark): Use (delete-char -1)
+	instead of (delete-backward-char 1) that deletes region in Emacs 24.
+	See delete-active-region described in NEWS.
+
 2010-05-25  Tetsurou Okazaki  <okazaki@be.to>
 
 	* wl-spam.el (wl-summary-register-as-spam-region)
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 72811d5..eff7f67 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3008,7 +3008,7 @@ The mark is decided according to the FOLDER and STATUS."
       (let ((inhibit-read-only t)
 	    (buffer-read-only nil))
 	(move-to-column wl-summary-buffer-temp-mark-column)
-	(delete-backward-char 1)
+	(delete-char -1)
 	(insert mark)))))
 
 (defun wl-summary-next-buffer ()