Function: gnus-kill-file-apply-last-sexp

gnus-kill-file-apply-last-sexp is an interactive and byte-compiled function defined in gnus-kill.el.gz.

Signature

(gnus-kill-file-apply-last-sexp)

Documentation

Apply sexp before point in current buffer to current newsgroup.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-kill.el.gz
(defun gnus-kill-file-apply-last-sexp ()
  "Apply sexp before point in current buffer to current newsgroup."
  (interactive)
  (if (and gnus-current-kill-article
	   (get-buffer gnus-summary-buffer))
      ;; Assume newsgroup is selected.
      (let ((string
	     (buffer-substring
	      (save-excursion (forward-sexp -1) (point)) (point))))
	(save-excursion
	  (save-window-excursion
	    (pop-to-buffer gnus-summary-buffer)
	    (eval (car (read-from-string string)) t))))
    (ding) (gnus-message 2 "No newsgroup is selected.")))