From: yoichi <yoichi>
Date: Sat, 21 Dec 2002 15:13:58 +0000 (+0000)
Subject: fix
X-Git-Tag: merged-trunk-to-elmo-mark-14~74
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=32e16b9077db1b915f2e4367a9cac2c578ab48e1;p=elisp%2Fwanderlust.git

fix
---

diff --git a/WL-MK b/WL-MK
index 40ec8a8..4b5f568 100644
--- a/WL-MK
+++ b/WL-MK
@@ -478,9 +478,12 @@
 	    (unless (re-search-forward "^;;; -\\*- news-list -\\*-" nil t)
 	      (error "Invalid wl-news.el.in"))
 	    (forward-line 2)
-	    (insert "(defconst wl-news-news-alist\n  '")
-	    (prin1 (wl-news-parse-news wl-news-lang) (current-buffer))
-	    (insert ")\n")
+	    (if wl-news-lang
+		(progn
+		  (insert "(defconst wl-news-news-alist\n  '")
+		  (prin1 (wl-news-parse-news wl-news-lang) (current-buffer))
+		  (insert ")\n"))
+	      (insert "(defconst wl-news-news-alist nil)\n\n"))
 	    (let ((buffer-file-coding-system (mime-charset-to-coding-system 'x-ctext)))
 	      (write-region (point-min) (point-max) out-filename)))))))