From: yoichi <yoichi>
Date: Fri, 7 Feb 2003 12:20:32 +0000 (+0000)
Subject: WL-MK (make-wl-news): Do not use 4th and 5th arg of replace-regexp.
X-Git-Tag: wl-2_11_2~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4cc742168cfa08327ede86ba78c76f687ab32d1f;p=elisp%2Fwanderlust.git

WL-MK (make-wl-news): Do not use 4th and 5th arg of replace-regexp.
---

diff --git a/WL-MK b/WL-MK
index 74303dc..d706e76 100644
--- a/WL-MK
+++ b/WL-MK
@@ -489,7 +489,10 @@
 		  (let ((p (point)))
 		    (prin1 (wl-news-parse-news wl-news-lang) (current-buffer))
 		    (save-excursion
-		      (replace-regexp "^(" "\\\\(" nil p (point)))) ; avoid font-lock confusion
+		      (narrow-to-region p (point))
+		      (goto-char (1+ p))
+		      (replace-regexp "^(" "\\\\(") ; avoid font-lock confusion
+		      (widen)))
 		  (insert ")\n"))
 	      (insert "(defconst wl-news-news-alist nil)\n\n"))
 	    (let ((buffer-file-coding-system (mime-charset-to-coding-system 'x-ctext)))