Mercurial > emacs
comparison lisp/mail/rmail.el @ 5192:3fb665ab94c1
(rmail-variables): Abbreviate truename for comparison.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 26 Nov 1993 20:42:23 +0000 |
| parents | 1ada11e2d89a |
| children | 89b71a85be3e |
comparison
equal
deleted
inserted
replaced
| 5191:414da6a99f69 | 5192:3fb665ab94c1 |
|---|---|
| 561 (make-local-variable 'rmail-inbox-list) | 561 (make-local-variable 'rmail-inbox-list) |
| 562 (setq rmail-inbox-list (rmail-parse-file-inboxes)) | 562 (setq rmail-inbox-list (rmail-parse-file-inboxes)) |
| 563 ;; Provide default set of inboxes for primary mail file ~/RMAIL. | 563 ;; Provide default set of inboxes for primary mail file ~/RMAIL. |
| 564 (and (null rmail-inbox-list) | 564 (and (null rmail-inbox-list) |
| 565 (or (equal buffer-file-name (expand-file-name rmail-file-name)) | 565 (or (equal buffer-file-name (expand-file-name rmail-file-name)) |
| 566 (equal buffer-file-truename (file-truename rmail-file-name))) | 566 (equal buffer-file-truename |
| 567 (abbreviate-file-name (file-truename rmail-file-name)))) | |
| 567 (setq rmail-inbox-list | 568 (setq rmail-inbox-list |
| 568 (or rmail-primary-inbox-list | 569 (or rmail-primary-inbox-list |
| 569 (list (or (getenv "MAIL") | 570 (list (or (getenv "MAIL") |
| 570 (concat rmail-spool-directory | 571 (concat rmail-spool-directory |
| 571 (user-original-login-name))))))) | 572 (user-original-login-name))))))) |