Mercurial > emacs
comparison lisp/gnus/mail-source.el @ 110211:6cdcc53703e4
mail-source.el (mail-source-fetch): Don't message if we're fetching mail from a file, and the file doesn't exist.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sun, 05 Sep 2010 23:38:33 +0000 |
| parents | 8867a7812454 |
| children | ef15e8533a1c |
comparison
equal
deleted
inserted
replaced
| 110210:3d982e5c5f58 | 110211:6cdcc53703e4 |
|---|---|
| 542 the mail from SOURCE is put. | 542 the mail from SOURCE is put. |
| 543 Return the number of files that were found." | 543 Return the number of files that were found." |
| 544 (mail-source-bind-common source | 544 (mail-source-bind-common source |
| 545 (if (or mail-source-plugged plugged) | 545 (if (or mail-source-plugged plugged) |
| 546 (save-excursion | 546 (save-excursion |
| 547 (nnheader-message 4 "%sReading incoming mail from %s..." | 547 ;; Special-case the `file' handler since it's so common and |
| 548 (if method | 548 ;; just adds noise. |
| 549 (format "%s: " method) | 549 (when (or (not (eq (car source) 'file)) |
| 550 "") | 550 (mail-source-bind (file source) |
| 551 (car source)) | 551 (file-exists-p path))) |
| 552 (nnheader-message 4 "%sReading incoming mail from %s..." | |
| 553 (if method | |
| 554 (format "%s: " method) | |
| 555 "") | |
| 556 (car source))) | |
| 552 (let ((function (cadr (assq (car source) mail-source-fetcher-alist))) | 557 (let ((function (cadr (assq (car source) mail-source-fetcher-alist))) |
| 553 (found 0)) | 558 (found 0)) |
| 554 (unless function | 559 (unless function |
| 555 (error "%S is an invalid mail source specification" source)) | 560 (error "%S is an invalid mail source specification" source)) |
| 556 ;; If there's anything in the crash box, we do it first. | 561 ;; If there's anything in the crash box, we do it first. |