From: Björn Bidar <bjorn.bidar@thaodan.de>
Date: Fri, 31 Jan 2025 01:24:44 +0000 (+0200)
Subject: Bind sieve-refresh-scriptlist to 'g' in sieve-mode
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85db50bc4d86e67bc17b9fd0a0dd7cee10fb0008;p=emacs.git

Bind sieve-refresh-scriptlist to 'g' in sieve-mode

* lisp/net/sieve.el (sieve-manage-mode-map): Bind
`sieve-refersh-scriptlist' to 'g' to refresh buffer.
(sieve-refresh-scriptlist): Highlight in docstring that the function
updates the current sieve buffer.  (Bug#75956)

* doc/misc/sieve.texi (Managing Sieve): Document new keybinding and the
existing `sieve-refresh-scriptlist` function.

(cherry picked from commit 6967587daef027b0f4fd917b5181b43e45c7cb56)
---

diff --git a/doc/misc/sieve.texi b/doc/misc/sieve.texi
index 5d4b3b369d7..deadc991173 100644
--- a/doc/misc/sieve.texi
+++ b/doc/misc/sieve.texi
@@ -213,6 +213,12 @@ Bury the Manage Sieve buffer without closing the connection.
 @findex sieve-help
 Displays help in the minibuffer.
 
+@item g
+@kindex g
+@findex sieve-refresh-scriptlist
+Refresh list of scripts found on the currently opened server.
+Update contents of the current sieve buffer.
+
 @item Q
 @kindex Q
 @findex sieve-manage-quit
diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el
index df053538edf..7f496df403c 100644
--- a/lisp/net/sieve.el
+++ b/lisp/net/sieve.el
@@ -111,6 +111,7 @@ require \"fileinto\";
   ;; various
   "?"      #'sieve-help
   "h"      #'sieve-help
+  "g"      #'sieve-refresh-scriptlist
   ;; activating
   "m"      #'sieve-activate
   "u"      #'sieve-deactivate
@@ -314,7 +315,8 @@ Used to bracket operations which move point in the sieve-buffer."
     (sieve-manage-authenticate)))
 
 (defun sieve-refresh-scriptlist ()
-  "Refresh list of scripts found the currently opened server."
+  "Refresh list of scripts found on the currently opened server.
+Update contents of the current sieve buffer."
   (interactive)
   (with-current-buffer sieve-buffer
     (setq buffer-read-only nil)