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

(elmo-split): Checkdoc.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index fb55c16..d83f5e7 100644 (file)
--- 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 (file)
--- 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