Function: sieve-activate

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

Signature

(sieve-activate &optional POS)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/sieve.el.gz
(defun sieve-activate (&optional _pos)
  (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 "Activating script %s..." name)
    (setq err (sieve-manage-setactive name sieve-manage-buffer))
    (sieve-refresh-scriptlist)
    (if (sieve-manage-ok-p err)
	(message "Activating script %s...done" name)
      (message "Activating script %s...failed: %s" name (nth 2 err)))))