From 2ec1b74e75813a40d30c6f214d5284720b0d86c9 Mon Sep 17 00:00:00 2001 From: MANTANI Nobutaka Date: Sun, 27 Nov 2005 16:02:43 +0000 Subject: - Fix build of wanderlust-xemacs21-mule with apel in xemacs-packages. - Fix build of wanderlust-xemacs21-mule with WRKDIRPREFIX. [*] Reported by: kris [*] --- .../files/extra-patch-elmo:elmo-version.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 mail/wanderlust/files/extra-patch-elmo:elmo-version.el (limited to 'mail/wanderlust/files/extra-patch-elmo:elmo-version.el') 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) + -- cgit v1.2.3