[mew-dist 27456] Re: Hyperestraier

[Tatsuya Kinoshita]

On October 30, 2006, [mew-dist 27455],
kazu (at iij.ad.jp) wrote:

> > > > * キーワード空入力を許容(スペースとみなして続行)
> > > 
> > > あとで、これにも対応しておきます。
> > 
> > ありがとうございます。これで、手元にいろいろ抱えなくても、いい感じで
> > 使えそうです。
> 
> 対応しました。

virtualの方も対応してみました。

----
--- mew.orig/mew-search.el
+++ mew/mew-search.el
@@ -155,8 +155,10 @@
 	(if ask-folder
 	    (setq flds (mew-input-folders (mew-summary-folder-name))))
 	(setq opattern (mew-input-pick-pattern (concat name " virtual")))
-	(if (string= opattern "")
+	(if (and (string= opattern "") (not (fboundp flt-func)))
 	    (message (mew-substitute-for-summary "Keyword must be specified"))
+	  (if (string= opattern "")
+	      (setq opattern " "))
 	  (if (and canon-func (fboundp canon-func))
 	      (setq pattern (funcall canon-func opattern))
 	    (setq pattern opattern))
@@ -558,7 +560,7 @@
       (cond
        ((string-match "^ *ANDNOT " pattern)
 	(setq pattern (concat "[UVSET] " pattern)))
-       ((string= pattern "")
+       ((string-match "^ *$" pattern)
 	(setq pattern "[UVSET]")))
       (setq args (list "-vu" "-max" "-1" "-ord" "@cdate NUMA" casket pattern))
       (setq filter (nreverse filter))
----

-- 
木下達也