Function: sieve-remove

sieve-remove is an interactive and byte-compiled function defined in sieve.el.gz.

Signature

(sieve-remove &optional POS)

Documentation

Remove script at point.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/sieve.el.gz
(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))
      (error "No sieve script at point"))
    (message "Removing sieve script %s..." name)
    (setq err (sieve-manage-deletescript name sieve-manage-buffer))
    (unless (sieve-manage-ok-p err)
      (error "Removing sieve script %s...failed: " err))
    (sieve-refresh-scriptlist)
    (message "Removing sieve script %s...done" name)))