(elmo-folder-synchronize): Ignore `mask' when

[elisp/wanderlust.git] / WL-MK

diff --git a/WL-MK b/WL-MK
index 4c8a102..99f9256 100644 (file)
--- 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.]* \e$B$+$i\e(B \\([0-9.]*\\) \e$B$X$NJQ99E@\e(B")))
+  '(("en" "^\\* Changes in \\([0-9.]*\\) from [0-9.]+x?")
+    ("ja" "^\\* [0-9.]+x? \e$B$+$i\e(B \\([0-9.]*\\) \e$B$X$NJQ99E@\e(B")))
 (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)
@@ -246,23 +255,15 @@
   (if (not (file-directory-p PIXMAPDIR))
       (make-directory PIXMAPDIR t))
   (let* ((case-fold-search t)
-        (icons (directory-files ICONDIR t
+        (icons (directory-files ICONDIR nil
                                 (cond ((featurep 'xemacs)
                                        "\\.x[bp]m$")
                                       ((and (boundp 'emacs-major-version)
                                             (>= emacs-major-version 21))
                                        "\\.img$\\|\\.x[bp]m$")
                                       ((featurep 'mule)
-                                       "\\.img$\\|\\.xbm$"))))
-        icon dest)
-    (while icons
-      (setq icon (car icons)
-           icons (cdr icons)
-           dest (expand-file-name (file-name-nondirectory icon) PIXMAPDIR))
-      (princ (format "%s -> %s\n"
-                    (file-name-nondirectory icon)
-                    (substring (file-name-directory dest) 0 -1)))
-      (copy-file icon dest t))))
+                                       "\\.img$\\|\\.xbm$")))))
+    (install-files icons ICONDIR PIXMAPDIR nil 'overwrite)))
 
 (defun install-wl-package ()
   (compile-wl-package)