Function: nnmh-deletable-article-p

nnmh-deletable-article-p is a byte-compiled function defined in nnmh.el.gz.

Signature

(nnmh-deletable-article-p GROUP ARTICLE)

Documentation

Say whether ARTICLE in GROUP can be deleted.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnmh.el.gz
(defun nnmh-deletable-article-p (group article)
  "Say whether ARTICLE in GROUP can be deleted."
  (let ((path (concat nnmh-current-directory (int-to-string article))))
    ;; Writable.
    (and (file-writable-p path)
	 (or
	  ;; We can never delete the last article in the group.
	  (not (eq (cdr (nth 1 (assoc group nnmh-group-alist)))
		   article))
	  ;; Well, we can.
	  nnmh-allow-delete-final))))