[mew-dist 21803] とっても危険!! make directory mode of Mew

[Hideyuki SHIRAI ( 白井秀行 )]

たった今、気付いたのでいつからかわからないのですが

"g" => "abc" (先頭には + もなにも入れない)

とすると、

(mew-summary-visit-folder "aaa")
で 

  (let ((dir (mew-expand-folder folder)) <= "current-directory/aaa"
    <<snip>>
    (cond
     ((mew-folder-virtualp folder)
    <<snip>>
     (t ;; local/remote folders
      (if (null dir)
	  (message "Folder is wrong") 
	(cond
	 ((mew-folder-localp folder) <= nil
       <<snip>>
	 (t
	  (unless (file-directory-p dir) <= "current-directory/aaa"  はないから
	    (mew-make-directory dir))    <= 作っちゃえ

になります。これ、意図した動作とは思えないのですが。

ぼくの場合、trace-dir していないから、current-directory == ~/ な
ので、とっても危険です。

試しに "~/zzz" というファイルを作っておいて "g" => "zzz" したら、
"~/zzz" という directory になってしまいました。

## うーん、危ないところだった。

もとからこうでしたっけ？ mew-input-folder() の仕様が変わったから？

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