Function: imap-mailbox-expunge

imap-mailbox-expunge is a byte-compiled function defined in imap.el.gz.

Signature

(imap-mailbox-expunge &optional ASYNCH BUFFER)

Documentation

Expunge articles in current folder in BUFFER.

If ASYNCH, do not wait for successful completion of the command. If BUFFER is nil the current buffer is assumed.

Source Code

;; Defined in /usr/src/emacs/lisp/net/imap.el.gz
(defun imap-mailbox-expunge (&optional asynch buffer)
  "Expunge articles in current folder in BUFFER.
If ASYNCH, do not wait for successful completion of the command.
If BUFFER is nil the current buffer is assumed."
  (with-current-buffer (or buffer (current-buffer))
    (when (and imap-current-mailbox (not (eq imap-state 'examine)))
      (if asynch
	  (imap-send-command "EXPUNGE")
      (imap-ok-p (imap-send-command-wait "EXPUNGE"))))))