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

[Takahiro Igarashi]

はじめまして五十嵐といいます。

ちょっとつい最近の mew の変化はよくわかっていないのですが...

> On Tue, 24 Aug 1999 17:58:53 +0900
> Hideyuki SHIRAI (白井秀行) <shirai at example.com> wrote
> about [Mew-dist 10394] Re: IMAP & nntp (Re: Mew 1.94b49 + IM 120).

>白井です。

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

g の際に % でなく %#mh/ がでればいいのでしょうか。

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

以前同じような変更をしたことがあったのですがそれが残っていた
ので送ります。
# ただ読んでみるときたないな
## 変数や関数の名前も変だし


--- mew-minibuf.el.orig	Fri Apr  2 16:14:53 1999
+++ mew-minibuf.el	Mon May 10 04:50:09 1999
@@ -57,18 +57,33 @@
 ;;;
 
 (defvar mew-input-folder-hist nil)
+(defvar mew-input-default-folder  "+")
+(defvar mew-input-default-folders "+")
+
+(defun mew-whatis-default-folder (default)
+  (let ()
+    (cond
+     ((stringp default)
+      (char-to-string (aref default 0)))
+     ((consp default)
+      (char-to-string (aref (car default) 0)))
+     (t ;;error handling
+      "")
+     )))
 
 (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-default-folder
 				       mew-input-map
 				       nil
 				       'mew-input-folder-hist))
     (directory-file-name 
-     (if (or (string= folder "") (string= folder "+"))
+     (if (or (string= folder "")
+             (string= folder
+                      (mew-whatis-default-folder mew-input-default-folder)))
  	 default
        folder))))
 
@@ -79,7 +94,7 @@
 	  (setq form "Folder name : ")
 	  (setq default prompt))
       (setq form (format "Folder name (%s): " default))
-      (setq prompt "+"))
+      (setq prompt mew-input-default-folders))
     (mew-input-clear)
     (setq mew-input-complete-function (function mew-complete-folder))
     (setq folders (read-from-minibuffer form
@@ -87,7 +102,9 @@
 					mew-input-map
 					nil
 					'mew-input-folder-hist))
-    (if (or (string= folders "") (string= folders "+"))
+    (if (or (string= folders "")
+            (string= folders
+                     (mew-whatis-default-folder mew-input-default-folders)))
 	(setq folders default))
     (mapcar (function directory-file-name) 
 	    (mapcar (function mew-chop)


mew-input-default-folder を "%#mh/" と設定すれば g
(mew-summary-goto-folder) の際に %#mh/ を表示できるようになる
と思います。
# 一応 read-from-minibuffer の第二 option (INITIAL-CONTENTS) 
# では (STRING . POSITION) の形が利用できるので、きちんとや
# れば  %#mh/ の # の位置にカーソルをもってくることもできます
## できると思います...
### mew-input-default-folders の方はよけいかもしれませんが...

ただ今はこれを利用していないのでうまくいくのかはわかりません
が...

ではこれで

-- 
  Takahiro Igarashi