[mew-dist 21901] Re: フォルダ間移動の利便性向上計画

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 21900] Re: フォルダ間移動の利便性向上計画
Message-ID: <20021010.202531.68560139.kazu at example.com>
Date: Thu, 10 Oct 2002 20:25:31 +0900 (JST)

> > > +hoge => case1:+hoge => case2:+hoge => case3:+hoge => +hoge

> できました。

case に "foo" "foo-bar" という感じのものがあると、
"foo:+" => "C-cC-i" でエラーになります。

(defun mew-complete (WORD ALIST MSG EXPAND-CHAR &optional TRY ALL GET HIT)
  <<snip>>
     ((stringp cmp) ;; (length all) > 1
      (insert cmp)
      (mew-complete-window-show all)
      (if (and EXPAND-CHAR (funcall fhit cmp ALIST))
	  (message
	   (substitute-command-keys
	    "To expand '%s', type '%c' then '\\<mew-draft-header-map>\\[mew-draft-header-comp]'.")
	   cmp EXPAND-CHAR)))
               ~~~~~~~~~~~ こいつが t だからみたいです。けどなんか勘違いしているかも。

> くるくる回すと、ローカルフォルダに対しても "default:" が出
> てきますが、これは許してね。

なんか簡単に消せるような気もするんですが。そんなことは無いのかな。

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

P.S.
mew-nmz.el のパッチよろしく御願いします。
nmz-virtual のとき "*" だけで、"+*" と同じ効力になります。> 使っている人

# これ以上の対処をする余力無し。


--- mew-nmz.el.orig	Thu Oct 10 20:37:39 2002
+++ mew-nmz.el	Thu Oct 10 19:59:09 2002
@@ -652,7 +652,7 @@
 	  nmzdirs fldmsgs fld msgs fasts scans count func lra)
       (if (null mew-nmz-indexed-folders)
 	  (mew-nmz-gather-indexed-folder))
-      (setq nmzdirs (mew-nmz-flds-to-indexs flds))
+      (setq nmzdirs (mew-nmz-flds-to-indexs (or flds '("+*"))))
       (if (null nmzdirs)
 	  (message "Please make namazu index.")
 	(setq fldmsgs (mew-nmz-multi-pick nmzdirs pattern))
@@ -751,7 +751,7 @@
 	 (let ((flds (mew-input-folders (concat (mew-summary-folder-name) "*")))
 	       (pattern (mew-nmz-input-pick-pattern))
 	       fld nmzdirs dirlen)
-	   (setq nmzdirs (mew-nmz-flds-to-indexs flds))
+	   (setq nmzdirs (mew-nmz-flds-to-indexs (or flds '("+*"))))
 	   (setq dirlen (length nmzdirs))
 	   (if (not (> dirlen mew-nmz-db-max))
 	       ()