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

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 28128] Re: hook 追加のお願い (mew-nmz)
Message-ID: <20080225.231514.221235165.shirai.hideyuki at example.com>
Date: Mon, 25 Feb 2008 23:15:14 +0900 (JST)

> > mew-imap-folder-alistが使われていますが、mew-imap-trash-folder
> > がnilの場合のことが考慮されていないのではないでしょうか。

....

> ということでして、確かに 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"))

## 99% Mew のバグ？だと思うんだけど。。。

mew-nmz でもガードしておきました。指摘ありがとうございます。

http://www.meadowy.org/~shirai/elisp/mew-nmz.el.gz

-- 
白井秀行 (mailto:shirai at example.com)