diff options
Diffstat (limited to 'mail/wanderlust/files/extra-patch-elmo:elmo-version.el')
| -rw-r--r-- | mail/wanderlust/files/extra-patch-elmo:elmo-version.el | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/mail/wanderlust/files/extra-patch-elmo:elmo-version.el b/mail/wanderlust/files/extra-patch-elmo:elmo-version.el new file mode 100644 index 000000000000..11c8b6effda4 --- /dev/null +++ b/mail/wanderlust/files/extra-patch-elmo:elmo-version.el @@ -0,0 +1,22 @@ +--- elmo/elmo-version.el.orig Sun Nov 27 22:34:49 2005 ++++ elmo/elmo-version.el Sun Nov 27 22:41:22 2005 +@@ -42,6 +42,19 @@ + ;; Don't forget to check `wl-version.el' and Info. + (product-define "ELMO" nil '(2 14 0))) + ++(defun product-version-as-string (product) ++ "Return version number of product as a string. ++PRODUCT is a product structure which returned by `product-define'. ++If optional argument UPDATE is non-nil, then regenerate ++`produce-version-string' from `product-version'." ++ (setq product (product-find product)) ++ (or (product-version-string product) ++ (and (product-version product) ++ (product-set-version-string product ++ (mapconcat (function int-to-string) ++ (product-version product) ++ "."))))) ++ + ;; set version-string + (product-version-as-string 'elmo-version) + |