Function: gnus-article-edit-exit

gnus-article-edit-exit is an interactive and byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-article-edit-exit)

Documentation

Exit the article editing without updating.

Key Bindings

Aliases

gnus-summary-edit-article-postpone

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun gnus-article-edit-exit ()
  "Exit the article editing without updating."
  (interactive nil gnus-article-mode)
  (when (or (not (buffer-modified-p))
	    (yes-or-no-p "Article modified; kill anyway? "))
    (let ((curbuf (current-buffer))
	  (p (point))
	  (window-start (window-start)))
      (erase-buffer)
      (if (gnus-buffer-live-p gnus-original-article-buffer)
	  (insert-buffer-substring gnus-original-article-buffer))
      (let ((winconf gnus-prev-winconf))
	(kill-all-local-variables)
	(gnus-article-mode)
	(set-window-configuration winconf)
	;; Tippy-toe some to make sure that point remains where it was.
	(with-current-buffer curbuf
	  (set-window-start (get-buffer-window (current-buffer)) window-start)
	  (goto-char p))))
    (gnus-summary-show-article)))