Function: mspools-size-folder

mspools-size-folder is a byte-compiled function defined in mspools.el.gz.

Signature

(mspools-size-folder SPOOL)

Documentation

Return (SPOOL . SIZE ), if SIZE of spool file is non-zero.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/mspools.el.gz
(defun mspools-size-folder (spool)
  "Return (SPOOL . SIZE ), if SIZE of spool file is non-zero."
  ;; 7th file attribute is the size of the file in bytes.
  (let ((file (concat mspools-folder-directory spool))
	size)
    (setq file (or (file-symlink-p file) file))
    (setq size (file-attribute-size (file-attributes file)))
    ;; size could be nil if the sym-link points to a non-existent file
    ;; so check this first.
    (if (and size  (> size 0))
	(cons spool  size)
      ;; else SPOOL is empty
      nil)))