Function: gnus-undo

gnus-undo is an interactive and byte-compiled function defined in gnus-undo.el.gz.

Signature

(gnus-undo N)

Documentation

Undo some previous changes in Gnus buffers.

Repeat this command to undo more changes.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-undo.el.gz
(defun gnus-undo (_n)
  "Undo some previous changes in Gnus buffers.
Repeat this command to undo more changes."
  ;; FIXME: A numeric argument should serve as a repeat count.
  (interactive "p")
  (unless gnus-undo-mode
    (error "Undoing is not enabled in this buffer"))
  (message "%s" last-command)
  (unless (and (eq last-command 'gnus-undo)
               gnus-undo-last)
    (setq gnus-undo-last gnus-undo-actions))
  (let ((action (pop gnus-undo-last)))
    (unless action
      (error "Nothing further to undo"))
    (setq gnus-undo-actions (delq action gnus-undo-actions))
    (setq gnus-undo-boundary t)
    (mapc #'funcall action)))