2008年2月25日

[mew-dist 28128] Re:hook 追加のお願い (mew-nmz)

白井です。

From: Tatsuya Kinoshita <tats@xxxxx> さん曰く
Subject: [mew-dist 28125] Re: hook 追加のお願い (mew-nmz)
Message-ID: <20080225.220141.24134545.tats%nobody@xxxxx>
Date: Mon, 25 Feb 2008 22:01:41 +0900 (JST)

> mew-imap-folder-alistが使われていますが、mew-imap-trash-folder

> がnilの場合のことが考慮されていないのではないでしょうか。

ほとんど考えていません ^^;; 、以前、同様の指摘を受けて別の部分は
対応したことがあります。

> `k/'で検索してみると、下記のようなエラーになります。
>
> Debugger entered--Lisp error: (args-out-of-range "" 1 0)
> mew-folder-string("")
> mew-expand-folder2("gmail:")
> mew-expand-folder("gmail:")
> [...]
> mew-nmz-gather-indexed-folder("gmail" (("%inbox") (nil) ("%queue")) imap)

エラーになっている mew-nmz-gather-indexed-folder の引数って、

(mew-imap-folder-alist "gmail") => '(("%inbox") (nil) ("%queue"))

ということでして、確かに imap-trash-folder => nil で
mew-imap-folder-alist() の最後の部分が帰ってくると、
'(("%inbox") (nil) ("%queue")) となるようです。

だけど、mew-imap.el で

(defun mew-imap-folder-alist (&optional case no-load)
(unless case (setq case mew-case-default))
....
(if alist
alist
(delete nil
(list
(mew-folder-func mew-imap-inbox-folder)
(mew-folder-func (mew-imap-trash-folder case))
(mew-folder-func (mew-imap-queue-folder case))))))))

というコードを見る限りは、trash の (nil) はもともと消すのが正解
の様な感じです。ちょっとかっこ悪いけど、こういうことかしら?

(delete '(nil)
(list
(mew-folder-func mew-imap-inbox-folder)
(mew-folder-func (mew-imap-trash-folder case))
(mew-folder-func (mew-imap-queue-folder case)))))

=> '(("%inbox") ("%queue"))

--
白井秀行 (mailto:shirai@xxxxx)

投稿者 xml-rpc : 2008年2月25日 23:15
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/70342
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。