Function: gnus-kill-file-kill-by-xref

gnus-kill-file-kill-by-xref is an interactive and byte-compiled function defined in gnus-kill.el.gz.

Signature

(gnus-kill-file-kill-by-xref)

Documentation

Kill by Xref.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-kill.el.gz
(defun gnus-kill-file-kill-by-xref ()
  "Kill by Xref."
  (interactive)
  (let ((xref (and (vectorp gnus-current-headers)
		   (mail-header-xref gnus-current-headers)))
	(start 0)
	group)
    (if xref
	(while (string-match " \\([^ \t]+\\):" xref start)
	  (setq start (match-end 0))
	  (when (not (string=
		      (setq group
			    (substring xref (match-beginning 1) (match-end 1)))
		      gnus-newsgroup-name))
	    (gnus-kill-file-enter-kill
	     "Xref" (concat " " (regexp-quote group) ":") t)))
      (gnus-kill-file-enter-kill "Xref" "" t))))