1
;;; elmo-version.el --- Version information for ELMO.
3
;; Copyright (C) 2000-2001 Yuuichi Teranishi <teranisi@gohome.org>
4
;; Copyright (C) 2000-2001 TAKAHASHI Kaoru <kaoru@kaisei.org>
6
;; Author: Yuuichi Teranishi <teranisi@gohome.org>
7
;; TAKAHASHI Kaoru <kaoru@kaisei.org>
8
;; Keywords: mail, net news
10
;; This file is part of ELMO (Elisp Library for Message Orchestration).
12
;; This program is free software; you can redistribute it and/or modify
13
;; it under the terms of the GNU General Public License as published by
14
;; the Free Software Foundation; either version 2, or (at your option)
17
;; This program is distributed in the hope that it will be useful,
18
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20
;; GNU General Public License for more details.
22
;; You should have received a copy of the GNU General Public License
23
;; along with GNU Emacs; see the file COPYING. If not, write to the
24
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25
;; Boston, MA 02111-1307, USA.
30
;; Put the following lines to each file of ELMO package.
33
;; (product-provide (provide FEATURE) (require 'elmo-version))
38
(provide 'elmo-version) ; before product-provide
40
;; product-define in the first place
41
(product-provide 'elmo-version
42
;; Don't forget to check `wl-version.el' and Info.
43
(product-define "ELMO" nil '(2 8 1)))
46
(product-version-as-string 'elmo-version)
48
(defun elmo-version ()
49
"Return ELMO version."
50
(product-string-1 'elmo-version))
52
;; for backward compatibility
53
(defconst elmo-appname (product-name (product-find 'elmo-version)))
54
(make-obsolete-variable
56
"use (product-name (product-find 'elmo-version)) instead.")
58
(defconst elmo-version (product-version-string (product-find 'elmo-version)))
59
(make-obsolete-variable
61
"use (product-version-string (product-find 'elmo-version)) instead.")
63
;;; elmo-version.el ends here