From: Björn Bidar <bjorn.bidar@thaodan.de>
Date: Fri, 31 Jan 2025 00:34:19 +0000 (+0200)
Subject: Make sieve-manage prompt also for port number
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8227f98a7bc3da3d5cd26a5123eb0de7427d5b02;p=emacs.git

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 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)