;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:51:01 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/gnus/mail-source.el ;;; in Emacs version 23.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\204 \303\302\304\"\210\305\306!\210\307\310\311\"\210\307\312\313\"\210\307\314\313\"\210\307\315\316\"\210\305\317!\210\305\320!\210\321\322\323\324\325\326\327\330&\210\331B\332\333!\210\334B\335\336!\207" [current-load-list fboundp declare-function defalias (macro . #[(&rest r) "\300\207" [nil] 1]) require format-spec autoload auth-source-user-or-password "auth-source" pop3-movemail "pop3" pop3-get-message-count nnheader-cancel-timer "nnheader" mm-util message custom-declare-group mail-source nil "The mail-fetching library." :version "21.1" :group gnus mail-source-imap-authenticators (lambda (#1=#:defconst-tmp-var) (defconst mail-source-imap-authenticators #1#)) ((const gssapi) (const kerberos4) (const sasl) (const cram-md5) (const login) (const anonymous) (const digest-md5)) mail-source-imap-streams (lambda (#2=#:defconst-tmp-var) (defconst mail-source-imap-streams #2#)) ((const gssapi) (const kerberos4) (const tls) (const ssl) (const network) (const shell) (const starttls))] 8) #@151 Where the mail backends will look for incoming mail. This variable is a list of mail source specifiers. See Info node `(gnus)Mail Source Specifiers'. (custom-declare-variable 'mail-sources ''((file)) '(#$ . 1573) :group 'mail-source :version "23.1" :link '(custom-manual "(gnus)Mail Source Specifiers") :type (byte-code "\302\303\304\305\306\302\307\310\311\312\313\314\315\316\317\320\305\321\322\323\305\324\325\326\327\330\331\332\333\334\326\335\302\305\336\311\337BBBBB\257\340\333\334\326\341\302\305\342\311\343 BBBBB\257\344BBBBBBBBBBBB\257\345BBBBBBBBBBBFE\207" [mail-source-imap-streams mail-source-imap-authenticators choice (const :tag "None" nil) repeat :tag "List" :format "%[Value Menu%] %v" :value (file) (cons :tag "Group parameter `mail-source'" (const :format #1="" group)) (cons :tag "Spool file" (const :format #1# file) (checklist :tag "Options" :greedy t (group :inline t (const :format #1# :value :path) file))) (cons :tag "Several files in a directory" (const :format #1# directory) (checklist :tag "Options" :greedy t (group :inline t (const :format #1# :value :path) (directory :tag "Path")) (group :inline t (const :format #1# :value :suffix) (string :tag "Suffix")) (group :inline t (const :format #1# :value :predicate) (function :tag "Predicate")) (group :inline t (const :format #1# :value :prescript) (choice :tag "Prescript" :value nil (string :format "%v") (function :format "%v"))) (group :inline t (const :format #1# :value :postscript) (choice :tag "Postscript" :value nil (string :format "%v") (function :format "%v"))) (group :inline t (const :format #1# :value :plugged) (boolean :tag "Plugged")))) (cons :tag "POP3 server" (const :format #1# pop) (checklist :tag "Options" :greedy t (group :inline t (const :format #1# :value :server) (string :tag "Server")) (group :inline t (const :format #1# :value :port) (choice :tag "Port" :value "pop3" (integer :format "%v") (string :format "%v"))) (group :inline t (const :format #1# :value :user) (string :tag "User")) (group :inline t (const :format #1# :value :password) (string :tag "Password")) (group :inline t (const :format #1# :value :program) (string :tag "Program")) (group :inline t (const :format #1# :value :prescript) (choice :tag "Prescript" :value nil (string :format "%v") (function :format "%v") (const :tag "None" nil))) (group :inline t (const :format #1# :value :postscript) (choice :tag "Postscript" :value nil (string :format "%v") (function :format "%v") (const :tag "None" nil))) (group :inline t (const :format #1# :value :function) (function :tag "Function")) (group :inline t (const :format #1# :value :authentication) (choice :tag "Authentication" :value apop (const password) (const apop))) (group :inline t (const :format #1# :value :plugged) (boolean :tag "Plugged")) (group :inline t (const :format #1# :value :stream) (choice :tag "Stream" :value nil (const :tag "Clear" nil) (const starttls) (const :tag "SSL/TLS" ssl))))) (cons :tag "Maildir (qmail, postfix...)" (const :format #1# maildir) (checklist :tag "Options" :greedy t (group :inline t (const :format #1# :value :path) (directory :tag "Path")) (group :inline t (const :format #1# :value :plugged) (boolean :tag "Plugged")))) cons "IMAP server" (const :format #1# imap) checklist "Options" :greedy t (group :inline t (const :format #1# :value :server) (string :tag "Server")) (group :inline t (const :format #1# :value :port) (choice :tag "Port" :value 143 integer string)) (group :inline t (const :format #1# :value :user) (string :tag "User")) (group :inline t (const :format #1# :value :password) (string :tag "Password")) group :inline (const :format #1# :value :stream) "Stream" network (group :inline t (const :format #1# :value :program) (string :tag "Program")) (const :format #1# :value :authenticator) "Authenticator" login ((group :inline t (const :format #1# :value :mailbox) (string :tag "Mailbox" :value "INBOX")) (group :inline t (const :format #1# :value :predicate) (string :tag "Predicate" :value "UNSEEN UNDELETED")) (group :inline t (const :format #1# :value :fetchflag) (string :tag "Fetchflag" :value "\\Deleted")) (group :inline t (const :format #1# :value :dontexpunge) (boolean :tag "Dontexpunge")) (group :inline t (const :format #1# :value :plugged) (boolean :tag "Plugged"))) ((cons :tag "Webmail server" (const :format #1# webmail) (checklist :tag "Options" :greedy t (group :inline t (const :format #1# :value :subtype) (choice :tag "Subtype" :value hotmail (const hotmail) (const yahoo) (const netaddress) (const netscape) (const my-deja))) (group :inline t (const :format #1# :value :user) (string :tag "User")) (group :inline t (const :format #1# :value :password) (string :tag "Password")) (group :inline t (const :format #1# :value :dontexpunge) (boolean :tag "Dontexpunge")) (group :inline t (const :format #1# :value :plugged) (boolean :tag "Plugged")))))] 40)) #@140 *Ignore errors when querying mail sources. If nil, the user will be prompted when an error occurs. If non-nil, the error will be ignored. (custom-declare-variable 'mail-source-ignore-errors 'nil '(#$ . -6461) :version "22.1" :group 'mail-source :type 'boolean) #@105 *Primary source for incoming mail. If non-nil, this maildrop will be checked periodically for new mail. (custom-declare-variable 'mail-source-primary-source 'nil '(#$ . -6730) :group 'mail-source :type 'sexp) #@57 *If non-nil, flash periodically when mail is available. (custom-declare-variable 'mail-source-flash 't '(#$ . -6945) :group 'mail-source :type 'boolean) #@53 File where mail will be stored while processing it. (custom-declare-variable 'mail-source-crash-box '"~/.emacs-mail-crash-box" '(#$ . 7104) :group 'mail-source :type 'file) #@69 Directory where incoming mail source files (if any) will be stored. (custom-declare-variable 'mail-source-directory 'message-directory '(#$ . 7283) :group 'mail-source :type 'directory) #@58 Set the mode bits of all new mail files to this integer. (custom-declare-variable 'mail-source-default-file-modes '384 '(#$ . 7475) :group 'mail-source :type 'integer) #@388 If non-nil, delete incoming files after handling. If t, delete immediately, if nil, never delete. If a positive number, delete files older than number of days. Removing of old files happens in `mail-source-callback', i.e. no old incoming files will be deleted unless you receive new mail. You may also set this variable to nil and call `mail-source-delete-old-incoming' interactively. (custom-declare-variable 'mail-source-delete-incoming '10 '(#$ . 7650) :group 'mail-source :version "22.2" :type '(choice (const :tag "immediately" t) (const :tag "never" nil) (integer :tag "days"))) #@154 If non-nil, ask for confirmation before deleting old incoming files. This variable only applies when `mail-source-delete-incoming' is a positive number. (custom-declare-variable 'mail-source-delete-old-incoming-confirm 'nil '(#$ . 8244) :version "22.2" :group 'mail-source :type 'boolean) #@48 Prefix for file name for storing incoming mail (custom-declare-variable 'mail-source-incoming-file-prefix '"Incoming" '(#$ . 8539) :group 'mail-source :type 'string) #@50 Interval in minutes between checks for new mail. (custom-declare-variable 'mail-source-report-new-mail-interval '5 '(#$ . 8711) :group 'mail-source :type 'number) #@62 Number of idle seconds to wait before checking for new mail. (custom-declare-variable 'mail-source-idle-time-delay '5 '(#$ . 8880) :group 'mail-source :type 'number) #@52 If non-nil, name of program for fetching new mail. (custom-declare-variable 'mail-source-movemail-program 'nil '(#$ . 9052) :version "22.1" :group 'mail-source :type '(choice (const nil) string)) #@71 A dynamically bound string that says what the current mail source is. (defvar mail-source-string "" (#$ . 9254)) #@45 Flag indicating when new mail is available. (defvar mail-source-new-mail-available nil (#$ . 9373)) #@81 Mapping from keywords to default values. Common keywords should be listed here. (defvar mail-source-common-keyword-map '((:plugged)) (#$ . 9479)) #@93 Mapping from keywords to default values. All keywords that can be used must be listed here. (defvar mail-source-keyword-map '((file (:prescript) (:prescript-delay) (:postscript) (:path (or (getenv "MAIL") (expand-file-name (user-login-name) rmail-spool-directory)))) (directory (:prescript) (:prescript-delay) (:postscript) (:path) (:suffix ".spool") (:predicate identity)) (pop (:prescript) (:prescript-delay) (:postscript) (:server (getenv "MAILHOST")) (:port 110) (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER"))) (:program) (:function) (:password) (:authentication password) (:stream nil)) (maildir (:path (or (getenv "MAILDIR") "~/Maildir/")) (:subdirs ("cur" "new")) (:function)) (imap (:server (getenv "MAILHOST")) (:port) (:stream) (:program) (:authentication) (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER"))) (:password) (:mailbox "INBOX") (:predicate "UNSEEN UNDELETED") (:fetchflag "\\Deleted") (:prescript) (:prescript-delay) (:postscript) (:dontexpunge)) (webmail (:subtype hotmail) (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER"))) (:password) (:dontexpunge) (:authentication password))) (#$ . 9631)) #@49 A mapping from source type to fetcher function. (defvar mail-source-fetcher-alist '((file mail-source-fetch-file) (directory mail-source-fetch-directory) (pop mail-source-fetch-pop) (maildir mail-source-fetch-maildir) (imap mail-source-fetch-imap) (webmail mail-source-fetch-webmail)) (#$ . 10801)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\304\207" [current-load-list mail-source-password-cache default-boundp set-default nil mail-source-plugged t] 3) #@42 Strip the leading colon off the KEYWORD. (defalias 'mail-source-strip-keyword #[(keyword) "\301\302!\303\304O!\207" [keyword intern symbol-name 1 nil] 4 (#$ . 11311)]) (defalias 'mail-source-bind-1 #[(type) " \236A\305\211\n\211A@\211\203\306 @!\305D\fB\202 \f+\207" [type mail-source-keyword-map defaults default bind nil mail-source-strip-keyword] 3]) #@672 Return a `let' form that binds all variables in source TYPE. TYPE-SOURCE is a list where the first element is the TYPE, and the second variable is the SOURCE. At run time, the mail source specifier SOURCE will be inspected, and the variables will be set according to it. Variables not specified will be given default values. The user and password will be loaded from the auth-source values if those are available. They override the original user and password in a second `let' form. After this is done, BODY will be executed in the scope of the second `let' form. The variables bound and their default values are described by the `mail-source-keyword-map' variable. (defalias 'mail-source-bind '(macro . #[(type-source &rest body) "\303\304@!\305\211A@)D\nBBB\207" [type-source x body let* mail-source-bind-1 mail-source-set-1] 5 (#$ . 11683)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put mail-source-bind lisp-indent-function 1 edebug-form-spec (sexp body)] 4) (defalias 'mail-source-set-1 #[(source) "\211A@\211\n\236A\306\211\306\211\306\211 \211A@\211\205\221\307\f@\211!\310=\203O\311\312\313\314!\203@\314J\202A\315 #@\211\203O\202\214\316=\203s\311\317\313\314!\203c\314J\202d\315 #A@\211\203s\202\214\320\"\211\203\203\321 !\202\214\321\f\211A@)!L\210\202.\207" [source type mail-source-keyword-map defaults default value nil mail-source-strip-keyword :user auth-source-user-or-password ("login" "password") boundp server "" :password ("login" "password") plist-get mail-source-value keyword auth-info user-auth pass-auth x] 6]) (defalias 'mail-source-bind-common-1 #[nil "\304\211 \211A@\211\203\305\n@!\304D B\202 +\207" [mail-source-common-keyword-map defaults default bind nil mail-source-strip-keyword] 3]) (defalias 'mail-source-set-common-1 #[(source) "\211A@\n \f\236A\306\211\n \306\f \211A@\211\n\205a\307\n@\211\f!\310\f\"\211 \203;\311 !\202\\\f \236\211 \203R\311 \211 A@)!\202\\\311\n\211 A@)!L\210\202.\207" [source type mail-source-common-keyword-map defaults mail-source-keyword-map defaults-1 nil mail-source-strip-keyword plist-get mail-source-value default value keyword x] 5]) #@78 Return a `let' form that binds all common variables. See `mail-source-bind'. (defalias 'mail-source-bind-common '(macro . #[(source &rest body) "\301\302 \303BBB\207" [body let mail-source-bind-common-1 (mail-source-set-common-1 source)] 4 (#$ . 13914)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put mail-source-bind-common lisp-indent-function 1 edebug-form-spec (sexp body)] 4) #@28 Return the value of VALUE. (defalias 'mail-source-value #[(value) ";\203\207<\203@9\203\301@!\203\302!\207\207" [value fboundp eval] 2 (#$ . 14318)]) #@201 Fetch mail from SOURCE and call CALLBACK zero or more times. CALLBACK will be called with the name of the file where (some of) the mail from SOURCE is put. Return the number of files that were found. (defalias 'mail-source-fetch #[(source callback) "\306\307 !\210\n\204\205V\212 @ \236\211A@)\310\211\204%\311\312 \"\210\313!\203<\314\315\"\210\316\"\317 \210 \204G\203P \"\202T\320\321\322\217\\+)\207" [plugged source mail-source-plugged mail-source-fetcher-alist x found nil mail-source-set-common-1 0 error "%S is an invalid mail source specification" file-exists-p message "Processing mail from %s..." mail-source-callback mail-source-delete-crash-box err (funcall function source callback) ((error (byte-code "\204-\305\306\307\310 >\203\311 !\310\n>A\312\240\210\n)\202 \211A@)#!\204-\313\314!\210\315\207" [mail-source-ignore-errors source s err x yes-or-no-p format "Mail source %s error (%s). Continue? " :password copy-sequence "********" error "Cannot get new mail" 0] 6))) function mail-source-crash-box callback debug-on-quit debug-on-error] 5 (#$ . 14490)]) #@112 Remove incoming files older than AGE days. If CONFIRM is non-nil, ask for confirmation before removing a file. (defalias 'mail-source-delete-old-incoming #[(&optional age confirm) "\306\307\310\n!\203\n\202\311\312\211\313\314\315\316!P#\317 @_\211 \317 A@_\\ \205\210 @\320\321\322#\323\324!8\211 @_\211!  A@_\\! A\f!Z V\203\204\"\203s\325\326\327 #!\202|\330\331\332 $\210\314\203\204\333!\210-\202/-\207" [high2days low2days age diff currday files 0.7585185185185185 1.52587890625e-05 natnump 30 nil directory-files t "\\`" regexp-quote current-time gnus-replace-in-string "\\`.*/\\([^/]+\\)\\'" "\\1" 5 file-attributes y-or-n-p format "Delete old (> %s day(s)) incoming mail file `%s'? " gnus-message 8 "Deleting old (> %s day(s)) incoming mail file `%s'." delete-file mail-source-directory mail-source-incoming-file-prefix ffile bfile filetime fileday confirm] 7 (#$ . 15613) "P"]) #@60 Call CALLBACK on the mail file. Pass INFO on to CALLBACK. (defalias 'mail-source-callback #[(callback info) "\303!\203\304\305\306!8!\203\303!\203\307!\210\310\207 \n\"\207" [mail-source-crash-box callback info file-exists-p zerop 7 file-attributes delete-file 0] 4 (#$ . 16551)]) (defalias 'mail-source-delete-crash-box #[nil "\306!\2057 \307=\203\310!\207\311\312\n \"!\306\313\f!!\204&\314\313\f!\307\"\210\315\f\307#\210\316 !\2056\317 \")\207" [mail-source-crash-box mail-source-delete-incoming mail-source-incoming-file-prefix mail-source-directory incoming mail-source-delete-old-incoming-confirm file-exists-p t delete-file mm-make-temp-file expand-file-name file-name-directory make-directory rename-file natnump mail-source-delete-old-incoming] 4]) #@33 Move FROM to TO using movemail. (defalias 'mail-source-movemail #[(from to) "\306!\204 \307\310\"\207\311\312!!\313\211\311!\311 !\314!\204\304\314 !\204.\313\202\304\315\316\317 !8!\203=\313\202\304\313\216\212\320\321!\322\323\324\325 \206R\312\326+\"\313\n\313 \257!\")\314!\203i\327,\"\210\330\n!\203w\315\331\n!!\203\202 \247\203\202\315 !\204\303\nq\210eb\210\332\333\313\334#\204\303\335ed\336\337$\210db\210\340\313x\210`d|\210eb\210\341\342!\203\260e\343\225|\210\344\345\346\347 #!\204\301\307\350\347 \"\210\313*\n\203\322\351\n!\203\322\352\n!\210+\207" [to result errors from default-directory mail-source-movemail-program file-writable-p error "Can't write to crash box %s. Not moving mail" file-truename expand-file-name nil file-exists-p zerop 7 file-attributes generate-new-buffer " *mail source loss*" "/" apply call-process append "movemail" set-file-modes buffer-modified-p buffer-size search-forward "older revision" t subst-char-in-region 10 32 " " looking-at "movemail: " 0 yes-or-no-p format "movemail: %s (%s return). Continue? " buffer-string "%s" buffer-name kill-buffer exec-directory mail-source-default-file-modes] 9 (#$ . 17338)]) #@60 Move FROM to TO using movemail, then remove FROM if empty. (defalias 'mail-source-movemail-and-remove #[(from to) "\302 \"?\206\303\304\305!8!?\206\306!\207" [from to mail-source-movemail zerop 7 file-attributes delete-file] 4 (#$ . 18550)]) (defalias 'mail-source-fetch-with-program #[(program) "\303\304\211\211 \n&\305=\207" [shell-file-name shell-command-switch program call-process nil 0] 7]) (defalias 'mail-source-run-script #[(script spec &optional delay) "\203\303!\203 \210\202\304\305 \"!\210\n\205\306\n!\207" [script spec delay functionp mail-source-call-script format-spec sleep-for] 4]) (defalias 'mail-source-call-script #[(script) "\306\307\310!\306\311\312 \"\203 \313\211\224O\313\314\f\306\n\306 &\211\2034\315!\2044 q\210\316\317\320 \"\210\321 !+\207" [result stderr background script shell-file-name shell-command-switch nil get-buffer-create " *mail-source-stderr*" string-match "& *$" 0 call-process zerop message "Mail source error: %s" buffer-string kill-buffer] 8]) #@34 Fetcher for single-file sources. (defalias 'mail-source-fetch-file #[(source callback) "\306\211\306\211\307\f!\210\310 \311\312 \"\n#\210\313\314\"\315 \"\2035\316\"\310 \311\312 \"\"\210\317 \210\2026\320-\207" [path postscript prescript-delay prescript source mail-source-crash-box nil mail-source-set-1 mail-source-run-script format-spec-make 116 format "file:%s" mail-source-movemail mail-source-callback mail-source-delete-crash-box 0 mail-source-string callback] 7 (#$ . 19584)]) #@32 Fetcher for directory sources. (defalias 'mail-source-fetch-directory #[(source callback) "\306\211\306\211\306\211\307!\210\310 \311\312\n\"\f#\210\313\314\315\n\"\316\n\317\320 !\321P#\306\211\203p@\322!\203g!\203g\323\"\203g\324\"\\\310 \311\312\n\"\"\210\325 \210A\211\2045*.\207" [predicate suffix path postscript prescript-delay prescript nil mail-source-set-1 mail-source-run-script format-spec-make 116 0 format "directory:%s" directory-files t regexp-quote "$" file-regular-p mail-source-movemail mail-source-callback mail-source-delete-crash-box source mail-source-string found file #1=#:--cl-dolist-temp-- mail-source-crash-box callback] 7 (#$ . 20090)]) #@34 Fetcher for single-file sources. (defalias 'mail-source-fetch-pop #[(source callback) "\306\211\306\211\306\211\306\211%&\306\211'(\306)\307*!\210\310)\311\312\n\313+\314&\315%\316 &\n(#\210\317\320& %$\317\321 &#\306,-. \302=\203i\n\206h\322./\"A\206h\323\317\324 &#!&\203t\325\326&\"\210\f\203\220\327\330\f\311\312\n\313+\314&\315%\316 &\n\"!\202\326 \203\233 +!\202\326\331\332!\210\n &% \333=\203\257\333\202\260\3340123456\204\3077\203\320\212\335+!)\202\324\336\337\340\217.\211,\203  \302=\203\364\322./\"\204\364.\nB/B/\3418&\"*9\232\203\306:\310'\311\312\n\313+\314&\315%\316 &\n\"\210\342 \210\202-\343\322./\"/\"/\344.\207" [stream authentication password function program user nil mail-source-set-1 mail-source-run-script format-spec-make 112 116 115 80 117 format "%s:%s:%s" "pop:%s@%s" assoc read-passwd "Password for %s at %s: " setenv "MAILHOST" mail-source-fetch-with-program format-spec require pop3 apop pass pop3-movemail err (byte-code "\212\301!)\207" [mail-source-crash-box pop3-movemail] 2) ((error (byte-code "\303\304 \" \"\305\n@\nA\"\207" [from mail-source-password-cache err delq assoc signal] 4))) mail-source-callback mail-source-delete-crash-box delq 0 port server postscript prescript-delay prescript source mail-source-crash-box result mail-source-string from mail-source-password-cache pop3-stream-type pop3-authentication-scheme pop3-port pop3-mailhost pop3-maildrop pop3-password debug-on-quit debug-on-error callback mail-source-primary-source mail-source-new-mail-available] 15 (#$ . 20811)]) #@34 Check whether there is new mail. (defalias 'mail-source-check-pop #[(source) "\306\211\306\211\306\211\306\211\306\211\306\307!\210\310\311 $\310\312 #\306 !\" \302=\203d\n\206Q\313\"#\"A\206Q\314\310\315 #!\313\"#\"\204d\"\nB#B#\203o\316\317\"\210\f\206\254 \206\254\320\321!\210\n  \322=\203\213\322\202\214\323$%&'()\204\240*\203\247\212\324 )\202\253\325\326\327\217-\211 \203\273 \330V+\202\307\331\313\"#\"#\"# .\207" [stream authentication password function program user nil mail-source-set-1 format "%s:%s:%s" "pop:%s@%s" assoc read-passwd "Password for %s at %s: " setenv "MAILHOST" require pop3 apop pass pop3-get-message-count err (byte-code "\212\300 )\207" [pop3-get-message-count] 1) ((error (byte-code "\303\304 \" \"\305\n@\nA\"\207" [from mail-source-password-cache err delq assoc signal] 4))) 0 delq port server postscript prescript-delay prescript source result mail-source-string from mail-source-password-cache pop3-authentication-scheme pop3-port pop3-mailhost pop3-maildrop pop3-password debug-on-quit debug-on-error mail-source-new-mail-available] 7 (#$ . 22438)]) #@445 Open and close a POP connection shortly. POP server should be defined in `mail-source-primary-source' (which is preferred) or `mail-sources'. You may use it for the POP-before-SMTP authentication. To do that, you need to set the `message-send-mail-function' variable as `message-smtpmail-send-it' and put the following line in your ~/.gnus.el file: (add-hook 'message-send-mail-hook 'mail-source-touch-pop) See the Gnus manual for details. (defalias 'mail-source-touch-pop #[nil "\203 C\202\n \211\205$\n@@\303=\203\304\n@!\210\nA\211\204\305)\207" [mail-source-primary-source mail-sources sources pop mail-source-check-pop nil] 3 (#$ . 23611)]) #@68 Handler for `display-time' to indicate when new mail is available. (defalias 'mail-source-new-mail-p #[nil "\203 \203\303\304 \210) \207" [mail-source-flash mail-source-new-mail-available visible-bell t ding] 1 (#$ . 24278)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\304\207" [current-load-list mail-source-report-new-mail default-boundp set-default nil mail-source-report-new-mail-timer mail-source-report-new-mail-idle-timer] 3) (defalias 'mail-source-start-idle-timer #[nil "?\205\302 \303\304#\211\305\303I\207" [mail-source-report-new-mail-idle-timer mail-source-idle-time-delay run-with-idle-timer nil #[nil "\301\216\302!)\207" [mail-source-primary-source ((byte-code "\301\211\207" [mail-source-report-new-mail-idle-timer nil] 2)) mail-source-check-pop] 2] 0] 5]) #@102 Toggle whether to report when new mail is available. This only works when `display-time' is enabled. (defalias 'mail-source-report-new-mail #[(arg) "\204\306\307!\210 \204\n?\202\310 !\311V\211\f\203!\312\f!\210 \203)\312 !\210\313\211 \203O\314\315!\210\316\317\320_\320_\321#\322\323\324\"\210\325\326!\202Z\313\327\323\324\"\210\325\330!)\207" [mail-source-primary-source arg mail-source-report-new-mail on mail-source-report-new-mail-timer mail-source-report-new-mail-idle-timer error "Need to set `mail-source-primary-source' to check for new mail" prefix-numeric-value 0 nnheader-cancel-timer nil require time mail-source-new-mail-p run-at-time 60 mail-source-start-idle-timer add-hook nnmail-post-get-new-mail-hook display-time-event-handler message "Mail check enabled" remove-hook "Mail check disabled" display-time-mail-function mail-source-report-new-mail-interval] 5 (#$ . 25161) "P"]) #@30 Fetcher for maildir sources. (defalias 'mail-source-fetch-maildir #[(source callback) "\306\211\306\307 !\210\310\306\311\312\n\"\204\n\313P \306\211\203\274@\314\nP!\203\263\315\316\n#\317\nP\320\"\306\211\203\262@\314!\204\251\203a\"\202\232 \211!\"\321\322\323!!#$\324\216r#q\210\325!\210eb\210\326c\210)r#q\210\327\306\211$\306\310%\210,\330!*\204\251 \331%\"\\\332 \210A\211\204H*A\211\204#* -\207" [function subdirs path source mail-source-string found nil mail-source-set-1 0 string-match "/$" "/" file-directory-p format "maildir:%s%s" directory-files t get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents "\n" write-region delete-file mail-source-callback mail-source-delete-crash-box subdir #2=#:--cl-dolist-temp-- file #3=#:--cl-dolist-temp-- mail-source-crash-box mm-text-coding-system coding-system-for-read coding-system-for-write #1# #4=#:temp-file callback] 9 (#$ . 26089)]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\302\"\210\300\306\302\"\210\300\307\302\"\210\300\310\302\"\210\300\311\302\"\210\300\312\302\"\210\300\313\302\"\210\300\314\302\"\210\300\315\302\"\210\300\316\317\"\210\300\320\321\"\207" [autoload imap-open "imap" imap-authenticate imap-mailbox-select imap-mailbox-unselect imap-mailbox-close imap-search imap-fetch imap-close imap-error-text imap-message-flags-add imap-list-to-message-set imap-range-to-message-set nnheader-ms-strip-cr "nnheader" gnus-compress-sequence "gnus-range"] 3) #@66 Coding system for the crashbox made by `mail-source-fetch-imap'. (defvar mail-source-imap-file-coding-system 'binary (#$ . 27752)) #@27 Fetcher for imap sources. (defalias 'mail-source-fetch-imap #[(source callback) "\306\211\306\211\306\211\306\211?@\306\211AB\306\211CD\306\211EF\307G!\210\310 \311\312@\313H\314F\315E\316A&\n\n#\210\317\320FAE$\321\322\323!\317\324F?#CC\206\\I\306JIKLMN\325FEDBL%\203\240\326A\327NO\"A\206\207@L#\203\240\330?\306L#\203\240P\306QRH\331\332\333!!ST\334\216rSq\210\335 \210rLq\210U\203\320\327NO\"\204\320NUBOBO)\336 \206\327\337L\"\306V\211W\203HW@V\340\341L\"\203\342V\343\344\306L%\211X@A)A@\202 \342V\345\346\306L%\211Q\203?VJBJ\347\350 \351\261\210\212Q\352\261\210)\306Y\353\354\306\355#)\203<\356\357!\210\202)db\210WA\211W\204\343*\360 \210)rSq\210\361\306\211T\306\321%\210,M\362ZF\"\\M\363 \210J\203\205\f\203\205J\237J\364\365\366J!!\f\306L$\210\203\221\367L!\210\202\227\370\306L\"\210\371L!\210*\202\271\371L!\210\372\327NO\"O\"O\373\374\375L!\"\210\376L!\210\310 \311\312@\313H\314F\315E\316A&\n\"\210M.\207" [dontexpunge postscript prescript-delay prescript fetchflag predicate nil mail-source-set-1 mail-source-run-script format-spec-make 112 116 115 80 117 format "%s:%s:%s" 0 generate-new-buffer " *imap source*" "imap:%s:%s" imap-open imap-authenticate assoc imap-mailbox-select get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-disable-multibyte imap-search "1:*" imap-capability IMAP4rev1 imap-fetch "BODY.PEEK[]" BODYDETAIL "RFC822.PEEK" RFC822 "From imap " current-time-string "\n" "\n\n" re-search-forward "^From " t replace-match ">From " nnheader-ms-strip-cr write-region mail-source-callback mail-source-delete-crash-box imap-message-flags-add imap-range-to-message-set gnus-compress-sequence imap-mailbox-unselect imap-mailbox-close imap-close delq error "IMAP error: %s" imap-error-text kill-buffer mailbox password user authentication program stream port server source mail-source-crash-box imap-shell-program remove mail-source-string buf found from mail-source-password-cache mail-source-imap-file-coding-system str coding-system-for-write #1# #2=#:temp-file imap-password uid #3=#:--cl-dolist-temp-- x case-fold-search callback] 14 (#$ . 27889)]) (autoload 'webmail-fetch "webmail") #@27 Fetch for webmail source. (defalias 'mail-source-fetch-webmail #[(source callback) "\306\211\306\211\306\307 !\210\310\311\f # \211?\302=\203W\n\206:\312\310\311\f #\"A\206:\313\310\314 \f#!\211\203W\312\310\311\f #\"\204W\310\311\f #\nBB\315\f \n$\210\316\317\f!\"\210\320 .\207" [authentication dontexpunge password user subtype source nil mail-source-set-1 format "webmail:%s:%s" assoc read-passwd "Password for %s at %s: " webmail-fetch mail-source-callback symbol-name mail-source-delete-crash-box webmail-move-to-trash-can webmail-newmail-only mail-source-string mail-source-password-cache mail-source-crash-box callback] 6 (#$ . 30245)]) (provide 'mail-source)