450 |
(error "Cannot get new mail")) |
(error "Cannot get new mail")) |
451 |
0)))))))) |
0)))))))) |
452 |
|
|
453 |
(defun mail-source-make-complex-temp-name (prefix) |
(eval-and-compile |
454 |
(let ((newname (make-temp-name prefix)) |
(if (fboundp 'make-temp-file) |
455 |
(newprefix prefix)) |
(defalias 'mail-source-make-complex-temp-name 'make-temp-file) |
456 |
(while (file-exists-p newname) |
(defun mail-source-make-complex-temp-name (prefix) |
457 |
(setq newprefix (concat newprefix "x")) |
(let ((newname (make-temp-name prefix)) |
458 |
(setq newname (make-temp-name newprefix))) |
(newprefix prefix)) |
459 |
newname)) |
(while (file-exists-p newname) |
460 |
|
(setq newprefix (concat newprefix "x")) |
461 |
|
(setq newname (make-temp-name newprefix))) |
462 |
|
newname)))) |
463 |
|
|
464 |
(defun mail-source-callback (callback info) |
(defun mail-source-callback (callback info) |
465 |
"Call CALLBACK on the mail file, and then remove the mail file. |
"Call CALLBACK on the mail file, and then remove the mail file. |