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)

diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el
index dabd4d774d303bc9cb1596684bd4c0057ea4f9aa..f4270ba3277378502da54e1efe5293b21660c70f 100644 (file)
--- 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)