From: kaoru <kaoru>
Date: Tue, 24 Aug 2010 00:29:55 +0000 (+0000)
Subject: * wl-address.el (wl-address-make-alist-from-alias-file): Use
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-1^2~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=33d9128fae4ddb2529278fbf8a0bebc0ee64d2c4;p=elisp%2Fwanderlust.git

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