[Mew-dist 10394] Re: IMAP & nntp (Re: Mew 1.94b49 + IM 120)

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: "Masaki SHIGEMORI (=?ISO-2022-JP?B?GyRCPUU/OUA1PHkbKEI=?=)" <shige at example.com> さん曰く
Subject: [Mew-dist 10391] Re: IMAP & nntp (Re: Mew 1.94b49 + IM 120)
Message-ID: <37C24C96324.4EA9SHIGE at example.com>
Date: Tue, 24 Aug 1999 16:41:11 +0900

shirai> 私個人は %inbox と %#mh な folder しか動かしていないため、
shirai> 確認できません。 ^^;;;

私も確認できました。

shige> 私も %inbox と %#mh/ な folder を見たいのですが、'g' の度に %#mh/ と入
shige> 力するのはちょっと面倒です ^^;
shige> このような場合にうまい方法はありませんでしょうか？

う〜ん、こちらはわかりません。まぁ、補完の対象にはなったからよろ
しいかと。

そこで、ひとつ、IMAP をお使いの方々にお願いがあるのですが、

~/Mail/@imap.server#user 

のような directory ができて、そのなかに subdirectory があります
よね？ (directory を作るか？ で No と答えると作りませんが)
その状態で "C-uZ" (mew-status-update prefix 付き) をやっていただ
いて、~/.Mail/.folders のなかで上記の directory 名が IMAP の
folder 名に変換できているかどうか調べていただきたいのです。

そして、もし、変換できずに残っていたら、
『元の directory 名 と期待する folder名』を教えていただきたいの
です。そうしたら、変換関数を賢くできるので。

# ちなみに ~/.im/Config で ImapAccount を設定していないと動きま
# せん。そのときも、それぞれ差し支えない範囲で教えていただけると
# ありがたいです。

shige> また、以前のバージョンでは、IMAP を使っている場合には 'g' する際に
shige> mini buffer に
shige>    Folder name (%inbox): %
shige> のように出たので IMAP フォルダ名を入力しやすかったのですが、最近のバー
shige> ジョンでは
shige>    Folder name (%inbox): +
shige> のようになってしまいます。これは理由があるのでしょうか？

こちらは以下のパッチで出来るようになります。

# "毒を食らわば皿まで" って感じになって来たぞ。
-------------- next part --------------
*** mew-minibuf.el.orig	Tue Aug 24 17:33:26 1999
--- mew-minibuf.el	Tue Aug 24 17:44:32 1999
***************
*** 61,76 ****
  (defvar mew-input-folder-hist nil)
  
  (defun mew-input-folder (default)
!   (let ((folder))
      (mew-input-clear)
      (setq mew-input-complete-function (function mew-complete-folder))
      (setq folder (read-from-minibuffer (format "Folder name (%s): " default)
! 				       "+"
  				       mew-input-map
  				       nil
  				       'mew-input-folder-hist))
      (directory-file-name 
!      (if (or (string= folder "") (string= folder "+"))
   	 default
         folder))))
  
--- 61,77 ----
  (defvar mew-input-folder-hist nil)
  
  (defun mew-input-folder (default)
!   (let ((prefix (substring default 0 1))
! 	 folder)
      (mew-input-clear)
      (setq mew-input-complete-function (function mew-complete-folder))
      (setq folder (read-from-minibuffer (format "Folder name (%s): " default)
! 				       prefix
  				       mew-input-map
  				       nil
  				       'mew-input-folder-hist))
      (directory-file-name 
!      (if (or (string= folder "") (string= folder prefix))
   	 default
         folder))))