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

[Stefan Monnier]

Index: emacs/lisp/gnus/gnus-start.el
diff -c emacs/lisp/gnus/gnus-start.el:1.34 emacs/lisp/gnus/gnus-start.el:1.35
*** emacs/lisp/gnus/gnus-start.el:1.34  Wed Feb  9 15:50:38 2005
--- emacs/lisp/gnus/gnus-start.el       Tue Mar 22 18:48:38 2005
***************
*** 1,5 ****
  ;;; gnus-start.el --- startup functions for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,5 ----
  ;;; gnus-start.el --- startup functions for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 3083,3094 ****
            (file-name-as-directory (expand-file-name gnus-default-directory))
          default-directory)))
  
! (eval-and-compile
! (defalias 'gnus-display-time-event-handler
!   (if (gnus-boundp 'display-time-timer)
!       'display-time-event-handler
!     (lambda () "Does nothing as `display-time-timer' is not bound.
! Would otherwise be an alias for `display-time-event-handler'." nil))))
  
  ;;;###autoload
  (defun gnus-fixup-nnimap-unread-after-getting-new-news ()
--- 3083,3092 ----
            (file-name-as-directory (expand-file-name gnus-default-directory))
          default-directory)))
  
! (defun gnus-display-time-event-handler ()
!   (if (and (fboundp 'display-time-event-handler)
!          (gnus-boundp 'display-time-timer))
!       (display-time-event-handler)))
  
  ;;;###autoload
  (defun gnus-fixup-nnimap-unread-after-getting-new-news ()
***************
*** 3107,3113 ****
  
  (provide 'gnus-start)
  
! ;;; arch-tag: f4584a22-b7b7-4853-abfc-a637329af5d2
  ;;; gnus-start.el ends here
  
  
--- 3105,3111 ----
  
  (provide 'gnus-start)
  
! ;; arch-tag: f4584a22-b7b7-4853-abfc-a637329af5d2
  ;;; gnus-start.el ends here