* wl-address.el (wl-address-make-alist-from-alias-file): Use

`(delete-char -1)' instead of `(delete-backward-char 1)' that
deletes region in Emacs 24.
See delete-active-region described in NEWS.
* wl-draft.el (wl-draft-insert-mail-header-separator): Ditto.
* wl-summary.el (wl-summary-update-persistent-mark): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d8936a4..0121fb1 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2010-08-24  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-address.el (wl-address-make-alist-from-alias-file): Use
+       `(delete-char -1)' instead of `(delete-backward-char 1)' that
+       deletes region in Emacs 24.
+       See delete-active-region described in NEWS.
+       * wl-draft.el (wl-draft-insert-mail-header-separator): Ditto.
+       * wl-summary.el (wl-summary-update-persistent-mark): Ditto.
+
 2010-08-14  David Maus  <dmaus@ictsoc.de>
 
        * wl-summary.el (wl-summary-mode-menu-spec): Add menu option to

diff --git a/wl/wl-address.el b/wl/wl-address.el
index c63c5f1..f657e3b 100644 (file)
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -531,7 +531,7 @@ Refresh `wl-address-list', `wl-address-completion-list', and
       (while (re-search-forward ",$" nil t)
        (end-of-line)
        (forward-char 1)
-       (delete-backward-char 1))
+       (delete-char -1))
       (goto-char (point-min))
       (while (re-search-forward "^\\([^#;\n][^:]+\\):[ \t]*\\(.*\\)$" nil t)
        (setq alias (wl-match-buffer 1)

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 0e64e1b..28b73b2 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1878,7 +1878,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
        (goto-char delimline)
       (goto-char (point-min))
       (if (search-forward "\n\n" nil t)
-         (delete-backward-char 1)
+         (delete-char -1)
        (goto-char (point-max))))
     (wl-draft-check-new-line)
     (put-text-property (point)

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 63cabbe..cb4b661 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3143,7 +3143,7 @@ Return non-nil if the mark is updated"
                  (new-mark (wl-summary-persistent-mark number status)))
              (prog1
                  (unless (string= new-mark mark)
-                   (delete-backward-char 1)
+                   (delete-char -1)
                    (insert new-mark)
                    (wl-summary-set-message-modified)
                    t)