[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: sb-yahoo-auctions
- From: ari@xxxxxxxxxxxxx (ARISAWA Akihiro)
- Date: Fri, 18 Feb 2005 00:55:03 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 07619
- References: <878y5ncmqy.fsf@puyo.nijino.com>
ARISAWA Akihiro writes:
> また、nnshimbun では shimbun-yahoo-auctions-group-alist を設定せずとも
> yahoo-auction.keyword というグループを作成すると、すべてのオークションから
> keyword を検索した上位50件が表示できるようにしました。
以下の式を評価すると、Wanderlust からもアクセスできました。
(luna-define-method elmo-folder-exists-p ((folder elmo-shimbun-folder))
(if (elmo-shimbun-folder-group-internal folder)
(shimbun-group-p (elmo-shimbun-folder-shimbun-internal folder)
(elmo-shimbun-folder-group-internal folder))
t))
互換性を考えるなら添付のような感じでしょうか。
;; Wanderlust だと日本語のキーワードも問題ありませんでした。
--
有沢 明宏
2005-02-17 ARISAWA Akihiro <ari@mbf.sphere.ne.jp>
* elmo-shimbun.el (elmo-folder-exists-p): Use `shimbun-group-p'
if available.
Index: elmo/elmo-shimbun.el
===================================================================
RCS file: /cvs/root/wanderlust/elmo/elmo-shimbun.el,v
retrieving revision 1.46
diff -u -r1.46 elmo-shimbun.el
--- elmo/elmo-shimbun.el 23 Jan 2005 14:02:25 -0000 1.46
+++ elmo/elmo-shimbun.el 17 Feb 2005 15:48:56 -0000
@@ -514,11 +514,12 @@
(luna-define-method elmo-folder-exists-p ((folder elmo-shimbun-folder))
(if (elmo-shimbun-folder-group-internal folder)
- (progn
+ (if (fboundp 'shimbun-group-p)
+ (shimbun-group-p (elmo-shimbun-folder-shimbun-internal folder)
+ (elmo-shimbun-folder-group-internal folder))
(member
(elmo-shimbun-folder-group-internal folder)
- (shimbun-groups (elmo-shimbun-folder-shimbun-internal
- folder))))
+ (shimbun-groups (elmo-shimbun-folder-shimbun-internal folder))))
t))
(luna-define-method elmo-folder-delete-messages ((folder elmo-shimbun-folder)