/[emacs]/emacs/lisp/gnus/gnus-start.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-start.el

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

revision 1.34 by kfstorm, Wed Feb 9 15:50:38 2005 UTC revision 1.35 by monnier, Tue Mar 22 18:48:38 2005 UTC
# Line 1  Line 1 
1  ;;; gnus-start.el --- startup functions for Gnus  ;;; gnus-start.el --- startup functions for Gnus
2  ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004  ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
3  ;;        Free Software Foundation, Inc.  ;;        Free Software Foundation, Inc.
4    
5  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
# Line 3083  If this variable is nil, don't do anythi Line 3083  If this variable is nil, don't do anythi
3083              (file-name-as-directory (expand-file-name gnus-default-directory))              (file-name-as-directory (expand-file-name gnus-default-directory))
3084            default-directory)))            default-directory)))
3085    
3086  (eval-and-compile  (defun gnus-display-time-event-handler ()
3087  (defalias 'gnus-display-time-event-handler    (if (and (fboundp 'display-time-event-handler)
3088    (if (gnus-boundp 'display-time-timer)             (gnus-boundp 'display-time-timer))
3089        'display-time-event-handler        (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))))  
3090    
3091  ;;;###autoload  ;;;###autoload
3092  (defun gnus-fixup-nnimap-unread-after-getting-new-news ()  (defun gnus-fixup-nnimap-unread-after-getting-new-news ()
# Line 3107  Would otherwise be an alias for `display Line 3105  Would otherwise be an alias for `display
3105    
3106  (provide 'gnus-start)  (provide 'gnus-start)
3107    
3108  ;;; arch-tag: f4584a22-b7b7-4853-abfc-a637329af5d2  ;; arch-tag: f4584a22-b7b7-4853-abfc-a637329af5d2
3109  ;;; gnus-start.el ends here  ;;; gnus-start.el ends here
3110    
3111    

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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