X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fwanderlust.git;a=blobdiff_plain;f=wl%2Fwl-addrmgr.el;h=72e6c96d06b138db1433b0eee03adcd228c7a161;hp=a25f695b634c3137dd86eff4cf4c2985d5db5ac7;hb=3292cda093d45703dd7adcbf612000796397855d;hpb=1e5af9d12d955fc95eb2318495eeaebe9159fa17

diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el
index a25f695..72e6c96 100644
--- a/wl/wl-addrmgr.el
+++ b/wl/wl-addrmgr.el
@@ -662,12 +662,10 @@ Return nil if no ADDRESS exists."
 	(while (re-search-forward (concat "^" (regexp-quote field) ":") nil t)
 	  ;; delete field
 	  (progn
-	    (save-excursion
-	      (beginning-of-line)
-	      (setq beg (point)))
+	    (setq beg (point-at-bol))
 	    (re-search-forward "^[^ \t]" nil 'move)
-	    (beginning-of-line)
-	    (delete-region beg (point))))
+	    (delete-region beg (point-at-bol))
+	    (beginning-of-line)))
 	(when content
 	  ;; add field to top.
 	  (goto-char (point-min))