;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:44:48 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/mail-source.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mail-source.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\303\304\305\"\210\303\306\305\"\210\303\307\310\"\210\311\312!\210\311\313!\210\314\315\316\317\320\321\322\323&\210\301B\324\302B\325\316\207" [current-load-list mail-source-imap-authenticators mail-source-imap-streams autoload pop3-movemail "pop3" pop3-get-message-count nnheader-cancel-timer "nnheader" require format-spec mm-util custom-declare-group mail-source nil "The mail-fetching library." :version "21.1" :group gnus ((const gssapi) (const kerberos4) (const cram-md5) (const login) (const anonymous) (const digest-md5)) ((const gssapi) (const kerberos4) (const ssl) (const network) (const shell) (const starttls))] 8) #@152 *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 'nil '(#$ . -1279) :group 'mail-source :type `(repeat (choice :format "%[Value Menu%] %v" :value (file) (cons :tag "Spool file" (const :format "" file) (checklist :tag "Options" :greedy t (group :inline t (const :format "" :value :path) file))) (cons :tag "Several files in a directory" (const :format "" directory) (checklist :tag "Options" :greedy t (group :inline t (const :format "" :value :path) (directory :tag "Path")) (group :inline t (const :format "" :value :suffix) (string :tag "Suffix")) (group :inline t (const :format "" :value :predicate) (function :tag "Predicate")) (group :inline t (const :format "" :value :prescript) (string :tag "Prescript")) (group :inline t (const :format "" :value :postscript) (string :tag "Postscript")) (group :inline t (const :format "" :value :plugged) (boolean :tag "Plugged")))) (cons :tag "POP3 server" (const :format "" pop) (checklist :tag "Options" :greedy t (group :inline t (const :format "" :value :server) (string :tag "Server")) (group :inline t (const :format "" :value :port) (choice :tag "Port" :value "pop3" (number :format "%v") (string :format "%v"))) (group :inline t (const :format "" :value :user) (string :tag "User")) (group :inline t (const :format "" :value :password) (string :tag "Password")) (group :inline t (const :format "" :value :program) (string :tag "Program")) (group :inline t (const :format "" :value :prescript) (string :tag "Prescript")) (group :inline t (const :format "" :value :postscript) (string :tag "Postscript")) (group :inline t (const :format "" :value :function) (function :tag "Function")) (group :inline t (const :format "" :value :authentication) (choice :tag "Authentication" :value apop (const password) (const apop))) (group :inline t (const :format "" :value :plugged) (boolean :tag "Plugged")))) (cons :tag "Maildir (qmail, postfix...)" (const :format "" maildir) (checklist :tag "Options" :greedy t (group :inline t (const :format "" :value :path) (directory :tag "Path")) (group :inline t (const :format "" :value :plugged) (boolean :tag "Plugged")))) (cons :tag "IMAP server" (const :format "" imap) (checklist :tag "Options" :greedy t (group :inline t (const :format "" :value :server) (string :tag "Server")) (group :inline t (const :format "" :value :port) (choice :tag "Port" :value 143 number string)) (group :inline t (const :format "" :value :user) (string :tag "User")) (group :inline t (const :format "" :value :password) (string :tag "Password")) (group :inline t (const :format "" :value :stream) (choice :tag "Stream" :value network ,@mail-source-imap-streams)) (group :inline t (const :format "" :value :authenticator) (choice :tag "Authenticator" :value login ,@mail-source-imap-authenticators)) (group :inline t (const :format "" :value :mailbox) (string :tag "Mailbox" :value "INBOX")) (group :inline t (const :format "" :value :predicate) (string :tag "Predicate" :value "UNSEEN UNDELETED")) (group :inline t (const :format "" :value :fetchflag) (string :tag "Fetchflag" :value "\\Deleted")) (group :inline t (const :format "" :value :dontexpunge) (boolean :tag "Dontexpunge")) (group :inline t (const :format "" :value :plugged) (boolean :tag "Plugged")))) (cons :tag "Webmail server" (const :format "" webmail) (checklist :tag "Options" :greedy t (group :inline t (const :format "" :value :subtype) (choice :tag "Subtype" :value hotmail (const hotmail) (const yahoo) (const netaddress) (const netscape) (const my-deja))) (group :inline t (const :format "" :value :user) (string :tag "User")) (group :inline t (const :format "" :value :password) (string :tag "Password")) (group :inline t (const :format "" :value :dontexpunge) (boolean :tag "Dontexpunge")) (group :inline t (const :format "" :value :plugged) (boolean :tag "Plugged"))))))) #@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 '(#$ . -5243) :group 'mail-source :type 'sexp) #@53 File where mail will be stored while processing it. (custom-declare-variable 'mail-source-crash-box '"~/.emacs-mail-crash-box" '(#$ . 5458) :group 'mail-source :type 'file) #@48 Directory where files (if any) will be stored. (custom-declare-variable 'mail-source-directory '"~/Mail/" '(#$ . 5637) :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 '(#$ . 5800) :group 'mail-source :type 'integer) #@52 *If non-nil, delete incoming files after handling. (custom-declare-variable 'mail-source-delete-incoming 't '(#$ . -5974) :group 'mail-source :type 'boolean) #@48 Prefix for file name for storing incoming mail (custom-declare-variable 'mail-source-incoming-file-prefix '"Incoming" '(#$ . 6138) :group 'mail-source :type 'string) #@50 Interval in minutes between checks for new mail. (custom-declare-variable 'mail-source-report-new-mail-interval '5 '(#$ . 6310) :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 '(#$ . 6479) :group 'mail-source :type 'number) #@71 A dynamically bound string that says what the current mail source is. (defvar mail-source-string "" (#$ . 6651)) #@45 Flag indicating when new mail is available. (defvar mail-source-new-mail-available nil (#$ . 6770)) #@81 Mapping from keywords to default values. Common keywords should be listed here. (defvar mail-source-common-keyword-map '((:plugged)) (#$ . 6876)) #@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)) (maildir (:path (or (getenv "MAILDIR") "~/Maildir/")) (:subdirs ("new" "cur")) (:function)) (imap (:server (getenv "MAILHOST")) (:port) (:stream) (:authentication) (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER"))) (:password) (:mailbox "INBOX") (:predicate "UNSEEN UNDELETED") (:fetchflag "\\Deleted") (:dontexpunge)) (webmail (:subtype hotmail) (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER"))) (:password) (:dontexpunge) (:authentication password))) (#$ . 7028)) #@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)) (#$ . 8127)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\305\304\207" [current-load-list mail-source-password-cache mail-source-plugged boundp nil t] 2) #@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 (#$ . 8591)]) (defalias 'mail-source-bind-1 #[(type) " \236A\305\305\n\211A@\211\203\306 @!\305D\fB\202 \f+\207" [type mail-source-keyword-map defaults default bind nil mail-source-strip-keyword] 2]) #@505 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. After this is done, BODY will be executed in the scope of the `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 (#$ . 8962)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put mail-source-bind lisp-indent-function 1 edebug-form-spec (form body)] 4) (defalias 'mail-source-set-1 #[(source) "\211A@\211\n\236A\306\306\306\n \211A@\211\205A\307\f@\211\n!\310\n\"\211\2033\311 !\202<\311\f\211 A@)!L\210\202-\207" [source type mail-source-keyword-map defaults default value nil mail-source-strip-keyword plist-get mail-source-value keyword x] 5]) (defalias 'mail-source-bind-common-1 #[nil "\304\304 \211A@\211\203\305\n@!\304D B\202 +\207" [mail-source-common-keyword-map defaults default bind nil mail-source-strip-keyword] 2]) (defalias 'mail-source-set-common-1 #[(source) "\211A@\n \f\236A\306\n\306 \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 (#$ . 10710)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put mail-source-bind-common lisp-indent-function 1 edebug-form-spec (form body)] 4) #@28 Return the value of VALUE. (defalias 'mail-source-value #[(value) ";\203\207<\203\301@!\203\302!\207\207" [value functionp eval] 2 (#$ . 11114)]) #@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\205@\212 @ \236\211A@)\310\211\204%\311\312 \"\210\313!\2039\314\315\"\210\316\" \317\320\321\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 err (funcall function source callback) ((error (byte-code "\301\302\303\"!\204 \304\305!\210\306\207" [err yes-or-no-p format "Mail source error (%s). Continue? " error "Cannot get new mail" 0] 4))) function mail-source-crash-box callback] 5 (#$ . 11279)]) (defalias 'mail-source-make-complex-temp-name #[(prefix) "\303!\304\n!\203 \305P\303 !\202\n*\207" [prefix newprefix newname make-temp-name file-exists-p "x"] 2]) #@90 Call CALLBACK on the mail file, and then remove the mail file. Pass INFO on to CALLBACK. (defalias 'mail-source-callback #[(callback info) "\306!\203\307\310\311!8!\203\306!\203\312!\210\313\207 \n\"\306!\203P \203/\312!\210\207\314\315\f \"!\306\316!!\204H\317\316!\320\"\210\321\320#\210)\207" [mail-source-crash-box callback info mail-source-delete-incoming mail-source-incoming-file-prefix mail-source-directory file-exists-p zerop 7 file-attributes delete-file 0 mail-source-make-complex-temp-name expand-file-name file-name-directory make-directory t rename-file incoming] 5 (#$ . 12340)]) #@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\262\314 !\204.\313\202\262\315\316\317 !8!\203=\313\202\262\313\216\212\320\321!\322\323\324\325\312\326 \"\313\n\313 \257!\")\314!\203d\327*\"\210\330\n!\204p\315 !\204\261\nq\210eb\210\331\332\313\333#\204\261\334ed\335\336$\210db\210\337\313x\210`d|\210eb\210\340\341!\203\236e\342\225|\210\343\344\345\346 #!\204\257\307\347\346 \"\210\313*\n\203\300\350\n!\203\300\351\n!\210+\207" [to result errors from default-directory exec-directory 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 search-forward "older revision" t subst-char-in-region 10 32 " " looking-at "movemail: " 0 yes-or-no-p format "movemail: %s (%d return). Continue? " buffer-string "%s" buffer-name kill-buffer mail-source-default-file-modes] 9 (#$ . 12967)]) #@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 (#$ . 14095)]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list mail-source-read-passwd boundp nil] 2) #@83 Read a password using PROMPT. If ARGS, PROMPT is used as an argument to `format'. (defalias 'mail-source-read-passwd #[(prompt &rest args) "\203\f\303\304 #\202 \n\2041\305\306!\204\307\310\311\"\203$\306\2021\305\312!\204/\313\312\314\"\210\312\n !)\207" [args prompt mail-source-read-passwd apply format fboundp read-passwd load "passwd" t ange-ftp-read-passwd autoload "ange-ftp"] 4 (#$ . 14458)]) (defalias 'mail-source-fetch-with-program #[(program) "\303\304\305\211\211 \n&!\207" [shell-file-name shell-command-switch program zerop call-process nil] 8]) (defalias 'mail-source-run-script #[(script spec &optional delay) "\2039\203\303!\203 \210\202\304\305 \"!\210\n\205#\306\n!\207" [script spec delay fboundp mail-source-call-script format-spec sleep-for] 4]) (defalias 'mail-source-call-script #[(script) "\304\305\306 \"\203 \307\211\224O\307\310\n\304\304 &)\207" [background script shell-file-name shell-command-switch nil string-match "& *$" 0 call-process] 7]) #@34 Fetcher for single-file sources. (defalias 'mail-source-fetch-file #[(source callback) "\306\211\211\211\307\f!\210\310\311\312 \" #\210\313\314 \"\315 \"\2032\316 \"\310\n\311\312 \"\"\210\2023\317-\207" [prescript prescript-delay postscript path 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 0 mail-source-string callback] 6 (#$ . 15478)]) #@32 Fetcher for directory sources. (defalias 'mail-source-fetch-directory #[(source callback) "\306\211\211\211\211\211\307!\210\310\311\312 \" #\210\313\314\315 \"\316 \317\320\f!\321P#\306\211\203e@\322!\203\\ !\203\\\323\"\203\\\324\"\\A\211\2045*\310\n\311\312 \"\"\210.\207" [prescript prescript-delay postscript path suffix predicate 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 source mail-source-string found file #1=#:--dolist-temp--97269 mail-source-crash-box callback] 6 (#$ . 15946)]) #@34 Fetcher for single-file sources. (defalias 'mail-source-fetch-pop #[(source callback) "\306\211\211\211\211\211\211\211\211\211 !\"\307#!\210\310\311\312\313$\314 \315\f\316 &\n #\210\317\320 \f$\317\321 #\306%&'\"\322=\203b\206`\323'(\"A\206`\324\317\325 #! \203k\326\327 \"\210 \203\210\330\331 \311\312\313$\314 \315\f\316 &\n\"!\202\267!\203\225!$!\202\267 \f\"\332=\203\245\332\202\246\333)*+,-\212\334$!.\211%\203\375\"\322=\203\327\323'(\"\204\327'B(B(\335. \"#/\232\203\347\3060\310\n\311\312\313$\314 \315\f\316 &\n\"\210\202\n\336\323'(\"(\"(\337. \207" [prescript prescript-delay postscript server port 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" password assoc mail-source-read-passwd "Password for %s at %s: " setenv "MAILHOST" mail-source-fetch-with-program format-spec apop pass pop3-movemail mail-source-callback delq 0 program function authentication source mail-source-crash-box result mail-source-string from mail-source-password-cache pop3-authentication-scheme pop3-port pop3-mailhost pop3-maildrop pop3-password callback mail-source-primary-source mail-source-new-mail-available] 15 (#$ . 16631)]) #@34 Check whether there is new mail. (defalias 'mail-source-check-pop #[(source) "\306\211\211\211\211\211\211\211\211\211 \307!\210\310\311 \f$\310\312 #\306\313=\203a \206L\314\"A\206L\315\310\316 #! \314\"\204a BB \203j\317\320 \"\210\206\224\206\224 \f\321=\203\204\321\202\205\322 !\"\212\323 .\211\203\243\324V#\202\257\325\314\"\". \207" [prescript prescript-delay postscript server port user nil mail-source-set-1 format "%s:%s:%s" "pop:%s@%s" password assoc mail-source-read-passwd "Password for %s at %s: " setenv "MAILHOST" apop pass pop3-get-message-count 0 delq program function authentication source result mail-source-string from mail-source-password-cache pop3-authentication-scheme pop3-port pop3-mailhost pop3-maildrop pop3-password mail-source-new-mail-available] 11 (#$ . 17912)]) #@68 Handler for `display-time' to indicate when new mail is available. (defalias 'mail-source-new-mail-p #[nil "\207" [mail-source-new-mail-available] 1 (#$ . 18801)]) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\305\303B\304\303!\204$\305\305\207" [current-load-list mail-source-report-new-mail mail-source-report-new-mail-timer mail-source-report-new-mail-idle-timer boundp nil] 2) (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 "\302\303 !\207" [mail-source-report-new-mail-idle-timer mail-source-primary-source nil 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\313 \203L\314\315!\210\316\317\320\321_\322#\323\324\325\"\210\326\327!\202W\313\330\324\325\"\210\326\331!)\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 t 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 (#$ . 19521) "P"]) #@30 Fetcher for maildir sources. (defalias 'mail-source-fetch-maildir #[(source callback) "\306\211\211\307 !\210\310\306\311\312\"\204\313P \306\211\203\273@\314P!\203\262\315\316#\317P\320\"\306\211\203\261@\314!\204\250\n\203a\n\"\202\234\211 !\321\322\323!!\"#\324\216r\"q\210\325!\210eb\210\326c\210)r\"q\210~\210\327ed#\306\310%\210,\330!*\204\250 \331$\"\\A\211\204H*A\211\204#* -\207" [path subdirs function 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 subdir #2=#:--dolist-temp--97270 file #3=#:--dolist-temp--97271 mail-source-crash-box mm-text-coding-system coding-system-for-read coding-system-for-write #1# #4=#:temp-file callback] 8 (#$ . 20448)]) (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\"\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"] 3) #@66 Coding system for the crashbox made by `mail-source-fetch-imap'. (defvar mail-source-imap-file-coding-system 'binary (#$ . 22021)) #@27 Fetcher for imap sources. (defalias 'mail-source-fetch-imap #[(source callback) "\306\211\211\211\211\211\211\211\211\2111234\3075!\210\310\311\f $\312\313\314\315!!\310\3161#\3066789:\317 \n 8%\203G\320\f\321:;\"A\206R 8#\203G\3221\3068#\203G<\306=>?\313\314\323!!@A\324\216r@q\210\325 \210r8q\210B\204\221\321:;\"\203\233:BB;B;)\3262\206\243\3278\"\306C\211D\203\364D@C\330C\331\332\3068%\211=\203\353C6B6\333\334 \335\261\210\212=\336\261\210)\337\340\306\341#\203\350\342\343!\210\202\331db\210DA\211D\204\257*\344 \210)r@q\210~\210\345edA\306\312%\210,9\346E\"\\96\203,3\203,\347\350\3516!!3\3068$\2104\2039\3528!\210\202>\3538!\210\3548!\210*\202_\3548!\210\355\321:;\";\";\356\3578!!\210\3608!\2109.\207" [server port stream authentication user password nil mail-source-set-1 format "%s:%s:%s" 0 get-buffer-create generate-new-buffer-name " *imap source*" "imap:%s:%s" imap-open imap-authenticate assoc imap-mailbox-select " *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-fetch "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 imap-message-flags-add imap-range-to-message-set gnus-compress-sequence imap-mailbox-unselect imap-mailbox-close imap-close delq error imap-error-text kill-buffer mailbox predicate fetchflag dontexpunge source remove mail-source-string buf found from mail-source-password-cache mail-source-imap-file-coding-system str coding-system-for-write mail-source-crash-box #1# #2=#:temp-file imap-password uid #3=#:--dolist-temp--97272 callback] 10 (#$ . 22158)]) (autoload 'webmail-fetch "webmail") #@27 Fetch for webmail source. (defalias 'mail-source-fetch-webmail #[(source callback) "\306\211\211\211\211\307 !\210\310\311 # \211?\f\302=\203W\n\206:\312\310\311 #\"A\206:\313\310\314 #!\211\203W\312\310\311 #\"\204W\310\311 #\nBB\315 \n$\210\316\317!\".\207" [subtype user password dontexpunge authentication source nil mail-source-set-1 format "webmail:%s:%s" assoc mail-source-read-passwd "Password for %s at %s: " webmail-fetch mail-source-callback symbol-name webmail-move-to-trash-can webmail-newmail-only mail-source-string mail-source-password-cache mail-source-crash-box callback] 6 (#$ . 24015)]) (provide 'mail-source)