[mew-dist 27804] Re: caseを変えても設定が反映されない

[Kazu Yamamoto ( 山本和彦 )]

山本です。

> もう一つ質問。僕のIMAPサーバーでは、デフォルトで空白文字の入っ
> たフォルダーがいくつか作られます。Mewのgコマンドからアクセス
> しようとすると、folder does not existとエラーになります。
> また、.mew.elなどで指定しても使えないようです。ダブルクオート
> やバックスラッシュによるエスケープを試しても無理でした。
> これは解決方法があるのでしょうか。

Mew は、IMAP プロトコル上は空白をきちんと扱います。
しかし、リファイルの際などに、空白の入ったフォルダをしていすると、
警告が出て先に進めません。

試しに、以下のようなパッチでこの制約を取り除くと、リファイルやそのフォ
ルダへの移動もなんの問題もありませんでした。

ただし、この制約を取り除くには、なぜ制約をもうけていたのか、思い出す必
要がありますね。。。

--かず

Index: mew-minibuf.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-minibuf.el,v
retrieving revision 1.136
diff -c -r1.136 mew-minibuf.el
*** mew-minibuf.el	4 Jan 2007 06:49:11 -0000	1.136
--- mew-minibuf.el	21 Aug 2007 07:10:55 -0000
***************
*** 495,503 ****
  	(if (and (mew-folder-popp folder) ;; not $inbox
  		 (not (string= mew-pop-inbox-folder folder)))
  	    (throw 'continue nil))
! 	(when (string-match " " folder)
! 	  (mew-warn "SPC is not allowed!")
! 	  (throw 'continue nil))
  	(setq case:folder (mew-canonicalize-case-folder case:folder))
  	(setq ret (cons case:folder ret))))
      (setq ret (delete nil ret))
--- 495,503 ----
  	(if (and (mew-folder-popp folder) ;; not $inbox
  		 (not (string= mew-pop-inbox-folder folder)))
  	    (throw 'continue nil))
! ;;	(when (string-match " " folder)
! ;;	  (mew-warn "SPC is not allowed!")
! ;;	  (throw 'continue nil))
  	(setq case:folder (mew-canonicalize-case-folder case:folder))
  	(setq ret (cons case:folder ret))))
      (setq ret (delete nil ret))
***************
*** 573,581 ****
  	(if (and (= (length folder) 1)
  		 (member folder mew-folder-prefixes)) ;; "prefix" only
  	    (throw 'continue nil))
! 	(when (string-match " " folder)
! 	  (mew-warn "SPC is not allowed!")
! 	  (throw 'continue nil))
  	(setq folder (mew-canonicalize-case-folder folder))
  	(setq ret (cons folder ret))))
      (nreverse ret)))
--- 573,581 ----
  	(if (and (= (length folder) 1)
  		 (member folder mew-folder-prefixes)) ;; "prefix" only
  	    (throw 'continue nil))
! ;;	(when (string-match " " folder)
! ;;	  (mew-warn "SPC is not allowed!")
! ;;	  (throw 'continue nil))
  	(setq folder (mew-canonicalize-case-folder folder))
  	(setq ret (cons folder ret))))
      (nreverse ret)))