mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

Add missing documentation strings in sieve.el

Browse source 
* lisp/net/sieve.el (sieve-activate, sieve-deactivate-all)
(sieve-remove, sieve-edit-script, sieve-refersh-scriptlist)
(sieve-upload, sieve-upload-and-burry, sieve-upload-and-kill):
Add documentation strings.  (Bug#75956)
This commit is contained in:
Björn Bidar 2025-01-31 02:53:34 +02:00 • committed by Stefan Kangas
parent 07d1fdb1ea
commit c5bfaf1ae3
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/net/sieve.el
View file

@ -161,6 +161,7 @@ require \"fileinto\";
(bury-buffer))
(defun sieve-activate (&optional _pos)
"Activate script at point."
(interactive)
(let ((name (sieve-script-at-point)) err)
(when (or (null name) (string-equal name sieve-new-script))
@ -173,6 +174,7 @@ require \"fileinto\";
(message "Activating script %s...failed: %s" name (nth 2 err)))))
(defun sieve-deactivate-all (&optional _pos)
"Deactivate all currently active scripts."
(interactive)
(message "Deactivating scripts...")
(let (;; (name (sieve-script-at-point))
@ -185,6 +187,7 @@ require \"fileinto\";
(defalias 'sieve-deactivate #'sieve-deactivate-all)
(defun sieve-remove (&optional _pos)
"Remove script at point."
(interactive)
(let ((name (sieve-script-at-point)) err)
(when (or (null name) (string-equal name sieve-new-script))
@ -197,6 +200,7 @@ require \"fileinto\";
(message "Removing sieve script %s...done" name)))
(defun sieve-edit-script (&optional _pos)
"Edit script at point."
(interactive)
(let ((name (sieve-script-at-point)))
(unless name
@ -310,6 +314,7 @@ 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."
(interactive)
(with-current-buffer sieve-buffer
(setq buffer-read-only nil)
@ -357,6 +362,9 @@ specified, fall back to `sieve-manage-default-port'."
;;;###autoload
(defun sieve-upload (&optional name)
"Upload script NAME to currently opened server.
If NAME is nil, detect it from script buffer name.
If no open sieve buffer exists, call `sieve-manage' first."
(interactive)
(when (or (get-buffer sieve-buffer)
(save-current-buffer (call-interactively 'sieve-manage)))
@ -375,12 +383,14 @@ specified, fall back to `sieve-manage-default-port'."
;;;###autoload
(defun sieve-upload-and-bury (&optional name)
"Upload script NAME and bury the current buffer."
(interactive)
(sieve-upload name)
(bury-buffer))
;;;###autoload
(defun sieve-upload-and-kill (&optional name)
"Upload script NAME and kill the current buffer."
(interactive)
(sieve-upload name)
(kill-buffer))