From 9196ffb974979d7e945af21990cdd8ff069495fb Mon Sep 17 00:00:00 2001 From: scymtym Date: Sun, 1 Aug 2010 04:01:11 +0200 Subject: [PATCH] Improved histories and default values of TLS read functions * tls/rudel-tls.el (rudel-tls-ask-connect-info-host-history): new variable; history of hosts read (rudel-tls-ask-connect-info-port-last): new variable; last prompt read (rudel-ask-connect-info): use `rudel-tls-ask-connect-info-host-history' and `rudel-tls-ask-connect-info-port-last' to provide default inputs and histories for host and port reading --- tls/rudel-tls.el | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/tls/rudel-tls.el b/tls/rudel-tls.el index 75528e9..67eaec9 100644 --- a/tls/rudel-tls.el +++ b/tls/rudel-tls.el @@ -261,14 +261,31 @@ support STARTTLS behavior.") (unless rudel-tls-client-program (error "Required program 'gnutls-cli' not available"))) +(defvar rudel-tls-ask-connect-info-host-history nil + "History of hosts read by TLS backend's `rudel-ask-connect-info'.") + +(defvar rudel-tls-ask-connect-info-port-last nil + "Last port read by TLS backend's `rudel-ask-connect-info'.") + (defmethod rudel-ask-connect-info ((this rudel-start-tls-backend) &optional info) "Augment INFO by read a hostname and a port number." ;; Read server host and port. (let ((host (or (plist-get info :host) - (read-string "Server: "))) + (read-string + (if (car rudel-tls-ask-connect-info-host-history) + (format + "Server (default %s): " + (car rudel-tls-ask-connect-info-host-history)) + "Server: ") + nil + 'rudel-tls-ask-connect-info-host-history))) (port (or (plist-get info :port) - (read-number "Port: ")))) + (setq + rudel-tls-ask-connect-info-port-last + (read-number + "Port: " + rudel-tls-ask-connect-info-port-last))))) (append (list :host host :port port) info)))