From: yamaoka <yamaoka>
Date: Wed, 24 May 2000 07:26:10 +0000 (+0000)
Subject: (gnus-group-make-shimbun-group): Complete completions.
X-Git-Tag: t-gnus-6_14_4-03~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f694c875a1c369f737d719c2dc8c130219e8954d;p=elisp%2Fgnus.git-

(gnus-group-make-shimbun-group): Complete completions.
---

diff --git a/ChangeLog b/ChangeLog
index 52facc2..46b2a60 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-24  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-group.el (gnus-group-make-shimbun-group): Complete
+	completions.
+
 2000-05-24  TSUCHIYA Masatoshi  <tsuchiya@pine.kuee.kyoto-u.ac.jp>
 
 	* lisp/nnshimbun.el: Add `CNET Japan' support.
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 681a37c..cfe93f1 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2209,39 +2209,33 @@ If SOLID (the prefix), create a solid group."
   "Create a nnshimbun group."
   (interactive)
   (require 'nnshimbun)
-  (let* ((default-type
-	   (or (car gnus-group-shimbun-type-history)
-	       (symbol-name (caar nnshimbun-type-definition))))
+  (let* ((minibuffer-setup-hook (append minibuffer-setup-hook
+					'(beginning-of-line)))
 	 (type
-	  (gnus-string-or
-	   (completing-read
-	    (format "Shimbun type (default %s): " default-type)
-	    (mapcar (lambda (elem) (list (symbol-name (car elem))))
-		    nnshimbun-type-definition)
-	    nil t nil 'gnus-group-shimbun-type-history)
-	   default-type))
-	 (default-address
-	   (cdr (assq 'address
-		      (assq (intern type) nnshimbun-type-definition))))
+	  (completing-read
+	   "Shimbun type: "
+	   (mapcar (lambda (elem) (list (symbol-name (car elem))))
+		   nnshimbun-type-definition)
+	   nil t
+	   (or (car gnus-group-shimbun-type-history)
+	       (symbol-name (caar nnshimbun-type-definition)))
+	   'gnus-group-shimbun-type-history))
 	 (address
-	  (gnus-string-or
-	   (read-string
-	    (if default-address
-		(format "Shimbun address (default %s): " default-address)
-	      "Shimbun address: ")
-	    nil 'gnus-group-shimbun-address-history)
-	   default-address))
+	  (read-string
+	   "Shimbun address: "
+	   (cdr (assq 'address
+		      (assq (intern type) nnshimbun-type-definition)))
+	   'gnus-group-shimbun-address-history))
 	 (group
 	  (completing-read
 	   "Group name: "
 	   (mapcar (lambda (elem) (list elem))
-		   (cdr (assq 'groups (cdr (assq (intern type) nnshimbun-type-definition)))))
+		   (cdr (assq 'groups (cdr (assq (intern type)
+						 nnshimbun-type-definition)))))
 	   nil t nil)))
-    (setq gnus-group-shimbun-type-history
-	  (delete "" gnus-group-shimbun-type-history)
-	  gnus-group-shimbun-address-history
-	  (delete "" gnus-group-shimbun-address-history))
-    (gnus-group-make-group group `(nnshimbun ,address (nnshimbun-type ,(intern type))))))
+    (gnus-group-make-group group
+			   `(nnshimbun ,address
+				       (nnshimbun-type ,(intern type))))))
 
 (defun gnus-group-make-archive-group (&optional all)
   "Create the (ding) Gnus archive group of the most recent articles.