From 648ed6d35a76f64c5c976c2ad38a4c9813348051 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 3 Apr 2001 05:12:14 +0000 Subject: [PATCH] * 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. --- elmo/ChangeLog | 6 ++++++ elmo/sb-airs.el | 2 ++ elmo/shimbun.el | 9 ++++----- 3 files changed, 12 insertions(+), 5 deletions(-) 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 + * 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 ) 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))) -- 1.7.10.4