[Mew-dist 04415] show current variable of mew-config-imget

[Makoto MATSUSHITA ( まつしたまこと )]

mew-summary-get() 時に，mew-config-imget の値を表示してあげる patch を
(多少汚いんですが)書きました．動機は次の通り，です．

	A と B のそれぞれの POP server から mail 取ってくるのを適宜
	切りかえるようにしよう．両方同時に get するとちょっと困るので，
	それぞれは独立に取れるようにしなきゃ．切りかえる作業は，実際に
	は mew-summary-config-imget() すればいいから簡単．

	さて imget 動かそう．i 押して‥‥あれ，password 聞いてきたけど，
	いまどの config 値で動かしてたんだっけ?

と，いうわけで Getting +inbox ... などと表示している時に mew-config-imget
の値を表示しておけば(imget が動くまでにはちょっと時間がありますから:)，
こういう混乱はある程度避けられるかなと思います．きびきび動く計算機だと
あんまり役に立たないかもしれませんが‥‥

# "default" が決めうちになってるというのがちょっと汚いですが，
# "default" が default なのだからこれは良いのかなという気もして書いて
# みました．

--- mew-scan.el.dist	Tue Apr  7 17:24:49 1998
+++ mew-scan.el	Thu Apr 16 20:04:48 1998
@@ -96,7 +96,9 @@
 	  (let ((process-connection-type mew-connection-type1))
 	    (cond
 	     ((string-match mew-prog-imget prog)
-	      (message "Getting %s ..." folder))
+	      (if (string= mew-config-imget "default") ; XXX hard-coded
+		  (message "Getting %s ..." folder)
+		(message "Getting %s (%s)..." folder mew-config-imget)))
 	     ((string-match mew-prog-imls prog)
 	      (message "Listing %s ..." folder)
 	      (if (or (equal 'erase (car (cdr range)))

-- -
Makoto `MAR' MATSUSHITA