Function: sieve-manage-erase

sieve-manage-erase is a byte-compiled function defined in sieve-manage.el.gz.

Signature

(sieve-manage-erase &optional P BUFFER)

Source Code

;; Defined in /usr/src/emacs/lisp/net/sieve-manage.el.gz
(defun sieve-manage-erase (&optional p buffer)
  (with-current-buffer (or buffer (current-buffer))
    (let* ((start (point-min))
           (end (or p (point-max)))
           (logdata (buffer-substring-no-properties start end)))
      (sieve-manage--append-to-log logdata)
      (delete-region start end)
      logdata)))