* wl-draft.el (wl-draft-decode-body): Give an argument for delete-char.

(wl-draft-insert-mail-header-separator): Ditto.

* wl.el: Fixed last change.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index cf842d5..4516089 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-draft.el (wl-draft-decode-body): Give an argument for delete-char.
+       (wl-draft-insert-mail-header-separator): Ditto.
+
        * wl.el (wl): Enclose `wl-check-environment' with `condition-case'
        again (Reverted the change on 2002-01-17 by OKADA san).
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index f7ff689..2cb9332 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1541,7 +1541,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
     (if (search-forward "\n\n" nil t)
        (progn
          (goto-char (1- (point)))
-         (delete-char))
+         (delete-char 1))
       (goto-char (point-max)))
     (setq delimline (point))
     (save-excursion
@@ -1614,7 +1614,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
       (if (search-forward "\n\n" nil t)
          (progn
            (goto-char (1- (point)))
-           (delete-char))
+           (delete-char 1))
        (goto-char (point-max))))
     (wl-draft-check-new-line)
     (put-text-property (point)

diff --git a/wl/wl.el b/wl/wl.el
index 7a06243..b952989 100644 (file)
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -814,8 +814,8 @@ If ARG (prefix argument) is specified, folder checkings are skipped."
                  (progn
                    (message "Checking environment...")
                    (wl-check-environment arg)
-                   (message "Checking environment...done")
-                   (error quit))))
+                   (message "Checking environment...done"))
+               ((error quit))))
          (message "Checking type of variables...")
          (wl-check-variables)
          (wl-check-variables-2)