/[emacs]/emacs/lisp/gnus/mail-source.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mail-source.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by zsh, Tue Feb 19 14:08:08 2002 UTC revision 1.12 by zsh, Thu Mar 21 19:11:23 2002 UTC
# Line 450  Return the number of files that were fou Line 450  Return the number of files that were fou
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.

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26