(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 (file)
--- 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 (file)
--- 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 ()