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)
  (let ((buffer (or buffer (current-buffer))))
    (and sieve-manage-log
	 (with-current-buffer (get-buffer-create sieve-manage-log)
	   (mm-enable-multibyte)
	   (buffer-disable-undo)
	   (goto-char (point-max))
	   (insert-buffer-substring buffer (with-current-buffer buffer
					     (point-min))
				    (or p (with-current-buffer buffer
					    (point-max)))))))
  (delete-region (point-min) (or p (point-max))))