From 8227f98a7bc3da3d5cd26a5123eb0de7427d5b02 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bj=C3=B6rn=20Bidar?= Date: Fri, 31 Jan 2025 02:34:19 +0200 Subject: [PATCH] Make sieve-manage prompt also for port number (sieve-manage): Optionally read port number when called interactively. Add documentation string. (Bug#75956) (cherry picked from commit 07d1fdb1ea259e1832e0b0c03b2d2fc9a052037f) --- lisp/net/sieve.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el index dabd4d774d3..f4270ba3277 100644 --- a/lisp/net/sieve.el +++ b/lisp/net/sieve.el @@ -338,7 +338,16 @@ Used to bracket operations which move point in the sieve-buffer." ;;;###autoload (defun sieve-manage (server &optional port) - (interactive "sServer: ") + "Open ManageSieve SERVER. +Optional argument PORT, if non-nil, specifies which port use; +otherwise it defaults to `sieve-manage-default-port'. + +When called interactively, prompt for SERVER and PORT. If PORT is not +specified, fall back to `sieve-manage-default-port'." + (interactive + (split-string (read-string + "Server and port (SERVER[:PORT]): ") + ":")) (switch-to-buffer (get-buffer-create sieve-buffer)) (sieve-manage-mode) (sieve-setup-buffer server port) -- 2.39.5