Mercurial > emacs
comparison lisp/mail/mspools.el @ 91005:424b655804ca
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 846-851)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 88-92)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 242-244)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-246
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 13 Aug 2007 13:48:35 +0000 |
| parents | f55f9811f5d7 0092d723fe35 |
| children | 4bc33ffdda1a |
comparison
equal
deleted
inserted
replaced
| 91004:f72cf5b2ab11 | 91005:424b655804ca |
|---|---|
| 396 (delete-char -1)) ;delete last RET | 396 (delete-char -1)) ;delete last RET |
| 397 (goto-char (point-min)) | 397 (goto-char (point-min)) |
| 398 )) | 398 )) |
| 399 | 399 |
| 400 (defun mspools-size-folder (spool) | 400 (defun mspools-size-folder (spool) |
| 401 "Return (SPOOL . SIZE ) iff SIZE of spool file is non-zero." | 401 "Return (SPOOL . SIZE ), if SIZE of spool file is non-zero." |
| 402 ;; 7th file attribute is the size of the file in bytes. | 402 ;; 7th file attribute is the size of the file in bytes. |
| 403 (let ((file (concat mspools-folder-directory spool)) | 403 (let ((file (concat mspools-folder-directory spool)) |
| 404 size) | 404 size) |
| 405 (setq file (or (file-symlink-p file) file)) | 405 (setq file (or (file-symlink-p file) file)) |
| 406 (setq size (nth 7 (file-attributes file))) | 406 (setq size (nth 7 (file-attributes file))) |