-;;; wl-version.el -- Version information for Wanderlust.
+;;; wl-version.el --- Version information for Wanderlust.
-;; Copyright (C) 2000 Yuuichi Teranishi <teranisi@gohome.org>
-;; Copyright (C) 2000 TAKAHASHI Kaoru <kaoru@kaisei.org>
+;; Copyright (C) 2000-2001 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 2000-2001 TAKAHASHI Kaoru <kaoru@kaisei.org>
;; Author: Yuuichi Teranishi <teranisi@gohome.org>
;; TAKAHASHI Kaoru <kaoru@kaisei.org>
"Wanderlust" nil
(eval-when-compile
(product-version (product-find 'elmo-version))) ; equals to ELMO version.
- "Smooth"))
+ "Watching The Wheels"))
+(defconst wl-version-status nil
+ "Wanderlust verstion status. For override default rule.
+If nil, use default rule.")
+
+\f
;; set version-string
(product-version-as-string 'wl-version)
-(defun wl-version (&optional with-codename)
- "Return Wanderlust version.
-If WITH-CODENAME add codename."
- (product-string-1 'wl-version with-codename))
-
-(defun wl-version-show (&optional arg)
+(defun wl-version ()
"Print Wanderlust version.
-If ARG insert string at point."
- (interactive "P")
+Don't support insert string at-point (C-u M-x wl-version).
+For bug report, use `wl-generate-user-agent-string-1' instead.
+When non-interactive, use `product-string-1' instead."
+ (interactive)
(let ((product-info (product-string-1 'wl-version t)))
- (if arg
- (insert product-info)
- (message "%s" product-info))))
-
-(defvar wl-version-status-alist
- '(((zerop (% (nth 1 (product-version (product-find 'wl-version))) 2))
- . "stable")
- (t . "beta"))
- "An alist to define the version status.")
+ (if (interactive-p)
+ (message "%s" product-info)
+ product-info)))
(defun wl-version-status ()
- "Return version status (\"stable\" or \"beta\")."
- (let ((salist wl-version-status-alist)
- status)
- (while salist
- (when (eval (car (car salist)))
- (setq status (cdr (car salist)))
- (setq salist nil))
- (setq salist (cdr salist)))
- status))
+ "Return version status string.
+If variable `wl-version-status' is non-nil, override default rule."
+ (or wl-version-status
+ (if (zerop (% (nth 1 (product-version (product-find 'wl-version))) 2))
+ "stable"
+ "beta")))
;; avoid compile warnings
(defvar mule-version)
-(defvar nemacs-version)
(defvar emacs-beta-version)
(defvar xemacs-codename)
(defvar mime-edit-insert-user-agent-field)
(defvar mime-editor/codename)
(defun wl-generate-user-agent-string ()
- "A candidate of `wl-generate-mailer-string-func'.
+ "A candidate of `wl-generate-mailer-string-function'.
Insert User-Agent field instead of X-Mailer field."
- (concat "User-Agent: "
- (wl-generate-user-agent-string-1
- ;; for backward compatibility
- (or (and (boundp 'mime-edit-insert-user-agent-field)
- mime-edit-insert-user-agent-field) ; SEMI
- (and (boundp 'mime-editor/version)
- mime-editor/version))))) ; verbose User-Agent when tm
+ (wl-generate-user-agent-string-1
+ ;; for backward compatibility
+ (and (boundp 'mime-edit-insert-user-agent-field)
+ mime-edit-insert-user-agent-field)))
(defun wl-generate-user-agent-string-1 (&optional verbose)
"Return User-Agent field value.
((and (boundp 'mime-edit-user-agent-value) mime-edit-user-agent-value)
(concat (product-string-verbose 'wl-version) " "
mime-edit-user-agent-value))
- ;; tm (verbose)
- ((and (boundp 'mime-editor/version) mime-editor/version)
- (concat (product-string-verbose 'wl-version) " "
- "tm/" mime-editor/version
- (when (and (boundp 'mime-editor/codename) mime-editor/codename)
- (concat " (" mime-editor/codename ")"))
- (when (and (boundp 'mime-library-product) mime-library-product)
- (concat " " (aref mime-library-product 0)
- "/" (mapconcat 'int-to-string
- (aref mime-library-product 1)
- ".")
- " (" (aref mime-library-product 2) ")"))
- (condition-case nil
- (progn
- (require 'apel-ver)
- (concat " " (apel-version)))
- (file-error nil))
- " " (wl-extended-emacs-version3 "/" t)))
;; error case
(t
(product-string-1 'wl-version nil))))
(elmo-match-string 2 mule-version)
"")))
((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
- (if (boundp 'nemacs-version)
- (concat "Nemacs" (or delimiter " ")
- nemacs-version
- "@"
- (substring emacs-version
- (match-beginning 1)
- (match-end 1)))
- (concat "Emacs" (or delimiter " ")
- (elmo-match-string 1 emacs-version))))
+ (concat "Emacs" (or delimiter " ")
+ (elmo-match-string 1 emacs-version)))
((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
emacs-version)
(concat (elmo-match-string 1 emacs-version)
(elmo-match-string 2 mule-version)
"")))
((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
- (if (boundp 'nemacs-version)
- (let ((nemacs-codename-assoc '(("3.3.2" . " (FUJIMUSUME)")
- ("3.3.1" . " (HINAMATSURI)")
- ("3.2.3" . " (YUMENO-AWAYUKI)"))))
- (format "Emacs%s%s Nemacs%s%s%s"
- (or delimiter " ")
- (elmo-match-string 1 emacs-version)
- (or delimiter " ")
- nemacs-version
- (or (and with-codename
- (cdr (assoc nemacs-version
- nemacs-codename-assoc)))
- "")))
- (concat "Emacs" (or delimiter " ")
- (elmo-match-string 1 emacs-version))))
+ (concat "Emacs" (or delimiter " ")
+ (elmo-match-string 1 emacs-version)))
((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
emacs-version)
(concat (elmo-match-string 1 emacs-version)
projects / elisp / wanderlust.git / blobdiff