From: kaoru <kaoru>
Date: Tue, 24 Aug 2010 00:12:54 +0000 (+0000)
Subject: * wl-addrbook.el (wl-addrbook-insert-file): Use (delete-char -1)
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-1^2~14
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7dc6b13521360dc152d186228c172f8ac6d23a66;p=elisp%2Fwanderlust.git

* wl-addrbook.el (wl-addrbook-insert-file): Use (delete-char -1)
instead of (delete-backward-char 1) or (backward-deletechar 1).
---

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 46d9212..9e25604 100644
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -3,6 +3,9 @@
 	* ptexinfmt.el (texinfo-format-verb): Use (delete-char -1)
         instead of (delete-backward-char 1); For Emacs24.
 
+	* wl-addrbook.el (wl-addrbook-insert-file): Use (delete-char -1)
+	instead of (delete-backward-char 1) or (backward-deletechar 1).
+
 2010-08-04  David Maus  <dmaus@ictsoc.de>
 
 	* ssl.el (open-ssl-stream, condition-case): Don't use old-style
diff --git a/utils/wl-addrbook.el b/utils/wl-addrbook.el
index b553230..952dc84 100644
--- a/utils/wl-addrbook.el
+++ b/utils/wl-addrbook.el
@@ -310,7 +310,7 @@ If addresses is a string, expands it recursively."
     (while (re-search-forward ",[ \t]*$" nil t)
       (end-of-line)
       (forward-char 1)
-      (delete-backward-char 1)
+      (delete-char -1)
       (delete-horizontal-space))
     ;; unquote, replace white spaces to "\0".
     (if unquote
@@ -319,11 +319,11 @@ If addresses is a string, expands it recursively."
 	  (while (re-search-forward "[\"']" nil t)
 	    (setq qchar (char-before (point)))
 	    ;; (point) is for backward compatibility
-	    (backward-delete-char 1) ;; delete quote
+	    (delete-char -1)		; delete quote
 	    (setq beg (point))
 	    (if (not (re-search-forward (char-to-string qchar) nil t))
 		(throw 'quote nil) ;; error
-	      (backward-delete-char 1) ;; delete quote
+	      (delete-char -1)	   ; delete quote
 	      (save-restriction
 		(narrow-to-region beg (point))
 		(goto-char (point-min))