From: tsuchiya <tsuchiya>
Date: Sun, 21 May 2000 04:46:35 +0000 (+0000)
Subject: (gnus-group-make-shimbun-group): New command.
X-Git-Tag: t-gnus-6_14_4-02~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=33e5215c80e536120f6662d314a2f0f9165f2c17;p=elisp%2Fgnus.git-

(gnus-group-make-shimbun-group): New command.
---

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index a28fc11..c83b7a0 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2201,6 +2201,36 @@ If SOLID (the prefix), create a solid group."
 		       (nnwarchive-login ,login))))
     (gnus-group-make-group group method)))
 
+(defvar nnshimbun-type-definition)
+(defvar gnus-group-shimbun-type-history nil)
+(defvar gnus-group-shimbun-address-history nil)
+
+(defun gnus-group-make-shimbun-group ()
+  "Create a nnshimbun group."
+  (interactive)
+  (require 'nnshimbun)
+  (let* ((default-type
+	   (or (car gnus-group-shimbun-type-history)
+	       (symbol-name (caar nnshimbun-type-definition))))
+	 (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))
+	 (address
+	  (read-string "Shimbun address: "
+		       nil '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)))))
+	   nil t nil)))
+    (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.
 Given a prefix, create a full group."