X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=WL-MK;h=99f9256244673790fde30b47117cc4e09e9c0c77;hb=7d3196d3733fc2d3b2387d14069a331b49a3e9af;hp=19c9c38779284283e1a16692ee7ac043a8825d81;hpb=7c8c73a58973c457d50acbf16f25b314f2e93b41;p=elisp%2Fwanderlust.git

diff --git a/WL-MK b/WL-MK
index 19c9c38..99f9256 100644
--- a/WL-MK
+++ b/WL-MK
@@ -37,8 +37,8 @@
 (defconst wl-news-news-file '(("en" "NEWS")
 			      ("ja" "NEWS.ja")))
 (defconst wl-news-search-regexp
-  '(("en" "^\\* Changes in \\([0-9.]*\\) from")
-    ("ja" "^\\* [0-9.]* から \\([0-9.]*\\) への変更点")))
+  '(("en" "^\\* Changes in \\([0-9.]*\\) from [0-9.]+x?")
+    ("ja" "^\\* [0-9.]+x? から \\([0-9.]*\\) への変更点")))
 (defconst wl-news-filename "wl-news.el")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -234,6 +234,15 @@
    objs))
 
 
+(defun wl-examine-modules ()
+  "Examine wl modules should be byte-compile'd."
+  (config-wl-package-subr)
+  (make-wl-news)
+  (dolist (module modules-alist)
+    (dolist (filename (cdr module))
+      (princ (format "%s/%s.elc " (car module) filename)))))
+
+
 (defun compile-wl-package ()
   (config-wl-package)
   (make-wl-news)