Function: rmail-revert

rmail-revert is a byte-compiled function defined in rmail.el.gz.

Signature

(rmail-revert ARG NOCONFIRM)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmail.el.gz
;; Handle M-x revert-buffer done in an rmail-mode buffer.
(defun rmail-revert (arg noconfirm)
  (set-buffer rmail-buffer)
  (let* ((revert-buffer-function (default-value 'revert-buffer-function))
	 (coding-system-for-read
	  (or coding-system-for-read 'no-conversion))
	 (before-revert-hook 'rmail-swap-buffers-maybe))
    ;; Call our caller again, but this time it does the default thing.
    (when (revert-buffer arg noconfirm)
      ;; If the user said "yes", and we changed something,
      ;; reparse the messages.
      (set-buffer rmail-buffer)
      (rmail-mode-2)
      (rmail-convert-file-maybe)
      (goto-char (point-max))
      (rmail-set-message-counters)
      (rmail-show-message rmail-total-messages)
      (run-hooks 'rmail-mode-hook))))