From 7693ffba6a999ba36fe4b3303b4fd6348e049e45 Mon Sep 17 00:00:00 2001 From: okada Date: Tue, 22 Jan 2002 22:21:25 +0000 Subject: [PATCH] Fix last change --- wl/wl-draft.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 9f0880a..b75f126 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1257,15 +1257,16 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (defun wl-draft-delete-field (field &optional delimline replace) (wl-draft-delete-fields (regexp-quote field) delimline replace)) -(defun wl-draft-delete-fields (regexp &optional delimline replace) +(defun wl-draft-delete-fields (field &optional delimline replace) (save-restriction (unless delimline + (goto-char (point-min)) (if (search-forward "\n\n" nil t) (setq delimline (point)) (setq delimline (point-max)))) (narrow-to-region (point-min) delimline) (goto-char (point-min)) - (let ((regexp (concat "^" regexp ":")) + (let ((regexp (concat "^" field ":")) (case-fold-search t)) (while (not (eobp)) (if (looking-at regexp) -- 1.7.10.4