(assistant-render-node): Reset.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 48e3040..8ae0b72 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * assistant.el (assistant-render-node): Fix up rendering and
        read-only text. 
+       (assistant-render-node): Reset.
 
 2004-05-20  Danny Siu  <dsiu@adobe.com>
 

diff --git a/lisp/assistant.el b/lisp/assistant.el
index 62f88f4..537feb9 100644 (file)
--- a/lisp/assistant.el
+++ b/lisp/assistant.el
@@ -172,13 +172,14 @@
 
 (defun assistant-next-node-text (node)
   (if node
-      (format "[ Proceed to %s >> ]" node)
-    "[ Finish ]"))
+      (format "Proceed to %s >>" node)
+    "Finish"))
 
-(defun assistant-set-defaults (node)
+(defun assistant-set-defaults (node &optional forcep)
   (dolist (variable (assistant-get-list node "variable"))
     (setq variable (cadr variable))
-    (when (eq (nth 3 variable) 'default)
+    (when (or (eq (nth 3 variable) 'default)
+             forcep)
       (setcar (nthcdr 3 variable)
              (eval (nth 2 variable))))))
 
@@ -234,8 +235,18 @@
     (insert "\n\n")
     (when assistant-previous-node
       (assistant-node-button 'previous assistant-previous-node))
+    (widget-create
+     'push-button
+     :assistant-node node-name
+     :notify (lambda (widget &rest ignore)
+              (let* ((node (widget-get widget :assistant-node)))
+                (assistant-set-defaults (assistant-find-node node) 'force)
+                (assistant-render-node node)))
+     "Reset")
+    (insert " ")
     (assistant-node-button 'next (assistant-find-next-node))
     (insert "\n")
+    (goto-char (point-min))
     (assistant-make-read-only)))
 
 (defun assistant-make-read-only ()
@@ -332,6 +343,21 @@
     (message "Results: %s"
             (nreverse results))))
 
+;;; Validation functions.
+
+(defun assistant-validate-connect-to-server (server port)
+  (let* ((error nil)
+        (stream
+         (condition-case err
+             (open-network-stream "nntpd" nil server port)
+           (error (setq error err)))))
+    (if (and (processp stream)
+            (memq (process-status stream) '(open run)))
+       (progn
+         (delete-process stream)
+         nil)
+      error)))
+
 (provide 'assistant)
 
 ;;; arch-tag: 0404bfa2-9226-4611-8d3f-335c2416175b