Mercurial > emacs
comparison lisp/gnus/nnimap.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 | 51e9d65c90fc |
| children | be43dd7afc91 |
comparison
equal
deleted
inserted
replaced
| 95819:1d746ab5327f | 95820:645fb33380d6 |
|---|---|
| 1 ;;; nnimap.el --- imap backend for Gnus | 1 ;;; nnimap.el --- imap backend for Gnus |
| 2 | 2 |
| 3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, | 3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, |
| 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. | 4 ;; 2007, 2008 Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Author: Simon Josefsson <jas@pdc.kth.se> | 6 ;; Author: Simon Josefsson <jas@pdc.kth.se> |
| 7 ;; Jim Radford <radford@robby.caltech.edu> | 7 ;; Jim Radford <radford@robby.caltech.edu> |
| 8 ;; Keywords: mail | 8 ;; Keywords: mail |
| 9 | 9 |
| 69 (require 'gnus-start) | 69 (require 'gnus-start) |
| 70 (require 'gnus-int) | 70 (require 'gnus-int) |
| 71 | 71 |
| 72 (eval-when-compile (require 'cl)) | 72 (eval-when-compile (require 'cl)) |
| 73 | 73 |
| 74 (eval-and-compile | 74 (autoload 'auth-source-user-or-password "auth-source") |
| 75 (autoload 'auth-source-user-or-password "auth-source")) | |
| 76 | 75 |
| 77 (nnoo-declare nnimap) | 76 (nnoo-declare nnimap) |
| 78 | 77 |
| 79 (defconst nnimap-version "nnimap 1.0") | 78 (defconst nnimap-version "nnimap 1.0") |
| 80 | 79 |
| 797 nnimap-authinfo-file) | 796 nnimap-authinfo-file) |
| 798 (netrc-parse nnimap-authinfo-file))) | 797 (netrc-parse nnimap-authinfo-file))) |
| 799 (port (if nnimap-server-port | 798 (port (if nnimap-server-port |
| 800 (int-to-string nnimap-server-port) | 799 (int-to-string nnimap-server-port) |
| 801 "imap")) | 800 "imap")) |
| 802 (user (or | 801 (user (or |
| 803 (auth-source-user-or-password "login" server port) ; this is preferred to netrc-* | 802 (auth-source-user-or-password "login" server port) ; this is preferred to netrc-* |
| 804 (netrc-machine-user-or-password | 803 (netrc-machine-user-or-password |
| 805 "login" | 804 "login" |
| 806 list | 805 list |
| 807 (list server | 806 (list server |
| 808 (or nnimap-server-address | 807 (or nnimap-server-address |
| 809 nnimap-address)) | 808 nnimap-address)) |
| 810 (list port) | 809 (list port) |
| 811 (list "imap" "imaps" "143" "993")))) | 810 (list "imap" "imaps" "143" "993")))) |
| 812 (passwd (or | 811 (passwd (or |
| 813 (auth-source-user-or-password "password" server port) ; this is preferred to netrc-* | 812 (auth-source-user-or-password "password" server port) ; this is preferred to netrc-* |
| 814 (netrc-machine-user-or-password | 813 (netrc-machine-user-or-password |
| 815 "password" | 814 "password" |
| 816 list | 815 list |
| 817 (list server | 816 (list server |