Mercurial > emacs

comparison lisp/gnus/mail-source.el @ 91204:53108e6cea98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-294
author Miles Bader <miles@gnu.org>
date Thu, 06 Dec 2007 09:51:45 +0000
parents 880960b70474 781256628613
children 2fcaae6177a5
comparison
equal deleted inserted replaced
91203:db40129142b2 91204:53108e6cea98
25 25
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;;; Code: 28 ;;; Code:
29 29
30 (require 'format-spec)
30 (eval-when-compile 31 (eval-when-compile
31 (require 'cl) 32 (require 'cl)
32 (require 'imap) 33 (require 'imap))
33 (eval-when-compile (defvar display-time-mail-function)))
34 (eval-and-compile 34 (eval-and-compile
35 (autoload 'pop3-movemail "pop3") 35 (autoload 'pop3-movemail "pop3")
36 (autoload 'pop3-get-message-count "pop3") 36 (autoload 'pop3-get-message-count "pop3")
37 (autoload 'nnheader-cancel-timer "nnheader")) 37 (autoload 'nnheader-cancel-timer "nnheader"))
38 (require 'format-spec)
39 (require 'mm-util) 38 (require 'mm-util)
40 (require 'message) ;; for `message-directory' 39 (require 'message) ;; for `message-directory'
40
41 (defvar display-time-mail-function)
42
41 43
42 (defgroup mail-source nil 44 (defgroup mail-source nil
43 "The mail-fetching library." 45 "The mail-fetching library."
44 :version "21.1" 46 :version "21.1"
45 :group 'gnus) 47 :group 'gnus)
54 (eval-when-compile 56 (eval-when-compile
55 (mapcar (lambda (a) 57 (mapcar (lambda (a)
56 (list 'const (car a))) 58 (list 'const (car a)))
57 imap-stream-alist))) 59 imap-stream-alist)))
58 60
59 (defcustom mail-sources nil 61 (defcustom mail-sources '((file))
60 "*Where the mail backends will look for incoming mail. 62 "Where the mail backends will look for incoming mail.
61 This variable is a list of mail source specifiers. 63 This variable is a list of mail source specifiers.
62 See Info node `(gnus)Mail Source Specifiers'." 64 See Info node `(gnus)Mail Source Specifiers'."
63 :group 'mail-source 65 :group 'mail-source
66 :version "23.0" ;; No Gnus
64 :link '(custom-manual "(gnus)Mail Source Specifiers") 67 :link '(custom-manual "(gnus)Mail Source Specifiers")
65 :type `(choice 68 :type `(choice
66 (const nil) 69 (const :tag "None" nil)
67 (repeat 70 (repeat :tag "List"
68 (choice :format "%[Value Menu%] %v" 71 (choice :format "%[Value Menu%] %v"
69 :value (file) 72 :value (file)
70 (cons :tag "Spool file" 73 (cons :tag "Spool file"
71 (const :format "" file) 74 (const :format "" file)
72 (checklist :tag "Options" :greedy t 75 (checklist :tag "Options" :greedy t