Function: nnspool-inews-sentinel

nnspool-inews-sentinel is a byte-compiled function defined in nnspool.el.gz.

Signature

(nnspool-inews-sentinel PROC STATUS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnspool.el.gz
;;; Internal functions.

(defun nnspool-inews-sentinel (proc _status)
  (with-current-buffer (process-buffer proc)
    (goto-char (point-min))
    (if (or (zerop (buffer-size))
	    (search-forward "spooled" nil t))
	(kill-buffer (current-buffer))
      ;; Make status message by folding lines.
      (while (re-search-forward "[ \t\n]+" nil t)
	(replace-match " " t t))
      (nnheader-report 'nnspool "%s" (buffer-string))
      (nnheader-message 5 "nnspool: %s" nnspool-status-string)
      (ding)
      (run-hooks 'nnspool-rejected-article-hook))))