X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus.el;h=461232fb6ff50d22cd5e8ab44270c0d6de0df420;hb=dc10329e613f6cf7baf8349d8c5a4e18bf10b4b0;hp=4995820649af8903b55fb262db467c8051ccdefd;hpb=15bca14d69bdc8f35f4ddfc5bd4881872661889c;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 4995820..461232f 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -34,6 +34,8 @@
 (eval-when-compile (require 'cl))
 (eval-when-compile (require 'static))
 
+(require 'wid-edit)
+
 (require 'gnus-vers)
 
 (defgroup gnus nil
@@ -927,8 +929,9 @@ REST is a plist of following:
 	 (variable-document (or (plist-get rest :variable-document) ""))
 	 (variable-group (plist-get rest :variable-group))
 	 (variable-type (or (plist-get rest :variable-type)
-			    `(quote (repeat (list (regexp :tag "Group")
-						  ,parameter-type)))))
+			    `(quote (repeat
+				     (list (regexp :tag "Group")
+					   ,(car (cdr parameter-type)))))))
 	 (variable-default (plist-get rest :variable-default)))
     (list
      'progn
@@ -1498,6 +1501,10 @@ to be desirable; see the manual for further details."
   :type '(choice (const nil)
 		 integer))
 
+;; There should be special validation for this.
+(define-widget 'gnus-email-address 'string
+  "An email address")
+
 (gnus-define-group-parameter
  to-address
  :function-document
@@ -2123,6 +2130,9 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.")
 	     (subrp (symbol-function 'base64-encode-string)))
   (require 'base64))
 
+;; To make shimbun groups.
+(autoload 'gnus-group-make-shimbun-group "nnshimbun" nil t)
+
 ;; A tool for the developers.
 (autoload 'find-cl-run-time-functions "gnus-clfns" nil t)