From 0b45045134c6bbec965dd7329b20047636269319 Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 24 Jul 2002 15:38:05 +0000 Subject: [PATCH] * elmo-split.el (toplevel): Use `product-provide'. (elmo-split): Checkdoc. --- elmo/ChangeLog | 5 +++++ elmo/elmo-split.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) 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 + + * elmo-split.el (toplevel): Use `product-provide'. + (elmo-split): Checkdoc. + 2002-07-21 Tetsurou Okazaki * 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 -- 1.7.10.4