[Emacs-diffs] Changes to emacs/lisp/gnus/mail-source.el

[ShengHuo ZHU]

Index: emacs/lisp/gnus/mail-source.el
diff -c emacs/lisp/gnus/mail-source.el:1.11 emacs/lisp/gnus/mail-source.el:1.12
*** emacs/lisp/gnus/mail-source.el:1.11 Tue Feb 19 09:08:08 2002
--- emacs/lisp/gnus/mail-source.el      Thu Mar 21 14:11:23 2002
***************
*** 450,462 ****
                    (error "Cannot get new mail"))
                  0))))))))
  
! (defun mail-source-make-complex-temp-name (prefix)
!   (let ((newname (make-temp-name prefix))
!       (newprefix prefix))
!     (while (file-exists-p newname)
!       (setq newprefix (concat newprefix "x"))
!       (setq newname (make-temp-name newprefix)))
!     newname))
  
  (defun mail-source-callback (callback info)
    "Call CALLBACK on the mail file, and then remove the mail file.
--- 450,465 ----
                    (error "Cannot get new mail"))
                  0))))))))
  
! (eval-and-compile
!   (if (fboundp 'make-temp-file)
!       (defalias 'mail-source-make-complex-temp-name 'make-temp-file)
!     (defun mail-source-make-complex-temp-name (prefix)
!       (let ((newname (make-temp-name prefix))
!           (newprefix prefix))
!       (while (file-exists-p newname)
!         (setq newprefix (concat newprefix "x"))
!         (setq newname (make-temp-name newprefix)))
!       newname))))
  
  (defun mail-source-callback (callback info)
    "Call CALLBACK on the mail file, and then remove the mail file.