Mercurial > emacs
diff lisp/gnus/mail-source.el @ 95820:645fb33380d6
Remove unnecessary eval-and-compile of autoloads.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 11 Jun 2008 03:13:10 +0000 |
parents | f42ef85caf91 |
children | a9dc0e7c3f2b |
line wrap: on
line diff
--- a/lisp/gnus/mail-source.el Wed Jun 11 03:12:35 2008 +0000 +++ b/lisp/gnus/mail-source.el Wed Jun 11 03:13:10 2008 +0000 @@ -33,11 +33,10 @@ (eval-when-compile (require 'cl) (require 'imap)) -(eval-and-compile - (autoload 'auth-source-user-or-password "auth-source") - (autoload 'pop3-movemail "pop3") - (autoload 'pop3-get-message-count "pop3") - (autoload 'nnheader-cancel-timer "nnheader")) +(autoload 'auth-source-user-or-password "auth-source") +(autoload 'pop3-movemail "pop3") +(autoload 'pop3-get-message-count "pop3") +(autoload 'nnheader-cancel-timer "nnheader") (require 'mm-util) (require 'message) ;; for `message-directory' @@ -1023,20 +1022,19 @@ (mail-source-delete-crash-box))))) found))) -(eval-and-compile - (autoload 'imap-open "imap") - (autoload 'imap-authenticate "imap") - (autoload 'imap-mailbox-select "imap") - (autoload 'imap-mailbox-unselect "imap") - (autoload 'imap-mailbox-close "imap") - (autoload 'imap-search "imap") - (autoload 'imap-fetch "imap") - (autoload 'imap-close "imap") - (autoload 'imap-error-text "imap") - (autoload 'imap-message-flags-add "imap") - (autoload 'imap-list-to-message-set "imap") - (autoload 'imap-range-to-message-set "imap") - (autoload 'nnheader-ms-strip-cr "nnheader")) +(autoload 'imap-open "imap") +(autoload 'imap-authenticate "imap") +(autoload 'imap-mailbox-select "imap") +(autoload 'imap-mailbox-unselect "imap") +(autoload 'imap-mailbox-close "imap") +(autoload 'imap-search "imap") +(autoload 'imap-fetch "imap") +(autoload 'imap-close "imap") +(autoload 'imap-error-text "imap") +(autoload 'imap-message-flags-add "imap") +(autoload 'imap-list-to-message-set "imap") +(autoload 'imap-range-to-message-set "imap") +(autoload 'nnheader-ms-strip-cr "nnheader") (autoload 'gnus-compress-sequence "gnus-range") @@ -1116,8 +1114,7 @@ ?s server ?P port ?u user)) found))) -(eval-and-compile - (autoload 'webmail-fetch "webmail")) +(autoload 'webmail-fetch "webmail") (defun mail-source-fetch-webmail (source callback) "Fetch for webmail source."