From: teranisi <teranisi>
Date: Wed, 23 Jan 2002 09:39:05 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-decode-body): Give an argument for delete-char.
X-Git-Tag: wl-2_9_7~53
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=99ff290a22d760264e486aeb2357c86286f0ebab;p=elisp%2Fwanderlust.git

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