Function: nnml-nov-delete-article

nnml-nov-delete-article is a byte-compiled function defined in nnml.el.gz.

Signature

(nnml-nov-delete-article GROUP ARTICLE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnml.el.gz
(defun nnml-nov-delete-article (group article)
  (with-current-buffer (nnml-open-nov group)
    (when (nnheader-find-nov-line article)
      (delete-region (point) (progn (forward-line 1) (point)))
      (when (bobp)
	(let ((active (cadr (assoc group nnml-group-alist)))
	      num)
	  (when active
	    (if (eobp)
		(setf (car active) (1+ (cdr active)))
	      (when (and (setq num (ignore-errors (read (current-buffer))))
			 (numberp num))
		(setf (car active) num)))))))
    t))