From: yoichi <yoichi>
Date: Tue, 4 Feb 2003 19:09:23 +0000 (+0000)
Subject: * WL-MK (make-wl-news): Replace "^(" by "\\\\(" to avoid font-lock
X-Git-Tag: wl-2_11_2~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ce2bba5de972adf598f62df5c4d30593e387f789;p=elisp%2Fwanderlust.git

* WL-MK (make-wl-news): Replace "^(" by "\\\\(" to avoid font-lock
confusion.
---

diff --git a/ChangeLog b/ChangeLog
index 4135398..0dd38cd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* WL-MK (make-wl-news): Replace "^(" by "\\\\(" to avoid font-lock
+	confusion.
+
 2003-01-17  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* WL-MK (test-wl): Added `make-wl-news'.
diff --git a/WL-MK b/WL-MK
index a3cd3a0..74303dc 100644
--- a/WL-MK
+++ b/WL-MK
@@ -486,7 +486,10 @@
 	    (if wl-news-lang
 		(progn
 		  (insert "(defconst wl-news-news-alist\n  '")
-		  (prin1 (wl-news-parse-news wl-news-lang) (current-buffer))
+		  (let ((p (point)))
+		    (prin1 (wl-news-parse-news wl-news-lang) (current-buffer))
+		    (save-excursion
+		      (replace-regexp "^(" "\\\\(" nil p (point)))) ; avoid font-lock confusion
 		  (insert ")\n"))
 	      (insert "(defconst wl-news-news-alist nil)\n\n"))
 	    (let ((buffer-file-coding-system (mime-charset-to-coding-system 'x-ctext)))