Function: gnus-remove-thread-1

gnus-remove-thread-1 is a byte-compiled function defined in gnus-sum.el.gz.

Signature

(gnus-remove-thread-1 THREAD)

Documentation

Remove the thread THREAD recursively.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-sum.el.gz
(defun gnus-remove-thread-1 (thread)
  "Remove the thread THREAD recursively."
  (let ((number (mail-header-number (pop thread)))
	d)
    (setq thread (reverse thread))
    (while thread
      (gnus-remove-thread-1 (pop thread)))
    (when (setq d (gnus-data-find number))
      (goto-char (gnus-data-pos d))
      (gnus-summary-show-thread)
      (gnus-data-remove
       number
       (- (line-beginning-position)
	  (prog1
              (1+ (line-end-position))
	    (gnus-delete-line)))))))