Function: nnmaildir--group-maxnum

nnmaildir--group-maxnum is a byte-compiled function defined in nnmaildir.el.gz.

Signature

(nnmaildir--group-maxnum SERVER GROUP)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnmaildir.el.gz
(defun nnmaildir--group-maxnum (server group)
  (catch 'return
    (if (zerop (nnmaildir--grp-count group)) (throw 'return 0))
    (let ((dir (nnmaildir--srvgrp-dir (nnmaildir--srv-dir server)
				    (nnmaildir--grp-name group)))
	  (number-opened 1)
	  attr ino-opened nlink number-linked)
      (setq dir (nnmaildir--nndir dir)
	    dir (nnmaildir--num-dir dir))
      (while t
	(setq attr (file-attributes
		    (concat dir (number-to-string number-opened))))
	(or attr (throw 'return (1- number-opened)))
	(setq ino-opened (file-attribute-inode-number attr)
	      nlink (file-attribute-link-number attr)
	      number-linked (+ number-opened nlink))
	(setq attr (file-attributes
		    (concat dir (number-to-string number-linked))))
	(or attr (throw 'return (1- number-linked)))
	(unless (equal ino-opened (file-attribute-inode-number attr))
	  (setq number-opened number-linked))))))