1 ;;; wl-version.el -- Version information for Wanderlust.
3 ;; Copyright 2000 Yuuichi Teranishi <teranisi@gohome.org>
5 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
6 ;; Keywords: mail, net news
8 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
10 ;; This program is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; This program is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
32 (provide 'wl-version) ; have to declare in the top.
34 (product-provide 'wl-version
38 (require 'elmo-version)
39 (product-version (product-find 'elmo-version))) ; equals to ELMO version.
43 (if (fboundp 'product-version-as-string)
44 (product-version-as-string 'wl-version)
45 (product-string-1 'wl-version)) ; APEL 10.2 or earlier
47 ;; require wl-util after product-provide.
48 (eval-when-compile (require 'wl-util)) ; wl-match-string
50 (defun wl-version (&optional with-codename)
51 "Return Wanderlust version.
52 If WITH-CODENAME add codename."
53 (product-string-1 'wl-version with-codename))
55 (defun wl-version-show (&optional arg)
56 "Print Wanderlust version.
57 If ARG insert string at point."
60 (insert (message "%s" (wl-version t)))
61 (message "%s" (wl-version t))))
63 (defvar wl-version-status-alist
64 '(((eq (% (nth 1 (product-version (product-find 'wl-version))) 2) 0)
67 "An alist to define the version status.")
69 (defun wl-version-status ()
70 "Return version status (\"stable\" or \"beta\")."
71 (let ((salist wl-version-status-alist)
74 (when (eval (car (car salist)))
75 (setq status (cdr (car salist)))
77 (setq salist (cdr salist)))
82 (defvar nemacs-version)
83 (defvar emacs-beta-version)
84 (defvar xemacs-codename)
85 (defvar mime-edit-insert-user-agent-field)
86 (defvar mime-edit-user-agent-value)
87 (defvar mime-editor/version)
88 (defvar mime-editor/codename)
90 (defun wl-generate-user-agent-string ()
91 "A candidate of `wl-generate-mailer-string-func'.
92 Insert User-Agent field instead of X-Mailer field."
93 (concat "User-Agent: "
94 (wl-generate-user-agent-string-1
95 (or (and (boundp 'mime-edit-insert-user-agent-field)
96 mime-edit-insert-user-agent-field)
97 (and (boundp 'mime-editor/version)
98 mime-editor/version)))))
100 (defun wl-generate-user-agent-string-1 (&optional verbose)
101 "Return User-Agent field value.
102 If VERBOSE return with SEMI, FLIM and APEL version"
104 ;; Don't use product-string-verbose for short User-Agent field value.
106 (concat (product-string-1 'wl-version t) " "
107 (wl-extended-emacs-version3 "/" t)))
109 ((and (boundp 'mime-edit-user-agent-value) mime-edit-user-agent-value)
110 (concat (product-string-verbose 'wl-version) " "
111 mime-edit-user-agent-value))
113 ((and (boundp 'mime-editor/version) mime-editor/version)
114 (concat (product-string-verbose 'wl-version) " "
115 "tm/" mime-editor/version
116 (if (and (boundp 'mime-editor/codename)
117 mime-editor/codename)
118 (concat " (" mime-editor/codename ")"))
119 (if (and (boundp 'mime-library-product)
120 mime-library-product)
121 (concat " " (aref mime-library-product 0)
123 (mapconcat 'int-to-string
124 (aref mime-library-product 1)
126 " (" (aref mime-library-product 2) ")"))
130 (concat " " (apel-version)))
132 " " (wl-extended-emacs-version3 "/" t)))
135 (product-string-1 'wl-version nil))))
138 (defun wl-extended-emacs-version (&optional with-codename)
139 "Stringified Emacs version.
140 If WITH-CODENAME add XEmacs codename."
142 ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
143 (concat "Emacs " (wl-match-string 1 emacs-version)
144 (and (boundp 'mule-version)(concat "/Mule " mule-version))))
145 ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
147 (concat (wl-match-string 1 emacs-version)
148 (format " %d.%d" emacs-major-version emacs-minor-version)
149 (if (and (boundp 'emacs-beta-version)
151 (format "b%d" emacs-beta-version))
153 (if (boundp 'xemacs-codename)
154 (concat " - \"" xemacs-codename "\"")))))
157 (defun wl-extended-emacs-version2 (&optional delimiter with-codename)
158 "Stringified Emacs version.
159 Separate DELIMITER (default it \" \"). If WITH-CODENAME add XEmacs codename."
161 ((and (boundp 'mule-version)
163 (string-match "\\([0-9]+\.[0-9]+\\)\\(.*$\\)" mule-version))
164 (format "Mule%s%s@%d.%d%s"
166 (wl-match-string 1 mule-version)
170 (wl-match-string 2 mule-version)
172 ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
173 (if (boundp 'nemacs-version)
174 (concat "Nemacs" (or delimiter " ")
177 (substring emacs-version
180 (concat "Emacs" (or delimiter " ")
181 (wl-match-string 1 emacs-version))))
182 ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
184 (concat (wl-match-string 1 emacs-version)
186 (format "%d.%d" emacs-major-version emacs-minor-version)
187 (if (and (boundp 'emacs-beta-version)
189 (format "b%d" emacs-beta-version))
190 (if (and with-codename
191 (boundp 'xemacs-codename)
193 (format " (%s)" xemacs-codename))))
196 (defun wl-extended-emacs-version3 (&optional delimiter with-codename)
197 "Stringified Emacs version.
198 Separate DELIMITER (default it \" \"). If WITH-CODENAME add XEmacs codename."
200 ((and (boundp 'mule-version)
202 (string-match "\\([0-9]+\.[0-9]+\\)\\(.*$\\)" mule-version))
203 (format "Emacs%s%d.%d Mule%s%s%s"
208 (wl-match-string 1 mule-version)
210 (wl-match-string 2 mule-version)
212 ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
213 (if (boundp 'nemacs-version)
214 (let ((nemacs-codename-assoc '(("3.3.2" . " (FUJIMUSUME)")
215 ("3.3.1" . " (HINAMATSURI)")
216 ("3.2.3" . " (YUMENO-AWAYUKI)"))))
217 (format "Emacs%s%s Nemacs%s%s%s"
219 (wl-match-string 1 emacs-version)
222 (or (and with-codename
223 (cdr (assoc nemacs-version
224 nemacs-codename-assoc)))
226 (concat "Emacs" (or delimiter " ")
227 (wl-match-string 1 emacs-version))))
228 ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
230 (concat (wl-match-string 1 emacs-version)
232 (format "%d.%d" emacs-major-version emacs-minor-version)
233 (if (and (boundp 'emacs-beta-version)
235 (format "b%d" emacs-beta-version))
236 (if (and with-codename
237 (boundp 'xemacs-codename)
239 (format " (%s)" xemacs-codename))))
243 ;; for backward compatibility
244 (defconst wl-appname (product-name (product-find 'wl-version)))
245 (make-obsolete-variable
247 "use (product-name (product-find 'wl-version)) insteaed.")
249 (defconst wl-version (product-version-string (product-find 'wl-version)))
250 (make-obsolete-variable
252 "use (product-version-string (product-find 'wl-version)) instead.")
254 (defconst wl-codename (product-code-name (product-find 'wl-version)))
255 (make-obsolete-variable
257 "use (product-code-name (product-find 'wl-version)) instead.")
259 ;;; wl-version.el ends here