[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: sb-yahoo-auctions



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)