Re: sb-arch-bluegate.el

[TSUCHIYA Masatoshi <tsuchiya@xxxxxxxxxx>]

>> On Tue, 08 Feb 2005 14:05:07 +0900
>> 「山」== yamaoka@jpl.org (Katsumi Yamaoka) said as follows:

山> @item @uref{http://news.com.com/, CNET}
山> news enterprise.software enterprise.hardware security networking
山> personal.technology newsmakers perspectives

山> で良いのではないですか?

ここまで省略してしまうと，Gnus でも「CNET の news グループが読みたいけ
どどうするんだ? ふむ，Group buffer で G n... あれれ shimbun address っ
て何だ? ここで news って入れるのかな?」となりはしないでしょうか．

と書いてて気が付いたのですが，今でも十二分に分かりづらいですね，これは．
とりあえず，無関係なデフォルト値(2ch)が入ってしまっっているのは良くな
いと思いますし，補完が効くのも初めての人には分からないでしょうし．そう
いうわけで，以下のように改修すると，少しは分かり易くなるかなあと思いま
すが，どうでしょう?

-- 
土屋 雅稔 ( TSUCHIYA Masatoshi )

--- nnshimbun.el	24 Dec 2004 03:25:41 -0000	1.23
+++ nnshimbun.el	8 Feb 2005 06:08:52 -0000
@@ -889,16 +889,16 @@
 	 server groups group)
      (unless (eq major-mode 'gnus-group-mode)
        (error "Command invoked outside of a Gnus group buffer"))
-     (setq server (completing-read "Shimbun address: "
-				   alist nil t
-				   (or (car (delete ""
-						    nnshimbun-server-history))
-				       (caar alist))
-				   'nnshimbun-server-history))
+     (setq server (completing-read
+		   "Shimbun server address [Hit TAB to see candidates]: "
+		   alist nil t
+		   (car (delete "" nnshimbun-server-history))
+		   'nnshimbun-server-history))
      (if (assoc server alist)
 	 (when (setq groups (shimbun-groups (shimbun-open server)))
-	   (setq group (completing-read "Group name: "
-					(mapcar 'list groups) nil t))
+	   (setq group (completing-read
+			"Group name [Hit TAB to see candidates]: "
+			(mapcar 'list groups) nil t))
 	   (unless (member group groups)
 	     (setq group nil)))
        (setq server nil))