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> |
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 () |
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 |
|
|