* WL-ELS (ELMO-MODULES): Added sb-tcup.

* sb-airs.el: Added footer.

* shimbun.el (shimbun-article): Define as luna-method.

* sb-tcup.el: New file.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b4cddb6..7ce9e23 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,11 @@
 2001-04-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * sb-airs.el: Added footer.
+
+       * shimbun.el (shimbun-article): Define as luna-method.
+
+       * sb-tcup.el: New file.
+
        * sb-airs.el (toplevel): Require 'sb-mhonarc.
        (According to the report from ABE Yasushi <yasushi@indigo.co.jp>)
 

diff --git a/elmo/sb-airs.el b/elmo/sb-airs.el
index 087889b..a139673 100644 (file)
--- a/elmo/sb-airs.el
+++ b/elmo/sb-airs.el
@@ -90,3 +90,5 @@
     headers))
 
 (provide 'sb-airs)
+
+;;; sb-airs.el ends here

diff --git a/elmo/shimbun.el b/elmo/shimbun.el
index ee53a54..9122fb4 100644 (file)
--- a/elmo/shimbun.el
+++ b/elmo/shimbun.el
@@ -293,9 +293,6 @@ for a charset indication")
 (defsubst shimbun-header-set-extra (header extra)
   (aset header 9 extra))
 
-(defvar shimbun-hash-length 997
-  "Length of shimbun-hash.")
-
 (defun shimbun-header-insert (header)
   (insert "Subject: " (or (shimbun-header-subject header) "(none)") "\n"
          "From: " (or (shimbun-header-from header) "(nobody)") "\n"
@@ -379,9 +376,11 @@ for a charset indication")
       (if (boundp sym)
          (symbol-value sym)))))
 
-(defun shimbun-article (shimbun id &optional outbuf)
+(luna-define-generic shimbun-article (shimbun id &optional outbuf)
   "Retrieve a SHIMBUN article which corresponds to ID to the OUTBUF.
-If OUTBUF is not specified, article is retrieved to the current buffer."
+If OUTBUF is not specified, article is retrieved to the current buffer.")
+
+(luna-define-method shimbun-article ((shimbun shimbun) id &optional outbuf)
   (when (shimbun-current-group-internal shimbun)
     (let* ((header (shimbun-header shimbun id))
           (xref (shimbun-header-xref header)))