mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Remove unnecessary eval-and-compile of autoloads.
This commit is contained in:
Glenn Morris
parent
c5ce620e0f
commit
8abf1b2215
22 changed files with 200 additions and 206 deletions
|
|
@ -1,3 +1,27 @@
|
|||
2008-06-11 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* gnus-util.el (x-focus-frame):
|
||||
* gnus.el (image-size):
|
||||
* mm-decode.el (image-size): Declare.
|
||||
|
||||
* gnus-picon.el (declare-function): Add compat definition.
|
||||
(image-size): Declare.
|
||||
|
||||
* gnus-group.el (tool-bar-map):
|
||||
* gnus-sum.el (tool-bar-map): Define for compiler.
|
||||
|
||||
* gnus-ems.el (gnus-x-splash): Check tool-bar-mode is bound.
|
||||
|
||||
* nnfolder.el (gnus-intersection): Remove unnecessary autoload.
|
||||
|
||||
* gnus-agent.el, gnus-cache.el, gnus-ems.el, gnus-group.el:
|
||||
* gnus-logic.el, gnus-msg.el, gnus-util.el, gnus.el, mail-source.el:
|
||||
* message.el, mm-decode.el, mm-encode.el, mm-view.el, mml.el:
|
||||
* mml1991.el, mml2015.el, nnfolder.el, nnheader.el, nnimap.el:
|
||||
* nnmail.el, nnml.el, nnrss.el, nntp.el, nnvirtual.el:
|
||||
* sieve-manage.el, spam-report.el, spam.el:
|
||||
Remove unnecessary eval-and-compile of autoloads.
|
||||
|
||||
2008-06-08 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
* auth-source.el: Precise Tramp doc.
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; gnus-agent.el --- unplugged support for Gnus
|
||||
|
||||
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
|
||||
;; 2006, 2007, 2008 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
@ -37,10 +37,8 @@
|
|||
(require 'timer))
|
||||
(require 'cl))
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'gnus-server-update-server "gnus-srvr")
|
||||
(autoload 'gnus-agent-customize-category "gnus-cus")
|
||||
)
|
||||
(autoload 'gnus-server-update-server "gnus-srvr")
|
||||
(autoload 'gnus-agent-customize-category "gnus-cus")
|
||||
|
||||
(defcustom gnus-agent-directory (nnheader-concat gnus-directory "agent/")
|
||||
"Where the Gnus agent will store its files."
|
||||
|
|
|
|||
|
|
@ -96,9 +96,8 @@ it's not cached."
|
|||
|
||||
(declare-function nnvirtual-find-group-art "nnvirtual" (group article))
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'nnml-generate-nov-databases-directory "nnml")
|
||||
(autoload 'nnvirtual-find-group-art "nnvirtual"))
|
||||
(autoload 'nnml-generate-nov-databases-directory "nnml")
|
||||
(autoload 'nnvirtual-find-group-art "nnvirtual")
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -53,8 +53,7 @@
|
|||
("body" nil gnus-advanced-body)
|
||||
("all" nil gnus-advanced-body)))
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'parse-time-string "parse-time"))
|
||||
(autoload 'parse-time-string "parse-time")
|
||||
|
||||
(defun gnus-score-advanced (rule &optional trace)
|
||||
"Apply advanced scoring RULE to all the articles in the current group."
|
||||
|
|
|
|||
|
|
@ -333,8 +333,7 @@ Please describe the bug in annoying, painstaking detail.
|
|||
Thank you for your help in stamping out bugs.
|
||||
")
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'gnus-uu-post-news "gnus-uu" nil t))
|
||||
(autoload 'gnus-uu-post-news "gnus-uu" nil t)
|
||||
|
||||
|
||||
;;;
|
||||
|
|
|
|||
|
|
@ -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 @@ This only works when `display-time' is enabled."
|
|||
(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 @@ This only works when `display-time' is enabled."
|
|||
?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."
|
||||
|
|
|
|||
|
|
@ -1792,33 +1792,32 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
|
|||
:group 'message-headers
|
||||
:type 'regexp)
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'gnus-alive-p "gnus-util")
|
||||
(autoload 'gnus-delay-article "gnus-delay")
|
||||
(autoload 'gnus-extract-address-components "gnus-util")
|
||||
(autoload 'gnus-find-method-for-group "gnus")
|
||||
(autoload 'gnus-group-decoded-name "gnus-group")
|
||||
(autoload 'gnus-group-name-charset "gnus-group")
|
||||
(autoload 'gnus-group-name-decode "gnus-group")
|
||||
(autoload 'gnus-groups-from-server "gnus")
|
||||
(autoload 'gnus-make-local-hook "gnus-util")
|
||||
(autoload 'gnus-open-server "gnus-int")
|
||||
(autoload 'gnus-output-to-mail "gnus-util")
|
||||
(autoload 'gnus-output-to-rmail "gnus-util")
|
||||
(autoload 'gnus-request-post "gnus-int")
|
||||
(autoload 'gnus-select-frame-set-input-focus "gnus-util")
|
||||
(autoload 'gnus-server-string "gnus")
|
||||
(autoload 'idna-to-ascii "idna")
|
||||
(autoload 'message-setup-toolbar "messagexmas")
|
||||
(autoload 'mh-new-draft-name "mh-comp")
|
||||
(autoload 'mh-send-letter "mh-comp")
|
||||
(autoload 'nndraft-request-associate-buffer "nndraft")
|
||||
(autoload 'nndraft-request-expire-articles "nndraft")
|
||||
(autoload 'nnvirtual-find-group-art "nnvirtual")
|
||||
(autoload 'rmail-dont-reply-to "mail-utils")
|
||||
(autoload 'rmail-msg-is-pruned "rmail")
|
||||
(autoload 'rmail-msg-restore-non-pruned-header "rmail")
|
||||
(autoload 'rmail-output "rmailout"))
|
||||
(autoload 'gnus-alive-p "gnus-util")
|
||||
(autoload 'gnus-delay-article "gnus-delay")
|
||||
(autoload 'gnus-extract-address-components "gnus-util")
|
||||
(autoload 'gnus-find-method-for-group "gnus")
|
||||
(autoload 'gnus-group-decoded-name "gnus-group")
|
||||
(autoload 'gnus-group-name-charset "gnus-group")
|
||||
(autoload 'gnus-group-name-decode "gnus-group")
|
||||
(autoload 'gnus-groups-from-server "gnus")
|
||||
(autoload 'gnus-make-local-hook "gnus-util")
|
||||
(autoload 'gnus-open-server "gnus-int")
|
||||
(autoload 'gnus-output-to-mail "gnus-util")
|
||||
(autoload 'gnus-output-to-rmail "gnus-util")
|
||||
(autoload 'gnus-request-post "gnus-int")
|
||||
(autoload 'gnus-select-frame-set-input-focus "gnus-util")
|
||||
(autoload 'gnus-server-string "gnus")
|
||||
(autoload 'idna-to-ascii "idna")
|
||||
(autoload 'message-setup-toolbar "messagexmas")
|
||||
(autoload 'mh-new-draft-name "mh-comp")
|
||||
(autoload 'mh-send-letter "mh-comp")
|
||||
(autoload 'nndraft-request-associate-buffer "nndraft")
|
||||
(autoload 'nndraft-request-expire-articles "nndraft")
|
||||
(autoload 'nnvirtual-find-group-art "nnvirtual")
|
||||
(autoload 'rmail-dont-reply-to "mail-utils")
|
||||
(autoload 'rmail-msg-is-pruned "rmail")
|
||||
(autoload 'rmail-msg-restore-non-pruned-header "rmail")
|
||||
(autoload 'rmail-output "rmailout")
|
||||
|
||||
|
||||
|
||||
|
|
@ -7107,9 +7106,8 @@ Optional DIGEST will use digest to forward."
|
|||
(message-forward-make-body-digest-mime forward-buffer)
|
||||
(message-forward-make-body-digest-plain forward-buffer)))
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'mm-uu-dissect-text-parts "mm-uu")
|
||||
(autoload 'mm-uu-dissect "mm-uu"))
|
||||
(autoload 'mm-uu-dissect-text-parts "mm-uu")
|
||||
(autoload 'mm-uu-dissect "mm-uu")
|
||||
|
||||
(defun message-signed-or-encrypted-p (&optional dont-emulate-mime handles)
|
||||
"Say whether the current buffer contains signed or encrypted message.
|
||||
|
|
|
|||
|
|
@ -27,9 +27,8 @@
|
|||
(eval-when-compile (require 'cl))
|
||||
(require 'mail-parse)
|
||||
(require 'mailcap)
|
||||
(eval-and-compile
|
||||
(autoload 'mm-body-7-or-8 "mm-bodies")
|
||||
(autoload 'mm-long-lines-p "mm-bodies"))
|
||||
(autoload 'mm-body-7-or-8 "mm-bodies")
|
||||
(autoload 'mm-long-lines-p "mm-bodies")
|
||||
|
||||
(defcustom mm-content-transfer-encoding-defaults
|
||||
'(("text/x-patch" 8bit)
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; mm-view.el --- functions for viewing MIME objects
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
|
||||
;; 2007, 2008 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
@ -31,12 +31,11 @@
|
|||
(require 'mm-decode)
|
||||
(require 'smime)
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'gnus-article-prepare-display "gnus-art")
|
||||
(autoload 'vcard-parse-string "vcard")
|
||||
(autoload 'vcard-format-string "vcard")
|
||||
(autoload 'fill-flowed "flow-fill")
|
||||
(autoload 'html2text "html2text" nil t))
|
||||
(autoload 'gnus-article-prepare-display "gnus-art")
|
||||
(autoload 'vcard-parse-string "vcard")
|
||||
(autoload 'vcard-format-string "vcard")
|
||||
(autoload 'fill-flowed "flow-fill")
|
||||
(autoload 'html2text "html2text" nil t)
|
||||
|
||||
(defvar gnus-article-mime-handles)
|
||||
(defvar gnus-newsgroup-charset)
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; mml.el --- A package for parsing and validating MML documents
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
|
||||
;; 2007, 2008 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
@ -34,16 +34,15 @@
|
|||
(require 'mml-sec)
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'message-make-message-id "message")
|
||||
(autoload 'gnus-setup-posting-charset "gnus-msg")
|
||||
(autoload 'gnus-make-local-hook "gnus-util")
|
||||
(autoload 'message-fetch-field "message")
|
||||
(autoload 'message-mark-active-p "message")
|
||||
(autoload 'message-info "message")
|
||||
(autoload 'fill-flowed-encode "flow-fill")
|
||||
(autoload 'message-posting-charset "message")
|
||||
(autoload 'dnd-get-local-file-name "dnd"))
|
||||
(autoload 'message-make-message-id "message")
|
||||
(autoload 'gnus-setup-posting-charset "gnus-msg")
|
||||
(autoload 'gnus-make-local-hook "gnus-util")
|
||||
(autoload 'message-fetch-field "message")
|
||||
(autoload 'message-mark-active-p "message")
|
||||
(autoload 'message-info "message")
|
||||
(autoload 'fill-flowed-encode "flow-fill")
|
||||
(autoload 'message-posting-charset "message")
|
||||
(autoload 'dnd-get-local-file-name "dnd")
|
||||
|
||||
(autoload 'message-options-set "message")
|
||||
(autoload 'message-narrow-to-head "message")
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; mml1991.el --- Old PGP message format (RFC 1991) support for MML
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
|
||||
;; 2007, 2008 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Sascha Ldecke <sascha@meta-x.de>,
|
||||
;; Simon Josefsson <simon@josefsson.org> (Mailcrypt interface, Gnus glue)
|
||||
|
|
@ -79,8 +79,7 @@ Whether the passphrase is cached at all is controlled by
|
|||
|
||||
;;; mailcrypt wrapper
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'mc-sign-generic "mc-toplev"))
|
||||
(autoload 'mc-sign-generic "mc-toplev")
|
||||
|
||||
(defvar mml1991-decrypt-function 'mailcrypt-decrypt)
|
||||
(defvar mml1991-verify-function 'mailcrypt-verify)
|
||||
|
|
@ -168,8 +167,7 @@ Whether the passphrase is cached at all is controlled by
|
|||
|
||||
;;; gpg wrapper
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'gpg-sign-cleartext "gpg"))
|
||||
(autoload 'gpg-sign-cleartext "gpg")
|
||||
|
||||
(declare-function gpg-sign-encrypt "ext:gpg"
|
||||
(plaintext ciphertext result recipients &optional
|
||||
|
|
@ -332,19 +330,18 @@ Whether the passphrase is cached at all is controlled by
|
|||
(defvar epg-user-id-alist)
|
||||
(defvar password-cache-expiry)
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'epg-make-context "epg")
|
||||
(autoload 'epg-passphrase-callback-function "epg")
|
||||
(autoload 'epa-select-keys "epa")
|
||||
(autoload 'epg-list-keys "epg")
|
||||
(autoload 'epg-context-set-armor "epg")
|
||||
(autoload 'epg-context-set-textmode "epg")
|
||||
(autoload 'epg-context-set-signers "epg")
|
||||
(autoload 'epg-context-set-passphrase-callback "epg")
|
||||
(autoload 'epg-sign-string "epg")
|
||||
(autoload 'epg-encrypt-string "epg")
|
||||
(autoload 'epg-configuration "epg-config")
|
||||
(autoload 'epg-expand-group "epg-config"))
|
||||
(autoload 'epg-make-context "epg")
|
||||
(autoload 'epg-passphrase-callback-function "epg")
|
||||
(autoload 'epa-select-keys "epa")
|
||||
(autoload 'epg-list-keys "epg")
|
||||
(autoload 'epg-context-set-armor "epg")
|
||||
(autoload 'epg-context-set-textmode "epg")
|
||||
(autoload 'epg-context-set-signers "epg")
|
||||
(autoload 'epg-context-set-passphrase-callback "epg")
|
||||
(autoload 'epg-sign-string "epg")
|
||||
(autoload 'epg-encrypt-string "epg")
|
||||
(autoload 'epg-configuration "epg-config")
|
||||
(autoload 'epg-expand-group "epg-config")
|
||||
|
||||
(defvar mml1991-epg-secret-key-id-list nil)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; mml2015.el --- MIME Security with Pretty Good Privacy (PGP)
|
||||
|
||||
;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
|
||||
;; 2008 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
|
||||
;; Keywords: PGP MIME MML
|
||||
|
|
@ -182,13 +182,12 @@ Whether the passphrase is cached at all is controlled by
|
|||
|
||||
;;; mailcrypt wrapper
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'mailcrypt-decrypt "mailcrypt")
|
||||
(autoload 'mailcrypt-verify "mailcrypt")
|
||||
(autoload 'mc-pgp-always-sign "mailcrypt")
|
||||
(autoload 'mc-encrypt-generic "mc-toplev")
|
||||
(autoload 'mc-cleanup-recipient-headers "mc-toplev")
|
||||
(autoload 'mc-sign-generic "mc-toplev"))
|
||||
(autoload 'mailcrypt-decrypt "mailcrypt")
|
||||
(autoload 'mailcrypt-verify "mailcrypt")
|
||||
(autoload 'mc-pgp-always-sign "mailcrypt")
|
||||
(autoload 'mc-encrypt-generic "mc-toplev")
|
||||
(autoload 'mc-cleanup-recipient-headers "mc-toplev")
|
||||
(autoload 'mc-sign-generic "mc-toplev")
|
||||
|
||||
(defvar mc-default-scheme)
|
||||
(defvar mc-schemes)
|
||||
|
|
@ -453,14 +452,13 @@ Whether the passphrase is cached at all is controlled by
|
|||
|
||||
;;; gpg wrapper
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'gpg-decrypt "gpg")
|
||||
(autoload 'gpg-verify "gpg")
|
||||
(autoload 'gpg-verify-cleartext "gpg")
|
||||
(autoload 'gpg-sign-detached "gpg")
|
||||
(autoload 'gpg-sign-encrypt "gpg")
|
||||
(autoload 'gpg-encrypt "gpg")
|
||||
(autoload 'gpg-passphrase-read "gpg"))
|
||||
(autoload 'gpg-decrypt "gpg")
|
||||
(autoload 'gpg-verify "gpg")
|
||||
(autoload 'gpg-verify-cleartext "gpg")
|
||||
(autoload 'gpg-sign-detached "gpg")
|
||||
(autoload 'gpg-sign-encrypt "gpg")
|
||||
(autoload 'gpg-encrypt "gpg")
|
||||
(autoload 'gpg-passphrase-read "gpg")
|
||||
|
||||
(defun mml2015-gpg-passphrase ()
|
||||
(or (message-options-get 'gpg-passphrase)
|
||||
|
|
@ -731,12 +729,11 @@ Whether the passphrase is cached at all is controlled by
|
|||
(defvar pgg-errors-buffer)
|
||||
(defvar pgg-output-buffer)
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'pgg-decrypt-region "pgg")
|
||||
(autoload 'pgg-verify-region "pgg")
|
||||
(autoload 'pgg-sign-region "pgg")
|
||||
(autoload 'pgg-encrypt-region "pgg")
|
||||
(autoload 'pgg-parse-armor "pgg-parse"))
|
||||
(autoload 'pgg-decrypt-region "pgg")
|
||||
(autoload 'pgg-verify-region "pgg")
|
||||
(autoload 'pgg-sign-region "pgg")
|
||||
(autoload 'pgg-encrypt-region "pgg")
|
||||
(autoload 'pgg-parse-armor "pgg-parse")
|
||||
|
||||
(defun mml2015-pgg-decrypt (handle ctl)
|
||||
(catch 'error
|
||||
|
|
@ -968,27 +965,26 @@ Whether the passphrase is cached at all is controlled by
|
|||
(defvar epg-digest-algorithm-alist)
|
||||
(defvar inhibit-redisplay)
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'epg-make-context "epg")
|
||||
(autoload 'epg-context-set-armor "epg")
|
||||
(autoload 'epg-context-set-textmode "epg")
|
||||
(autoload 'epg-context-set-signers "epg")
|
||||
(autoload 'epg-context-result-for "epg")
|
||||
(autoload 'epg-new-signature-digest-algorithm "epg")
|
||||
(autoload 'epg-verify-result-to-string "epg")
|
||||
(autoload 'epg-list-keys "epg")
|
||||
(autoload 'epg-decrypt-string "epg")
|
||||
(autoload 'epg-verify-string "epg")
|
||||
(autoload 'epg-sign-string "epg")
|
||||
(autoload 'epg-encrypt-string "epg")
|
||||
(autoload 'epg-passphrase-callback-function "epg")
|
||||
(autoload 'epg-context-set-passphrase-callback "epg")
|
||||
(autoload 'epg-key-sub-key-list "epg")
|
||||
(autoload 'epg-sub-key-capability "epg")
|
||||
(autoload 'epg-sub-key-validity "epg")
|
||||
(autoload 'epg-configuration "epg-config")
|
||||
(autoload 'epg-expand-group "epg-config")
|
||||
(autoload 'epa-select-keys "epa"))
|
||||
(autoload 'epg-make-context "epg")
|
||||
(autoload 'epg-context-set-armor "epg")
|
||||
(autoload 'epg-context-set-textmode "epg")
|
||||
(autoload 'epg-context-set-signers "epg")
|
||||
(autoload 'epg-context-result-for "epg")
|
||||
(autoload 'epg-new-signature-digest-algorithm "epg")
|
||||
(autoload 'epg-verify-result-to-string "epg")
|
||||
(autoload 'epg-list-keys "epg")
|
||||
(autoload 'epg-decrypt-string "epg")
|
||||
(autoload 'epg-verify-string "epg")
|
||||
(autoload 'epg-sign-string "epg")
|
||||
(autoload 'epg-encrypt-string "epg")
|
||||
(autoload 'epg-passphrase-callback-function "epg")
|
||||
(autoload 'epg-context-set-passphrase-callback "epg")
|
||||
(autoload 'epg-key-sub-key-list "epg")
|
||||
(autoload 'epg-sub-key-capability "epg")
|
||||
(autoload 'epg-sub-key-validity "epg")
|
||||
(autoload 'epg-configuration "epg-config")
|
||||
(autoload 'epg-expand-group "epg-config")
|
||||
(autoload 'epa-select-keys "epa")
|
||||
|
||||
(defvar password-cache-expiry)
|
||||
|
||||
|
|
|
|||
|
|
@ -41,11 +41,11 @@
|
|||
(require 'mail-utils)
|
||||
(require 'mm-util)
|
||||
(require 'gnus-util)
|
||||
(eval-and-compile
|
||||
(autoload 'gnus-sorted-intersection "gnus-range")
|
||||
(autoload 'gnus-intersection "gnus-range")
|
||||
(autoload 'gnus-sorted-complement "gnus-range")
|
||||
(autoload 'gnus-sorted-difference "gnus-range"))
|
||||
;; FIXME none of these are used explicitly in this file.
|
||||
(autoload 'gnus-sorted-intersection "gnus-range")
|
||||
(autoload 'gnus-intersection "gnus-range")
|
||||
(autoload 'gnus-sorted-complement "gnus-range")
|
||||
(autoload 'gnus-sorted-difference "gnus-range")
|
||||
|
||||
(defcustom gnus-verbose-backends 7
|
||||
"Integer that says how verbose the Gnus backends should be.
|
||||
|
|
@ -112,11 +112,10 @@ on your system, you could say something like:
|
|||
(string-to-char (substring (file-name-as-directory ".") -1))
|
||||
"*A character used to a directory separator.")
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'nnmail-message-id "nnmail")
|
||||
(autoload 'mail-position-on-field "sendmail")
|
||||
(autoload 'message-remove-header "message")
|
||||
(autoload 'gnus-buffer-live-p "gnus-util"))
|
||||
(autoload 'nnmail-message-id "nnmail")
|
||||
(autoload 'mail-position-on-field "sendmail")
|
||||
(autoload 'message-remove-header "message")
|
||||
(autoload 'gnus-buffer-live-p "gnus-util")
|
||||
|
||||
;;; Header access macros.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; nnimap.el --- imap backend for Gnus
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
|
||||
;; 2007, 2008 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Simon Josefsson <jas@pdc.kth.se>
|
||||
;; Jim Radford <radford@robby.caltech.edu>
|
||||
|
|
@ -71,8 +71,7 @@
|
|||
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'auth-source-user-or-password "auth-source"))
|
||||
(autoload 'auth-source-user-or-password "auth-source")
|
||||
|
||||
(nnoo-declare nnimap)
|
||||
|
||||
|
|
@ -799,7 +798,7 @@ If EXAMINE is non-nil the group is selected read-only."
|
|||
(port (if nnimap-server-port
|
||||
(int-to-string nnimap-server-port)
|
||||
"imap"))
|
||||
(user (or
|
||||
(user (or
|
||||
(auth-source-user-or-password "login" server port) ; this is preferred to netrc-*
|
||||
(netrc-machine-user-or-password
|
||||
"login"
|
||||
|
|
@ -809,7 +808,7 @@ If EXAMINE is non-nil the group is selected read-only."
|
|||
nnimap-address))
|
||||
(list port)
|
||||
(list "imap" "imaps" "143" "993"))))
|
||||
(passwd (or
|
||||
(passwd (or
|
||||
(auth-source-user-or-password "password" server port) ; this is preferred to netrc-*
|
||||
(netrc-machine-user-or-password
|
||||
"password"
|
||||
|
|
|
|||
|
|
@ -39,9 +39,8 @@
|
|||
(require 'mm-util)
|
||||
(require 'gnus-int)
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'gnus-add-buffer "gnus")
|
||||
(autoload 'gnus-kill-buffer "gnus"))
|
||||
(autoload 'gnus-add-buffer "gnus")
|
||||
(autoload 'gnus-kill-buffer "gnus")
|
||||
|
||||
(defgroup nnmail nil
|
||||
"Reading mail with Gnus."
|
||||
|
|
|
|||
|
|
@ -38,9 +38,9 @@
|
|||
(require 'nnoo)
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'gnus-article-unpropagatable-p "gnus-sum")
|
||||
(autoload 'gnus-backlog-remove-article "gnus-bcklg"))
|
||||
;; FIXME first is unused in this file.
|
||||
(autoload 'gnus-article-unpropagatable-p "gnus-sum")
|
||||
(autoload 'gnus-backlog-remove-article "gnus-bcklg")
|
||||
|
||||
(nnoo-declare nnml)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; nnrss.el --- interfacing with RSS
|
||||
|
||||
;; Copyright (C) 2001, 2002, 2003, 2004, 2005,
|
||||
;; 2006, 2007, 2008 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007,
|
||||
;; 2008 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
|
||||
;; Keywords: RSS
|
||||
|
|
@ -491,7 +491,7 @@ nnrss: %s: Not valid XML %s and w3-parse doesn't work %s"
|
|||
(unless (assoc (car elem) nnrss-group-alist)
|
||||
(insert (prin1-to-string (car elem)) " 0 1 y\n")))))
|
||||
|
||||
(eval-and-compile (autoload 'timezone-parse-date "timezone"))
|
||||
(autoload 'timezone-parse-date "timezone")
|
||||
|
||||
(defun nnrss-normalize-date (date)
|
||||
"Return a date string of DATE in the RFC822 style.
|
||||
|
|
|
|||
|
|
@ -36,8 +36,7 @@
|
|||
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'auth-source-user-or-password "auth-source"))
|
||||
(autoload 'auth-source-user-or-password "auth-source")
|
||||
|
||||
(defgroup nntp nil
|
||||
"NNTP access for Gnus."
|
||||
|
|
@ -1180,10 +1179,10 @@ If SEND-IF-FORCE, only send authinfo to the server if the
|
|||
(let* ((list (netrc-parse nntp-authinfo-file))
|
||||
(alist (netrc-machine list nntp-address "nntp"))
|
||||
(force (or (netrc-get alist "force") nntp-authinfo-force))
|
||||
(user (or
|
||||
(user (or
|
||||
;; this is preferred to netrc-*
|
||||
(auth-source-user-or-password "login" nntp-address "nntp")
|
||||
(netrc-get alist "login")
|
||||
(netrc-get alist "login")
|
||||
nntp-authinfo-user))
|
||||
(passwd (or
|
||||
;; this is preferred to netrc-*
|
||||
|
|
@ -1302,10 +1301,9 @@ password contained in '~/.nntp-authinfo'."
|
|||
(defun nntp-open-network-stream (buffer)
|
||||
(open-network-stream "nntpd" buffer nntp-address nntp-port-number))
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'format-spec "format-spec")
|
||||
(autoload 'format-spec-make "format-spec")
|
||||
(autoload 'open-tls-stream "tls"))
|
||||
(autoload 'format-spec "format-spec")
|
||||
(autoload 'format-spec-make "format-spec")
|
||||
(autoload 'open-tls-stream "tls")
|
||||
|
||||
(defun nntp-open-ssl-stream (buffer)
|
||||
(let* ((process-connection-type nil)
|
||||
|
|
@ -2120,8 +2118,7 @@ Please refer to the following variables to customize the connection:
|
|||
(make-directory (directory-file-name dir) t)
|
||||
(nnheader-message 5 "Creating nntp marks directory %s" dir))))
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'time-less-p "time-date"))
|
||||
(autoload 'time-less-p "time-date")
|
||||
|
||||
(defun nntp-marks-changed-p (group server)
|
||||
(let ((file (nntp-group-pathname server group nntp-marks-file-name))
|
||||
|
|
|
|||
|
|
@ -81,8 +81,7 @@ component group will show up when you enter the virtual group.")
|
|||
|
||||
(defvoo nnvirtual-status-string "")
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'gnus-cache-articles-in-group "gnus-cache"))
|
||||
(autoload 'gnus-cache-articles-in-group "gnus-cache")
|
||||
|
||||
|
||||
|
||||
|
|
@ -715,7 +714,7 @@ based on the marks on the component groups."
|
|||
tot (+ tot size)
|
||||
M (max M size))))
|
||||
nnvirtual-component-groups)
|
||||
|
||||
|
||||
;; Number of articles in the virtual group.
|
||||
(setq nnvirtual-mapping-len tot)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; sieve-manage.el --- Implementation of the managesive protocol in elisp
|
||||
|
||||
;; Copyright (C) 2001, 2002, 2003, 2004, 2005,
|
||||
;; 2006, 2007, 2008 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007,
|
||||
;; 2008 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Simon Josefsson <simon@josefsson.org>
|
||||
|
||||
|
|
@ -85,9 +85,8 @@
|
|||
(eval-when-compile
|
||||
(require 'sasl)
|
||||
(require 'starttls))
|
||||
(eval-and-compile
|
||||
(autoload 'sasl-find-mechanism "sasl")
|
||||
(autoload 'starttls-open-stream "starttls"))
|
||||
(autoload 'sasl-find-mechanism "sasl")
|
||||
(autoload 'starttls-open-stream "starttls")
|
||||
|
||||
;; User customizable variables:
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; spam-report.el --- Reporting spam
|
||||
|
||||
;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008
|
||||
;; Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Ted Zlatanov <tzz@lifelogs.com>
|
||||
;; Keywords: network, spam, mail, gmane, report
|
||||
|
|
@ -30,8 +31,7 @@
|
|||
(require 'gnus)
|
||||
(require 'gnus-sum)
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'mm-url-insert "mm-url"))
|
||||
(autoload 'mm-url-insert "mm-url")
|
||||
|
||||
(defgroup spam-report nil
|
||||
"Spam reporting configuration."
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; spam.el --- Identifying spam
|
||||
|
||||
;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008
|
||||
;; Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
;; Maintainer: Ted Zlatanov <tzz@lifelogs.com>
|
||||
|
|
@ -57,8 +58,7 @@
|
|||
(eval-when-compile (require 'nnimap))
|
||||
|
||||
;; autoload query-dig
|
||||
(eval-and-compile
|
||||
(autoload 'query-dig "dig"))
|
||||
(autoload 'query-dig "dig")
|
||||
|
||||
;; autoload spam-report
|
||||
(eval-and-compile
|
||||
|
|
@ -68,15 +68,13 @@
|
|||
(autoload 'spam-report-resend "spam-report"))
|
||||
|
||||
;; autoload gnus-registry
|
||||
(eval-and-compile
|
||||
(autoload 'gnus-registry-group-count "gnus-registry")
|
||||
(autoload 'gnus-registry-add-group "gnus-registry")
|
||||
(autoload 'gnus-registry-store-extra-entry "gnus-registry")
|
||||
(autoload 'gnus-registry-fetch-extra "gnus-registry"))
|
||||
(autoload 'gnus-registry-group-count "gnus-registry")
|
||||
(autoload 'gnus-registry-add-group "gnus-registry")
|
||||
(autoload 'gnus-registry-store-extra-entry "gnus-registry")
|
||||
(autoload 'gnus-registry-fetch-extra "gnus-registry")
|
||||
|
||||
;; autoload query-dns
|
||||
(eval-and-compile
|
||||
(autoload 'query-dns "dns"))
|
||||
(autoload 'query-dns "dns")
|
||||
|
||||
;;}}}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue