* wl-summary.el (wl-summary-save-view): Removed unused argument.

[elisp/wanderlust.git] / WL-MK

diff --git a/WL-MK b/WL-MK
index 8872b03..e6462bf 100644 (file)
--- a/WL-MK
+++ b/WL-MK
@@ -28,7 +28,7 @@
 (defconst wl-en-info "wl.info")
 (defconst wl-en-texi "wl.texi")
 
-(defvar wl-info-lang "ja"
+(defvar wl-info-lang '("ja" "en")
   "The language of info file (\"ja\" or \"en\").")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -96,7 +96,6 @@
     (setq load-path (cons (expand-file-name ".") load-path))
     (setq load-path (cons (expand-file-name WLDIR)
                          (cons (expand-file-name ELMODIR) load-path)))
-    (setq wl-icon-dir (expand-file-name ICONDIR))
     ;; load custom file if exists.  `WL-CFG.el' override for committer.
     (load "./WL-CFG" t nil nil)
     ;; load-path
@@ -119,10 +118,7 @@
       (if (string= pixmap-dir "NONE")
          (if packagedir
              (expand-file-name "etc/wl/" packagedir)
-           (if (or (featurep 'xemacs)
-                   (and (boundp 'emacs-major-version)
-                        (>= emacs-major-version 21)))
-               (expand-file-name "wl/icons/" data-directory)))
+           (expand-file-name "wl/icons/" data-directory))
        pixmap-dir)))
   (if PIXMAPDIR
       (princ (format "PIXMAPDIR is %s\n" PIXMAPDIR)))
@@ -210,7 +206,14 @@
   (if (not (file-directory-p PIXMAPDIR))
       (make-directory PIXMAPDIR t))
   (let* ((case-fold-search t)
-        (icons (directory-files ICONDIR t "\\.x[bp]m$"))
+        (icons (directory-files ICONDIR t
+                                (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)