WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/gnus
Viewing File: /usr/share/emacs/24.3/lisp/gnus/mail-source.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:54:49 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/mail-source.el
;;; in Emacs version 24.3.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!\204
\302\301\303\304B\"\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&\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require format-spec autoload auth-source-search "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] 8)
(defconst mail-source-imap-authenticators '((const gssapi) (const kerberos4) (const sasl) (const cram-md5) (const login) (const anonymous) (const digest-md5)))
(defconst mail-source-imap-streams '((const gssapi) (const kerberos4) (const tls) (const ssl) (const network) (const shell) (const starttls)))
(byte-code "\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\315\322\323\324\325\326\327\330\331\332\333\320\334\335\336\320\337\340\341\342\343\344\345\346\347\341\350\315\320\351\324\352BBBBB\257\353\346\347\341\354\315\320\355\324\356	BBBBB\257\357BBBBBBBBBBBB\257\257FE&\210\302\360\361\362\310\363\306\307\314\364&	\210\302\365\361\366\306\307\314\367&\210\302\370\341\371\306\307\314\364&\210\302\372\373\374\306\307\314\375&\210\302\376\377\201@\306\307\314\201A&\210\302\201B\201C\201D\306\307\314\201E&\210\302\201F\201G\201H\306\307\310\201I\314\201J&	\210\302\201K\361\201L\310\201I\306\307\314\364&	\210\302\201M\201N\201O\306\307\314\201P&\210\302\201Q\201R\201S\306\307\314\201T&\210\302\201U\201R\201V\306\307\314\201T&\210\302\201W\361\201X\310\363\306\307\314\201Y&	\207" [mail-source-imap-streams mail-source-imap-authenticators custom-declare-variable mail-sources '((file)) "Where the mail backends will look for incoming mail.\nThis variable is a list of mail source specifiers.\nSee Info node `(gnus)Mail Source Specifiers'." :group mail-source :version "23.1" :link (custom-manual "(gnus)Mail Source Specifiers") :type 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"))) mail-source-ignore-errors nil "*Ignore errors when querying mail sources.\nIf nil, the user will be prompted when an error occurs.  If non-nil,\nthe error will be ignored." "22.1" boolean mail-source-primary-source "*Primary source for incoming mail.\nIf non-nil, this maildrop will be checked periodically for new mail." sexp mail-source-flash "*If non-nil, flash periodically when mail is available." mail-source-crash-box "~/.emacs-mail-crash-box" "File where mail will be stored while processing it." file mail-source-directory message-directory "Directory where incoming mail source files (if any) will be stored." directory mail-source-default-file-modes 384 "Set the mode bits of all new mail files to this integer." integer mail-source-delete-incoming 10 "If non-nil, delete incoming files after handling.\nIf t, delete immediately, if nil, never delete.  If a positive number, delete\nfiles older than number of days.\n\nRemoving of old files happens in `mail-source-callback', i.e. no\nold incoming files will be deleted unless you receive new mail.\nYou may also set this variable to nil and call\n`mail-source-delete-old-incoming' interactively." "22.2" (choice (const :tag "immediately" t) (const :tag "never" nil) (integer :tag "days")) mail-source-delete-old-incoming-confirm "If non-nil, ask for confirmation before deleting old incoming files.\nThis variable only applies when `mail-source-delete-incoming' is a positive\nnumber." mail-source-incoming-file-prefix "Incoming" "Prefix for file name for storing incoming mail" string mail-source-report-new-mail-interval 5 "Interval in minutes between checks for new mail." number mail-source-idle-time-delay "Number of idle seconds to wait before checking for new mail." mail-source-movemail-program "If non-nil, name of program for fetching new mail." (choice (const nil) string)] 51)
#@71 A dynamically bound string that says what the current mail source is.
(defvar mail-source-string "" (#$ . 8094))
#@45 Flag indicating when new mail is available.
(defvar mail-source-new-mail-available nil (#$ . 8213))
#@81 Mapping from keywords to default values.
Common keywords should be listed here.
(defvar mail-source-common-keyword-map '((:plugged)) (#$ . 8319))
#@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))) (#$ . 8471))
#@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)) (#$ . 9492))
(defvar mail-source-password-cache nil)
(defvar mail-source-plugged t)
#@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 (#$ . 9831)])
(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\211A@)D\nBBB\207" [type-source x body let* mail-source-bind-1 mail-source-set-1] 5 (#$ . 10202)]))
(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\307\211\307\211\307\211\307\310\307 \211!\203s!@ \311 \312\"\203<\313\202> \"\314 \"\206O\315 \"A@#\316#!$\317\"$\203d$\202e\320D\f\"+!A\211!\204+*\314\f\321\"\204\203\317\321\322	!D!\211A@\211\205\323@\211!\324=\203\266\314
\206\251\325\326\f\"@\211\324\"\211\203\266\202\327=\203\346\314
\206\311\325\326\f\"@\211\330\"\211\203\346\331!\203\341 \211\202\202\314\"\211\203\370\316!\202\316\211%A@)!L\210\202\203.\n\207" [source type mail-source-keyword-map defaults search found (:max 1) nil (:server :user :port) eql :server :host plist-get assoc mail-source-value append t :port symbol-name mail-source-strip-keyword :user apply auth-source-search :password :secret functionp default value keyword auth-info user-auth pass-auth msname --dolist-tail-- asname msdef1 msdef 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 \303BBB\207" [body let mail-source-bind-common-1 (mail-source-set-common-1 source)] 4 (#$ . 12754)]))
(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 (#$ . 13158)])
(autoload 'nnheader-message "nnheader")
#@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 &optional method) "\306\307	!\210\n\204\205\213\212	@\310=\203*\306\211\306\211\311	!\210\312!,\203?\313\314\315\203:\316\317\"\202;\320	@$\210	@\236\211A@)\321\211 \204X\322\323	\"\210\312!!\203p\324\325!\"\210\326\"!\"\327 \210#\204|$\203\205 	\"\"\202\211\330\331\332\217\\+)\207" [plugged source mail-source-plugged path postscript prescript-delay nil mail-source-set-common-1 file mail-source-set-1 file-exists-p nnheader-message 4 "%sReading incoming mail from %s..." format "%s: " "" 0 error "%S is an invalid mail source specification" 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	\211A@)#!\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))) prescript method mail-source-fetcher-alist x found function mail-source-crash-box callback debug-on-quit debug-on-error] 7 (#$ . 13370)])
#@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!\210\310\311\312\n!\203\n\202\313\314\211\315\316\317\320!P#\321 @_\211	\321 A@_\\
\205\214
@ \322 \323\324#!\325\326 !8\211\"@_\211#	\"A@_\\#
A\f#ZV\203\210$\203w\327\330\331!#!\202\200\332\333\334!$\210\316\203\210\335 !\210-\2023-\207" [high2days low2days age diff currday files require gnus-util 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 (#$ . 14777) "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 (#$ . 15750)])
(autoload 'gnus-float-time "gnus-util")
(defvar mail-source-incoming-last-checked-time nil)
(defalias 'mail-source-delete-crash-box #[nil "\306!\205I	\307=\203\310!\207\311\312\n\"!\306\313\f!!\204&\314\313\f!\307\"\210\315\f\307#\210\316	!\205H
\203@\317\320
!!\321V\205H\322 \323	\")\207" [mail-source-crash-box mail-source-delete-incoming mail-source-incoming-file-prefix mail-source-directory incoming mail-source-incoming-last-checked-time file-exists-p t delete-file mm-make-temp-file expand-file-name file-name-directory make-directory rename-file natnump gnus-float-time time-since 86400 current-time mail-source-delete-old-incoming mail-source-delete-old-incoming-confirm] 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 (#$ . 16750)])
(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 (#$ . 18741)])
#@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 \210A\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 --dolist-tail-- mail-source-crash-box callback] 6 (#$ . 19247)])
#@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\3340123456\204\3077\203\320\212\335+!)\202\324\336\337\340\217.\211,\203 	\302=\203\364\322./\"\204\364.\nB/B/\3418&\"*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 (#$ . 19960)])
#@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 (#$ . 21587)])
#@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 (#$ . 22760)])
#@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 (#$ . 23427)])
(defvar mail-source-report-new-mail nil)
(defvar mail-source-report-new-mail-timer nil)
(defvar mail-source-report-new-mail-idle-timer nil)
(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 (#$ . 24153) "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\276@\314\nP!\203\265\315\316\n#\317\nP\320\"\306\211\203\264@\314!\204\253\203a\"\202\234\211 !\321\322\323!!\"#\324\216r\"q\210\325!\210eb\210\326c\210)r\"q\210\327\306\211#\306\310%\210,\330!\210*\306\204\253
\331$\"\\\332 \210A\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 --dolist-tail-- file mail-source-crash-box mm-text-coding-system coding-system-for-read coding-system-for-write #1# #2=#:temp-file callback] 7 (#$ . 25081)])
(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 (#$ . 26722))
#@27 Fetcher for imap sources.
(defalias 'mail-source-fetch-imap #[(source callback) "\306\211\306\211\306\211\306\211?@\306\211AB\306\211CD\306\211EF\307G!\210\310\311\312@\313H\314F\315E\316A&\n\n#\210\317\320FAE$\321\322\323!\317\324F?#CC\206\\I\306JIKLMN\325FEDBL%\203\234\326A\327NO\"A\206\207@L#\203\234\330?\306L#\203\234P\306QRH\331\332\333!!ST\334\216rSq\210\335 \210rLq\210U\203\320\327NO\"\204\320NUBOBO)\336
\206\327\337L\"\306V\211W\203DW@V\340\341L\"\203\342V\343\344\306L%@AA@\202	\342V\345\346\306L%\211Q\203;VJBJ\347\350 \351\261\210\212Q\352\261\210)\306X\353\354\306\355#)\2038\356\357!\210\202%db\210WA\211W\204\343*\360 \210)rSq\210\361\306\211T\306\321%\210,M\362YF\"\\M\363 \210J\203\201\f\203\201J\237J\364\365\366J!!\f\306L$\210\203\215\367L!\210\202\223\370\306L\"\210\371L!\210*\202\265\371L!\210\372\327NO\"O\"O\373\374\375L!\"\210\376L!\210\310	\311\312@\313H\314F\315E\316A&\n\"\210M.\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 --dolist-tail-- case-fold-search callback] 14 (#$ . 26859)])
(provide 'mail-source)
F1l3 Manager
