From 32e16b9077db1b915f2e4367a9cac2c578ab48e1 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 21 Dec 2002 15:13:58 +0000 Subject: [PATCH] fix --- WL-MK | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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))))))) -- 1.7.10.4