Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8abf1b22
Commit
8abf1b22
authored
Jun 11, 2008
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove unnecessary eval-and-compile of autoloads.
parent
c5ce620e
Changes
22
Hide whitespace changes
Inline
Side-by-side
Showing
22 changed files
with
200 additions
and
206 deletions
+200
-206
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+24
-0
lisp/gnus/gnus-agent.el
lisp/gnus/gnus-agent.el
+4
-6
lisp/gnus/gnus-cache.el
lisp/gnus/gnus-cache.el
+2
-3
lisp/gnus/gnus-logic.el
lisp/gnus/gnus-logic.el
+1
-2
lisp/gnus/gnus-msg.el
lisp/gnus/gnus-msg.el
+1
-2
lisp/gnus/mail-source.el
lisp/gnus/mail-source.el
+18
-21
lisp/gnus/message.el
lisp/gnus/message.el
+28
-30
lisp/gnus/mm-encode.el
lisp/gnus/mm-encode.el
+2
-3
lisp/gnus/mm-view.el
lisp/gnus/mm-view.el
+7
-8
lisp/gnus/mml.el
lisp/gnus/mml.el
+11
-12
lisp/gnus/mml1991.el
lisp/gnus/mml1991.el
+16
-19
lisp/gnus/mml2015.el
lisp/gnus/mml2015.el
+40
-44
lisp/gnus/nnheader.el
lisp/gnus/nnheader.el
+9
-10
lisp/gnus/nnimap.el
lisp/gnus/nnimap.el
+5
-6
lisp/gnus/nnmail.el
lisp/gnus/nnmail.el
+2
-3
lisp/gnus/nnml.el
lisp/gnus/nnml.el
+3
-3
lisp/gnus/nnrss.el
lisp/gnus/nnrss.el
+3
-3
lisp/gnus/nntp.el
lisp/gnus/nntp.el
+7
-10
lisp/gnus/nnvirtual.el
lisp/gnus/nnvirtual.el
+2
-3
lisp/gnus/sieve-manage.el
lisp/gnus/sieve-manage.el
+4
-5
lisp/gnus/spam-report.el
lisp/gnus/spam-report.el
+3
-3
lisp/gnus/spam.el
lisp/gnus/spam.el
+8
-10
No files found.
lisp/gnus/ChangeLog
View file @
8abf1b22
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.
...
...
lisp/gnus/gnus-agent.el
View file @
8abf1b22
;;; 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."
...
...
lisp/gnus/gnus-cache.el
View file @
8abf1b22
...
...
@@ -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"
)
...
...
lisp/gnus/gnus-logic.el
View file @
8abf1b22
...
...
@@ -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."
...
...
lisp/gnus/gnus-msg.el
View file @
8abf1b22
...
...
@@ -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)
;;;
...
...
lisp/gnus/mail-source.el
View file @
8abf1b22
...
...
@@ -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.
"
...
...
lisp/gnus/message.el
View file @
8abf1b22
...
...
@@ -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.
...
...
lisp/gnus/mm-encode.el
View file @
8abf1b22
...
...
@@ -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
)
...
...
lisp/gnus/mm-view.el
View file @
8abf1b22
;;; 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
)
...
...
lisp/gnus/mml.el
View file @
8abf1b22
;;; 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"
)
...
...
lisp/gnus/mml1991.el
View file @
8abf1b22
;;; 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
)
...
...
lisp/gnus/mml2015.el
View file @
8abf1b22
;;; 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
)
...
...
lisp/gnus/nnheader.el
View file @
8abf1b22
...
...
@@ -41,11 +41,11 @@
(
require
'mail-utils
)
(
require
'mm-util
)
(
require
'gnus-util
)
(
eval-and-comp
ile
(
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 f
ile
.
(
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.
...
...
lisp/gnus/nnimap.el
View file @
8abf1b22
;;; 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"
...
...
lisp/gnus/nnmail.el
View file @
8abf1b22
...
...
@@ -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."
...
...
lisp/gnus/nnml.el
View file @
8abf1b22
...
...
@@ -38,9 +38,9 @@
(
require
'nnoo
)
(
eval-when-compile
(
require
'cl
))
(
eval-and-comp
ile
(
autoload
'gnus-article-unpropagatable-p
"gnus-sum"
)
(
autoload
'gnus-backlog-remove-article
"gnus-bcklg"
)
)
;; FIXME first is unused in this f
ile
.
(
autoload
'gnus-article-unpropagatable-p
"gnus-sum"
)
(
autoload
'gnus-backlog-remove-article
"gnus-bcklg"
)
(
nnoo-declare
nnml
)
...
...
lisp/gnus/nnrss.el
View file @
8abf1b22
;;; nnrss.el --- interfacing with RSS
;; Copyright (C) 2001, 2002, 2003, 2004, 2005,
;; 200
6, 2007, 200
8 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.
...
...
lisp/gnus/nntp.el
View file @
8abf1b22
...
...
@@ -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
))))