From a7444128f893508515ccc2e0eccc92c48f4576f7 Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Tue, 10 Oct 2000 07:49:50 +0000
Subject: [PATCH] 	* wl-address.el (toplevel): Use product-provide. 
 * wl-demo.el (toplevel): Ditto. 	* wl-dnd.el
 (toplevel): Ditto. 	* wl-draft.el (toplevel): Ditto. 
 * wl-e21.el (toplevel): Ditto. 	* wl-expire.el
 (toplevel): Ditto. 	* wl-fldmgr.el (toplevel): Ditto. 
 * wl-folder.el (toplevel): Ditto. 	* wl-highlight.el
 (toplevel): Ditto. 	* wl-message.el (toplevel): Ditto. 
 * wl-mime.el (toplevel): Ditto. 	* wl-mule.el
 (toplevel): Ditto. 	* wl-nemacs.el (toplevel): Ditto. 
 * wl-refile.el (toplevel): Ditto. 	* wl-score.el
 (toplevel): Ditto. 	* wl-summary.el (toplevel): Ditto. 
 * wl-template.el (toplevel): Ditto. 	* wl-thread.el
 (toplevel): Ditto. 	* wl-util.el (toplevel): Ditto. 
 * wl-vars.el (toplevel): Ditto. 	* wl-xmas.el
 (toplevel): Ditto. 	* wl.el (toplevel): Ditto.

---
 wl/ChangeLog       |   25 +++++++++++++++++++++++++
 wl/wl-address.el   |    3 ++-
 wl/wl-demo.el      |    3 ++-
 wl/wl-dnd.el       |    3 ++-
 wl/wl-draft.el     |    3 ++-
 wl/wl-e21.el       |    3 ++-
 wl/wl-expire.el    |    3 ++-
 wl/wl-fldmgr.el    |    3 ++-
 wl/wl-folder.el    |    3 ++-
 wl/wl-highlight.el |    3 ++-
 wl/wl-message.el   |    3 ++-
 wl/wl-mime.el      |    3 ++-
 wl/wl-mule.el      |    3 ++-
 wl/wl-nemacs.el    |    3 ++-
 wl/wl-refile.el    |    4 ++--
 wl/wl-score.el     |    3 ++-
 wl/wl-summary.el   |    3 ++-
 wl/wl-template.el  |    3 ++-
 wl/wl-thread.el    |    3 ++-
 wl/wl-util.el      |    3 ++-
 wl/wl-vars.el      |    3 ++-
 wl/wl-xmas.el      |    3 ++-
 wl/wl.el           |    3 ++-
 23 files changed, 69 insertions(+), 23 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f16950c..f969572 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,30 @@
 2000-10-10  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-address.el (toplevel): Use product-provide.
+	* wl-demo.el (toplevel): Ditto.
+	* wl-dnd.el (toplevel): Ditto.
+	* wl-draft.el (toplevel): Ditto.
+	* wl-e21.el (toplevel): Ditto.
+	* wl-expire.el (toplevel): Ditto.
+	* wl-fldmgr.el (toplevel): Ditto.
+	* wl-folder.el (toplevel): Ditto.
+	* wl-highlight.el (toplevel): Ditto.
+	* wl-message.el (toplevel): Ditto.
+	* wl-mime.el (toplevel): Ditto.
+	* wl-mule.el (toplevel): Ditto.
+	* wl-nemacs.el (toplevel): Ditto.
+	* wl-refile.el (toplevel): Ditto.
+	* wl-score.el (toplevel): Ditto.
+	* wl-summary.el (toplevel): Ditto.
+	* wl-template.el (toplevel): Ditto.
+	* wl-thread.el (toplevel): Ditto.
+	* wl-util.el (toplevel): Ditto.
+	* wl-vars.el (toplevel): Ditto.
+	* wl-xmas.el (toplevel): Ditto.
+	* wl.el (toplevel): Ditto.
+
+2000-10-10  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
 	* wl-fldmgr.el (wl-fldmgr-save-folders): Use (wl-version t)
 	instead of product.
 
diff --git a/wl/wl-address.el b/wl/wl-address.el
index e74ccb7..bb5f79c 100644
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -683,7 +683,8 @@ If already registerd, change it."
       (message "Adding Petname...done")
       (kill-buffer tmp-buf))))
 
-(provide 'wl-address)
+(require 'product)
+(product-provide (provide 'wl-address) (require 'wl-version))
 
 ;;; wl-address.el ends here
 
diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 1abec98..0f97fb0 100644
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -35,7 +35,8 @@
 (require 'wl-vars)
 (require 'wl-version)
 (require 'wl-highlight)
-(provide 'wl-demo)
+(require 'product)
+(product-provide (provide 'wl-demo) (require 'wl-version))
 
 ;; Avoid byte compile warnings.
 (eval-when-compile
diff --git a/wl/wl-dnd.el b/wl/wl-dnd.el
index de96abc..b4297ca 100644
--- a/wl/wl-dnd.el
+++ b/wl/wl-dnd.el
@@ -29,7 +29,8 @@
 ;;; Code:
 ;; 
 
-(provide 'wl-dnd)
+(require 'product)
+(product-provide (provide 'wl-dnd) (require 'wl-version))
 
 (static-cond
  ((featurep 'offix)
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 778c61c..da1738c 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -2013,6 +2013,7 @@ been implemented yet.  Partial support for SWITCH-FUNCTION now supported."
 		   wl-user-agent-headers-and-body-alist 'ignore-case)))))
     t))
 
-(provide 'wl-draft)
+(require 'product)
+(product-provide (provide 'wl-draft) (require 'wl-version))
 
 ;;; wl-draft.el ends here
diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index 919cbcf..2f6bba5 100644
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -594,6 +594,7 @@ Special commands:
 
 (defalias 'wl-defface 'defface)
 
-(provide 'wl-e21)
+(require 'product)
+(product-provide (provide 'wl-e21) (require 'wl-version))
 
 ;;; wl-e21.el ends here
diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index fbcc23c..7182c11 100644
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -723,6 +723,7 @@ Refile to archive folder followed message date."
 	  (message (format "%s is not writable." filename)))
 	(kill-buffer tmp-buf)))))
 
-(provide 'wl-expire)
+(require 'product)
+(product-provide (provide 'wl-expire) (require 'wl-version))
 
 ;;; wl-expire.el ends here
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 75c35fb..dbec82a 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -1342,6 +1342,7 @@ return value is diffs '(-new -unread -all)."
     (setq wl-fldmgr-modified-access-list nil)
     (message "Saving folders...done")))
 
-(provide 'wl-fldmgr)
+(require 'product)
+(product-provide (provide 'wl-fldmgr) (require 'wl-version))
 
 ;;; wl-fldmgr.el ends here
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 7449e88..e28588a 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2665,6 +2665,7 @@ If optional arg exists, don't check any folders."
 		(elmo-folder-exists-p folder))
       (wl-folder-create-subr folder))))
 
-(provide 'wl-folder)
+(require 'product)
+(product-provide (provide 'wl-folder) (require 'wl-version))
 
 ;;; wl-folder.el ends here
diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index 922463e..6287582 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -33,7 +33,8 @@
 	 (featurep 'dragdrop))
     (require 'wl-dnd))
 (require 'wl-vars)
-(provide 'wl-highlight)
+(require 'product)
+(product-provide (provide 'wl-highlight) (require 'wl-version))
 
 (eval-when-compile
   (cond (wl-on-xemacs
diff --git a/wl/wl-message.el b/wl/wl-message.el
index 1be2f4d..c1c7684 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -59,7 +59,8 @@
 (make-variable-buffer-local 'wl-message-buffer-cur-folder)
 (make-variable-buffer-local 'wl-message-buffer-cur-number)
 
-(provide 'wl-message)
+(require 'product)
+(product-provide (provide 'wl-message) (require 'wl-version))
 
 (defvar wl-fixed-window-configuration nil)
 
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index a32e27a..c4b291c 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -379,6 +379,7 @@ automatically."
   (add-hook 'mmelmo-entity-content-inserted-hook 'wl-highlight-body))
   
 
-(provide 'wl-mime)
+(require 'product)
+(product-provide (provide 'wl-mime) (require 'wl-version))
 
 ;;; wl-mime.el ends here
diff --git a/wl/wl-mule.el b/wl/wl-mule.el
index 3c1206d..c8d1475 100644
--- a/wl/wl-mule.el
+++ b/wl/wl-mule.el
@@ -276,6 +276,7 @@ Warning: Unknown req `%S' with options `%S'" req options))
 			     nil))))
 	match)))))
 
-(provide 'wl-mule)
+(require 'product)
+(product-provide (provide 'wl-mule) (require 'wl-version))
 
 ;;; wl-mule.el ends here
diff --git a/wl/wl-nemacs.el b/wl/wl-nemacs.el
index 126da15..fa0f2d0 100644
--- a/wl/wl-nemacs.el
+++ b/wl/wl-nemacs.el
@@ -152,6 +152,7 @@ However, if `mail-yank-prefix' is non-nil, insert that prefix on each line."
 ;; a dead duck... We MUST re-load it certainly.
 (load-library "poe-18")
 
-(provide 'wl-nemacs)
+(require 'product)
+(product-provide (provide 'wl-nemacs) (require 'wl-version))
 
 ;;; wl-nemacs.el ends here
diff --git a/wl/wl-refile.el b/wl/wl-refile.el
index 2f55d57..ccecc93 100644
--- a/wl/wl-refile.el
+++ b/wl/wl-refile.el
@@ -31,8 +31,8 @@
 
 (require 'wl-vars)
 (require 'wl-util)
-(provide 'wl-refile)
-
+(require 'product)
+(product-provide (provide 'wl-refile) (require 'wl-version))
 
 (defvar wl-refile-alist nil)
 (defvar wl-refile-alist-file-name "refile-alist")
diff --git a/wl/wl-score.el b/wl/wl-score.el
index 3db076d..c4862c2 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -1480,6 +1480,7 @@ Entering Score mode calls the value of `wl-score-mode-hook'."
 	(pp form (current-buffer)))
       (goto-char (point-min)))))
 
-(provide 'wl-score)
+(require 'product)
+(product-provide (provide 'wl-score) (require 'wl-version))
 
 ;;; wl-score.el ends here
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index d3916e1..8ef70d1 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -6023,6 +6023,7 @@ Reply to author if invoked with argument."
 	  (setq  wl-summary-buffer-saved-message nil)))
     (message "There's no saved message.")))
 
-(provide 'wl-summary)
+(require 'product)
+(product-provide (provide 'wl-summary) (require 'wl-version))
 
 ;;; wl-summary.el ends here
diff --git a/wl/wl-template.el b/wl/wl-template.el
index 7bb8349..bb47963 100644
--- a/wl/wl-template.el
+++ b/wl/wl-template.el
@@ -188,6 +188,7 @@ Enterring WL-Template mode calls the value of `wl-template-mode-hook'."
 	  (insert mail-header-separator "\n"))
       (wl-draft-config-exec-sub template))))
 
-(provide 'wl-template)
+(require 'product)
+(product-provide (provide 'wl-template) (require 'wl-version))
 
 ;;; wl-template.el ends here
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 4fbe647..c6283e8 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -1574,6 +1574,7 @@ Message is inserted to the summary buffer."
       ;; update thread on buffer
       (wl-thread-update-line-msgs update-msgs t))))
 
-(provide 'wl-thread)
+(require 'product)
+(product-provide (provide 'wl-thread) (require 'wl-version))
 
 ;;; wl-thread.el ends here
diff --git a/wl/wl-util.el b/wl/wl-util.el
index 4ec0a82..c85bd07 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -29,7 +29,8 @@
 ;;; Code:
 ;;
 
-(provide 'wl-util)
+(require 'product)
+(product-provide (provide 'wl-util) (require 'wl-version))
 (eval-when-compile
   (require 'elmo-util))
 
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index a1238d2..1ec8d07 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -2177,6 +2177,7 @@ a symbol `xbm' to limit the image format to XBM even if XPM can be shown."
 (defvar wl-plugged-port-indent 4)
 (defvar wl-plugged-queue-status-column 25)
 
-(provide 'wl-vars)
+(require 'product)
+(product-provide (provide 'wl-vars) (require 'wl-version))
 
 ;;; wl-vars.el ends here
diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index c62c08c..af2779d 100644
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -514,6 +514,7 @@ Special commands:
 
 (defalias 'wl-defface 'defface)
 
-(provide 'wl-xmas)
+(require 'product)
+(product-provide (provide 'wl-xmas) (require 'wl-version))
 
 ;;; wl-xmas.el ends here
diff --git a/wl/wl.el b/wl/wl.el
index 7f412bc..1a3566b 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -803,6 +803,7 @@ If prefix argument is specified, folder checkings are skipped."
 ;; for backward compatibility
 (defalias 'wl-summary-from-func-petname 'wl-summary-default-from)
 
-(provide 'wl)
+(require 'product)
+(product-provide (provide 'wl) (require 'wl-version))
 
 ;;; wl.el ends here
-- 
1.7.10.4