diff options
Diffstat (limited to 'lisp/mail/mspools.el')
| -rw-r--r-- | lisp/mail/mspools.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el index 9aaf86d401c..b1cbd9e5497 100644 --- a/lisp/mail/mspools.el +++ b/lisp/mail/mspools.el @@ -3,7 +3,6 @@ ;; Copyright (C) 1997, 2001-2019 Free Software Foundation, Inc. ;; Author: Stephen Eglen <stephen@gnu.org> -;; Maintainer: Stephen Eglen <stephen@gnu.org> ;; Created: 22 Jan 1997 ;; Keywords: mail ;; location: http://www.anc.ed.ac.uk/~stephen/emacs/ @@ -387,7 +386,7 @@ nil." (let ((file (concat mspools-folder-directory spool)) size) (setq file (or (file-symlink-p file) file)) - (setq size (nth 7 (file-attributes 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)) |