Mercurial > emacs
comparison lisp/gnus/mail-source.el @ 110635:6c6f3972c99c
Fix comments; remove Emacs 21 stuff.
mail-source.el (mail-source-report-new-mail)
message.el (message-default-mail-headers)
mm-decode.el (mm-valid-image-format-p): Comment fix.
mml2015.el (mml2015-use): Don't bind recursive-load-depth-limit.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Tue, 28 Sep 2010 12:35:18 +0000 |
| parents | ef15e8533a1c |
| children | 3b9bd3888ee9 |
comparison
equal
deleted
inserted
replaced
| 110634:05430cec48ff | 110635:6c6f3972c99c |
|---|---|
| 991 (setq mail-source-report-new-mail-timer nil) | 991 (setq mail-source-report-new-mail-timer nil) |
| 992 (setq mail-source-report-new-mail-idle-timer nil) | 992 (setq mail-source-report-new-mail-idle-timer nil) |
| 993 (if on | 993 (if on |
| 994 (progn | 994 (progn |
| 995 (require 'time) | 995 (require 'time) |
| 996 ;; display-time-mail-function is an Emacs 21 feature. | 996 ;; display-time-mail-function is an Emacs feature. |
| 997 (setq display-time-mail-function #'mail-source-new-mail-p) | 997 (setq display-time-mail-function #'mail-source-new-mail-p) |
| 998 ;; Set up the main timer. | 998 ;; Set up the main timer. |
| 999 (setq mail-source-report-new-mail-timer | 999 (setq mail-source-report-new-mail-timer |
| 1000 (run-at-time | 1000 (run-at-time |
| 1001 (* 60 mail-source-report-new-mail-interval) | 1001 (* 60 mail-source-report-new-mail-interval) |