;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:50:24 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/gnus/auth-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 "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require gnus-util custom-declare-group auth-source nil "Authentication sources." :version "23.1" :group gnus] 8) #@50 List of authentication protocols and their names (custom-declare-variable 'auth-source-protocols ''((imap "imap" "imaps" "143" "993") (pop3 "pop3" "pop" "pop3s" "110" "995") (ssh "ssh" "22") (sftp "sftp" "115") (smtp "smtp" "25")) '(#$ . 725) :group 'auth-source :version "23.1" :type '(repeat :tag "Authentication Protocols" (cons :tag "Protocol Entry" (symbol :tag "Protocol") (repeat :tag "Names" (string :tag "Name"))))) (byte-code "\302B\303\304\305 \"!\207" [current-load-list auth-source-protocols auth-source-protocols-customize (lambda (#1=#:defconst-tmp-var) (defconst auth-source-protocols-customize #1#)) mapcar #[(a) "\242\302\303\304 !\226 F)\207" [a p const :tag symbol-name] 4]] 4) #@28 Cache for auth-source data (defvar auth-source-cache (make-hash-table :test 'equal) (#$ . 1433)) #@47 Whether auth-source should cache information. (custom-declare-variable 'auth-source-do-cache 't '(#$ . 1536) :group 'auth-source :version "23.1" :type 'boolean) #@437 Whether auth-source should log debug messages. Also see `auth-source-hide-passwords'. If the value is nil, debug messages are not logged. If the value is t, debug messages are logged with `message'. In that case, your authentication data will be in the clear (except for passwords, which are always stripped out). If the value is a function, debug messages are logged by calling that function using the same arguments as `message'. (custom-declare-variable 'auth-source-debug 'nil '(#$ . 1704) :group 'auth-source :version "23.1" :type '(choice :tag "auth-source debugging mode" (const :tag "Log using `message' to the *Messages* buffer" t) (function :tag "Function that takes arguments like `message'") (const :tag "Don't log anything" nil))) #@109 Whether auth-source should hide passwords in log messages. Only relevant if `auth-source-debug' is not nil. (custom-declare-variable 'auth-source-hide-passwords 't '(#$ . 2459) :group 'auth-source :version "23.1" :type 'boolean) #@98 List of authentication sources. Each entry is the authentication type with optional properties. (custom-declare-variable 'auth-sources ''((:source "~/.authinfo.gpg" :host t :protocol t)) '(#$ . 2694) :group 'auth-source :version "23.1" :type (byte-code "\301\302\303\304\302\305\306\307\310\311\312\313\302\314\315\316BBBBB\257 F\207" [auth-source-protocols-customize repeat :tag "Authentication Sources" list "Source definition" (const :format #1="" :value :source) (string :tag "Authentication Source") (const :format #1# :value :host) (choice :tag "Host (machine) choice" (const :tag "Any" t) (regexp :tag "Host (machine) regular expression (TODO)") (const :tag "Fallback" nil)) (const :format #1# :value :protocol) choice "Protocol" (const :tag "Any" t) (const :tag "Fallback" nil)] 17)) (defalias 'auth-source-do-debug #[(&rest msg) "\205\303!\203\202\304\305 \n\")\207" [auth-source-debug logger msg functionp message apply] 3]) #@130 Parse `auth-sources' for HOST, and PROTOCOL matches. Returns fallback choices (where PROTOCOL or HOST are nil) with FALLBACK t. (defalias 'auth-source-pick #[(host protocol &optional fallback) "\306 \306\211\203^ @\307\n\310\"\307\n\311\"\211\312\232\2045 ;\203*\313  \"\2045\203V \306\232\203V\f\312\232\204R\f9\203G\f\232\204R\203V\f\306\232\203V\nB* A\211\204\n*\203g\202t?\205t\314 \312#)\207" [choices auth-sources choice #1=#:--cl-dolist-temp-- p h nil plist-get :host :protocol t string-match auth-source-pick host fallback protocol] 5 (#$ . 3648) "sHost: \nsProtocol: \n"]) (defalias 'auth-source-forget-user-or-password #[(mode host protocol) "\304\305\306 \n$ \"\207" [mode host protocol auth-source-cache remhash format "%s %s:%s"] 6 nil "slogin/password: \nsHost: \nsProtocol: \n"]) #@54 Forget all cached auth-source authentication tokens. (defalias 'auth-source-forget-all-cached #[nil "\301\302\303\"\211\207" [auth-source-cache make-hash-table :test equal] 3 (#$ . 4489) nil]) #@114 Find MODE (string or list of strings) matching HOST and PROTOCOL. MODE can be "login" or "password" for example. (defalias 'auth-source-user-or-password #[(mode host protocol) "\306\307 \n$\210<\211\203\202C\310\311 \n$\312\f \"\211\203C\306\313\314\235\2038\2038\315\202: \n%\210\202F\316\317\215,\207" [mode host protocol listy cname auth-source-cache auth-source-do-debug "auth-source-user-or-password: get %s for %s (%s)" format "%s %s:%s" gethash "auth-source-user-or-password: cached %s=%s for %s (%s)" "password" "SECRET" --cl-block-nil-- (byte-code "\306 \"\307\211\203` @\310\f\311\n\312\"C\313\314 \"C\315 !%\211\203T\316\317\f\320\f\235\2036\2036\321\2027  %\210\203D \202F \242\203T\322 #\210\323\324 \"\210 A\211\204 *\307\207" [host protocol choice #1=#:--cl-dolist-temp-- mode found auth-source-pick nil netrc-machine-user-or-password plist-get :source format "%s" auth-source-protocol-defaults auth-source-do-debug "auth-source-user-or-password: found %s=%s for %s (%s)" "password" "SECRET" puthash throw --cl-block-nil-- auth-source-hide-passwords listy auth-source-do-cache cname auth-source-cache] 8) found auth-source-hide-passwords] 7 (#$ . 4690)]) #@56 Return a list of default ports and names for PROTOCOL. (defalias 'auth-source-protocol-defaults #[(protocol) "\302 \"\243\207" [protocol auth-source-protocols assoc] 3 (#$ . 5921)]) (defalias 'auth-source-user-or-password-imap #[(mode host) "\302 \303#\207" [mode host auth-source-user-or-password imap] 4]) (defalias 'auth-source-user-or-password-pop3 #[(mode host) "\302 \303#\207" [mode host auth-source-user-or-password pop3] 4]) (defalias 'auth-source-user-or-password-ssh #[(mode host) "\302 \303#\207" [mode host auth-source-user-or-password ssh] 4]) (defalias 'auth-source-user-or-password-sftp #[(mode host) "\302 \303#\207" [mode host auth-source-user-or-password sftp] 4]) (defalias 'auth-source-user-or-password-smtp #[(mode host) "\302 \303#\207" [mode host auth-source-user-or-password smtp] 4]) (provide 'auth-source)