;; ignore broken module
(not (featurep 'tinycustom)))
(when (and (boundp 'emacs-major-version)
- (eq emacs-major-version 19)
+ (= emacs-major-version 19)
(>= emacs-minor-version 29))
(message "%s" "
Warning: You don't seem to have \"new custom\" package installed.
(setq load-path (cons (expand-file-name UTILSDIR) load-path)))
(require 'install)
(load "./WL-ELS" nil nil t)
- (condition-case ()
- (require 'mime-setup)
- (error (error "No MIME module was detected. Please install SEMI.")))
+ ;; product.el version check
+ (require 'product)
+ (if (not (fboundp 'product-version-as-string))
+ (error "Please install new APEL. See INSTALL or INSTALL.ja"))
;; smtp.el version check.
(require 'smtp)
(if (not (fboundp 'smtp-send-buffer))
- (error "Please install new FLIM. See INSTALL or INSTALL.ja."))))
+ (error "Please install new FLIM. See INSTALL or INSTALL.ja"))
+ (condition-case ()
+ (require 'mime-setup)
+ (error (error "Cannot load `mime-setup'. Please install SEMI")))))
(defun config-wl-pixmap-dir (&optional packagedir)
"Examine pixmap directory where icon files should go."
(config-wl-pixmap-dir)
(princ "\n"))
+(defun update-version ()
+ "Update version number of documents."
+ (config-wl-package)
+ (load-file "elmo/elmo-version.el")
+ (let ((version (mapconcat
+ 'number-to-string
+ (product-version (product-find 'elmo-version))
+ ".")))
+ (princ (concat "Update version number to " version "\n"))
+ ;; generate version.tex
+ (with-temp-buffer
+ (insert "\\def\\versionnumber{" version "}\n")
+ (write-region (point-min) (point-max) (expand-file-name
+ "version.tex" "doc")))
+ ;; generate version.texi
+ (with-temp-buffer
+ (insert "@set VERSION " version "\n")
+ (write-region (point-min) (point-max) (expand-file-name
+ "version.texi" "doc")))))
+
(defun test-wl ()
"Run test suite for developer."
(config-wl-package)
(setq icon (car icons)
icons (cdr icons)
dest (expand-file-name (file-name-nondirectory icon) PIXMAPDIR))
- (princ (format "%s->%s\n" icon dest))
+ (princ (format "%s -> %s\n"
+ (file-name-nondirectory icon)
+ (substring (file-name-directory dest) 0 -1)))
(copy-file icon dest t))))
(defun install-wl-package ()
(defun config-wl-package-xmas ()
(if (not (featurep 'xemacs))
- (error "This directive is only for XEmacs."))
+ (error "This directive is only for XEmacs"))
(config-wl-package-subr)
;; PACKAGEDIR check.
(let (package-dir)
)))
(defun wl-texinfo-format ()
- (unless INFODIR
- (setq INFODIR (wl-detect-info-directory)))
+ (wl-detect-info-directory)
(cond ((listp wl-info-lang)
(mapcar 'wl-texinfo-format-file wl-info-lang))
((stringp wl-info-lang)
(defun wl-texinfo-install-file (lang)
(let ((infofile (symbol-value (intern (format "wl-%s-info" lang)))))
- (install-file infofile DOCDIR INFODIR)))
+ (install-file infofile DOCDIR INFODIR nil 'overwrite)))
(defun wl-texinfo-install ()
(cond ((listp wl-info-lang)
(require 'info)
(if (fboundp 'info-initialize)
(info-initialize))
- (let ((infodir (car command-line-args-left))
- (info (wl-primary-info-file))
- previous INFODIR)
- (setq INFODIR
- (if (string= infodir "NONE")
- (if (setq previous
- (exec-installed-p info Info-directory-list
- COMPRESS-SUFFIX-LIST))
- ;;(progn
- ;;(condition-case nil (delete-file previous))
- (directory-file-name (file-name-directory previous));)
- (car Info-directory-list))
- infodir))
- (setq command-line-args-left (cdr command-line-args-left))
- (princ (format "INFODIR is %s\n\n" INFODIR))
- INFODIR))
+ (unless INFODIR
+ (let ((infodir (car command-line-args-left))
+ (info (wl-primary-info-file))
+ previous)
+ (setq INFODIR
+ (if (string= infodir "NONE")
+ (if (setq previous
+ (exec-installed-p info Info-directory-list
+ COMPRESS-SUFFIX-LIST))
+ ;;(progn
+ ;;(condition-case nil (delete-file previous))
+ (directory-file-name (file-name-directory previous));)
+ (car Info-directory-list))
+ infodir))
+ (setq command-line-args-left (cdr command-line-args-left))))
+ (princ (format "INFODIR is %s\n\n" INFODIR)))
(defun install-wl-info ()
(wl-texinfo-format)