From: kaoru <kaoru>
Date: Wed, 24 Jul 2002 15:38:05 +0000 (+0000)
Subject: * elmo-split.el (toplevel): Use `product-provide'.
X-Git-Tag: elmo-mark-root~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0b45045134c6bbec965dd7329b20047636269319;p=elisp%2Fwanderlust.git

* elmo-split.el (toplevel): Use `product-provide'.
(elmo-split): Checkdoc.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index fb55c16..d83f5e7 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-24  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* elmo-split.el (toplevel): Use `product-provide'.
+	(elmo-split): Checkdoc.
+
 2002-07-21  Tetsurou Okazaki  <okazaki@be.to>
 
 	* elmo-imap4.el (elmo-imap4-debug, elmo-imap4-debug-1):
diff --git a/elmo/elmo-split.el b/elmo/elmo-split.el
index 70699f0..a8d9157 100644
--- a/elmo/elmo-split.el
+++ b/elmo/elmo-split.el
@@ -29,13 +29,13 @@
 ;;
 ;; (autoload 'elmo-split "elmo-split" "Split messages on the folder." t)
 ;;
-;; A command elmo-split is provided. If you enter:
+;; A command elmo-split is provided.  If you enter:
 ;;
 ;; M-x elmo-split
 ;;
 ;; Messages in the `elmo-split-folder' are splitted to the folders
 ;; according to the definition of `elmo-split-rule'.
-;; 
+;;
 
 (require 'elmo)
 
@@ -206,7 +206,7 @@ Example:
 If prefix argument ARG is specified, do a reharsal (no harm)."
   (interactive "P")
   (unless elmo-split-rule
-    (error "Split rule doest not exist. Set `elmo-split-rule' first."))
+    (error "Split rule does not exist.  Set `elmo-split-rule' first"))
   (let ((folders (if (listp elmo-split-folder)
 		     elmo-split-folder
 		   (list elmo-split-folder)))
@@ -303,6 +303,7 @@ If prefix argument ARG is specified, do a reharsal (no harm)."
       (elmo-progress-clear 'elmo-split))
     (cons count fcount)))
 
-(provide 'elmo-split)
+(require 'product)
+(product-provide (provide 'elmo-split) (require 'elmo-version))
 
 ;;; elmo-split.el ends here