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