[Mew-dist 09534] mew-scan.el patch.

[Shuichi KITAGUCHI ( 北口修一 )]

北口です。

"C" で case を切り替えてメールを取得する時に「あれ、どっちの
パスワードを入れるんだっけ?」と考えてしまったので、ちょっと
わかりやすくするパッチです。


--
Shuichi Kitaguchi <kit at example.com>
-------------- next part --------------
--- mew-scan.el.original	Mon Jun 28 11:59:03 1999
+++ mew-scan.el	Sat Jul  3 16:43:37 1999
@@ -187,7 +187,10 @@
 	    (setq mew-summary-buffer-string "")
 	    (process-send-string
 	     process
-	     (format "%s\n" (mew-input-passwd "Enter password : ")))))
+	     (format "%s\n" (if (equal mew-config-imget mew-config-default)
+				(mew-input-passwd "Enter password : ")
+			      (mew-input-passwd (format "Enter password (%s) : "
+							mew-config-imget)))))))
       ;; Skip greeting...
       (if (string-match "^imget: Getting new messages[^\n]*\n"
 			mew-summary-buffer-string)