Synch to No Gnus 200406020940.

[elisp/gnus.git-] / lisp / assistant.el

diff --git a/lisp/assistant.el b/lisp/assistant.el
index e31a139..bacbe17 100644 (file)
--- a/lisp/assistant.el
+++ b/lisp/assistant.el
@@ -219,9 +219,8 @@
             (variable (cadr elem))
             (type (assistant-get-variable node variable 'type)))
        (cond
-        ((and (consp type)
-              (eq (car type) :radio))
-         (push 
+        ((eq (car-safe type) :radio)
+         (push
           (apply
            #'widget-create
            'radio-button-choice
@@ -239,6 +238,25 @@
                        "node")))
            (cadr type))
           assistant-widgets))
+        ((eq (car-safe type) :set)
+         (push
+          (apply
+           #'widget-create
+           'set
+           :assistant-variable variable
+           :assistant-node node
+           :value (assistant-get-variable node variable nil t)
+           :notify (lambda (widget &rest ignore)
+                     (assistant-set-variable
+                      (widget-get widget :assistant-node)
+                      (widget-get widget :assistant-variable)
+                      (widget-value widget))
+                     (assistant-render-node
+                      (assistant-get
+                       (widget-get widget :assistant-node)
+                       "node")))
+           (cadr type))
+          assistant-widgets))
         (t
          (push 
           (widget-create
@@ -377,9 +395,12 @@
   (let ((bindings nil))
     (dolist (variable (assistant-get-all-variables))
       (setq variable (cadr variable))
-      (push (list (car variable) (if (eq (nth 3 variable) 'default)
-                                    nil
-                                  (nth 3 variable)))
+      (push (list (car variable) 
+                 (if (eq (nth 3 variable) 'default)
+                     nil
+                   (if (listp (nth 3 variable))
+                       `(list ,@(nth 3 variable))
+                     (nth 3 variable))))
            bindings))
     (eval
      `(let ,bindings
@@ -425,5 +446,4 @@
 
 (provide 'assistant)
 
-;;; arch-tag: 0404bfa2-9226-4611-8d3f-335c2416175b
 ;;; assistant.el ends here