From: teranisi <teranisi>
Date: Tue, 3 Apr 2001 05:12:14 +0000 (+0000)
Subject: * WL-ELS (ELMO-MODULES): Added sb-tcup.
X-Git-Tag: wl-2_6-root^3~65
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=648ed6d35a76f64c5c976c2ad38a4c9813348051;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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)))