From 99ff290a22d760264e486aeb2357c86286f0ebab Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 23 Jan 2002 09:39:05 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 3 +++ wl/wl-draft.el | 4 ++-- wl/wl.el | 4 ++-- 3 files changed, 7 insertions(+), 4 deletions(-) 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 + * 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) -- 1.7.10.4