From: okada <okada>
Date: Tue, 22 Jan 2002 22:21:25 +0000 (+0000)
Subject: Fix last change
X-Git-Tag: wl-2_9_6~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7693ffba6a999ba36fe4b3303b4fd6348e049e45;p=elisp%2Fwanderlust.git

Fix last change
---

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)