;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\304\"\210\306\307!\210\306\310!\210\311\312\313\314\315\316\317\320&\207" [autoload auth-source-search "auth-source" pop3-movemail "pop3" pop3-get-message-count require 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\306DD\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\352BBBBB\257\353\346\347\341\354\315\320\355\324\356	BBBBB\257\357BBBBBBBBBBBB\257\257FE&	\210\302\360\304\305\361DD\362\310\363\314\364&\210\302\365\304\305\366DD\367\314\370%\210\302\371\304\305\372DD\373\314\364%\210\302\374\304\305\375DD\376\314\377%\210\302\201@\304\305\201ADD\201B\314\201C%\210\302\201D\304\305\201EDD\201F\314\201G%\210\302\201H\304\305\201IDD\201J\310\201K\314\201L&\210\302\201M\304\305\201NDD\201O\310\201K\314\364&\210\302\201P\304\305\201QDD\201R\314\201S%\210\302\201T\304\305\201UDD\201V\314\201W%\210\302\201X\304\305\201YDD\201Z\314\201W%\210\302\201[\304\305\201\\DD\201]\310\201^\314\201_&\207" [mail-source-imap-streams mail-source-imap-authenticators custom-declare-variable mail-sources funcall function #[0 "\300\207" [((file))] 1 #1=""] "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'." :version "24.4" :link (custom-manual "(gnus)Mail Source Specifiers") :type choice (const :tag "None" nil) repeat :tag "List" :format "%[Value Menu%] %v" :value (file) (list :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))) (group :inline t (const :format #1# :value :leave) (choice :format "%{Leave mail on server%}:\n		%[Value Menu%] %v" :value nil (const :tag "Don't leave mails" nil) (const :tag "Leave all mails" t) (number :tag "Leave mails for this many days" :value 14))))) (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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Primary source for incoming mail.\nIf non-nil, this maildrop will be checked periodically for new mail." sexp mail-source-flash #[0 "\300\207" [t] 1 #1#] "If non-nil, flash periodically when mail is available." mail-source-crash-box #[0 "\300\207" ["~/.emacs-mail-crash-box"] 1 #1#] "File where mail will be stored while processing it." file mail-source-directory #[0 "\207" [message-directory] 1 #1#] "Directory where incoming mail source files (if any) will be stored." directory mail-source-default-file-modes #[0 "\300\207" [384] 1 #1#] "Set the mode bits of all new mail files to this integer." integer mail-source-delete-incoming #[0 "\300\207" [10] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" ["Incoming"] 1 #1#] "Prefix for file name for storing incoming mail." string mail-source-report-new-mail-interval #[0 "\300\207" [5] 1 #1#] "Interval in minutes between checks for new mail." number mail-source-idle-time-delay #[0 "\300\207" [5] 1 #1#] "Number of idle seconds to wait before checking for new mail." mail-source-movemail-program #[0 "\300\207" ["movemail"] 1 #1#] "If non-nil, name of program for fetching new mail." "26.2" (choice (const nil) string)] 49)
#@71 A dynamically bound string that says what the current mail source is.
(defvar mail-source-string "" (#$ . 8052))
#@45 Flag indicating when new mail is available.
(defvar mail-source-new-mail-available nil (#$ . 8171))
#@81 Mapping from keywords to default values.
Common keywords should be listed here.
(defvar mail-source-common-keyword-map '((:plugged)) (#$ . 8277))
#@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) (:leave)) (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))) (#$ . 8429))
#@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)) (#$ . 9459))
(defvar mail-source-password-cache nil)
(defvar mail-source-plugged t)
#@56 Strip the leading colon off the KEYWORD.

(fn KEYWORD)
(defalias 'mail-source-strip-keyword #[257 "\300\301!\302\303O!\207" [intern symbol-name 1 nil] 5 (#$ . 9798)])
#@13 

(fn TYPE)
(defalias 'mail-source-bind-1 #[257 "\301\302\236A\"\207" [mail-source-keyword-map mapcar #[257 "\300
@!\301D\207" [mail-source-strip-keyword nil] 3 "\n\n(fn DEFAULT)"]] 5 (#$ . 9972)])
#@701 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.

(fn TYPE-SOURCE &rest BODY)
(defalias 'mail-source-bind '(macro . #[385 "\300@!\301\302\303\304\"BC\305\306A@DBBBE\207" [mail-source-bind-1 with-suppressed-warnings lexical mapcar car dlet mail-source-set-1] 9 (#$ . 10179)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mail-source-bind lisp-indent-function 1 put edebug-form-spec (sexp body)] 5)
#@15 

(fn SOURCE)
(defalias 'mail-source-set-1 #[257 "\211
A\262\242\211\236A\301\302\211\211\211\211\211\303\211\203O\211@\211\304=\203\"\305\202#\211\306
\"\2062\307\f\"A@\310
!\311\203?\202@\312D
\"\262\f\266
A\266\202\202\210\306\313\"\204b\311\313\314!D!\262\211A\262	\242\211\262\205\342\315@\211\262!\316=\203\227\306\206\213\317\320\n\"@\211\262	\316\"\211\262\203\227\202\335\321=\203\306\306\206\254\317\320\n\"@\211\262	\322\"\211\262\203\306\323!\203\302
 \211\262\202\335
\202\335\306\"\211\262\203\327\310!\202\335\310A@!L\210\202b\207" [mail-source-keyword-map (:max 1) nil (:server :user :port) :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] 18 (#$ . 11233)])
(defalias 'mail-source-bind-common-1 #[0 "\301\302\"\207" [mail-source-common-keyword-map mapcar #[257 "\300
@!\301D\207" [mail-source-strip-keyword nil] 3 "\n\n(fn DEFAULT)"]] 3])
#@15 

(fn SOURCE)
(defalias 'mail-source-set-common-1 #[257 "\211
A\262\242\211\236A\302\211	\211\205K\211@\303
@\211\262!\304\"\211\262\203+\305!\202B\236\211\262\203=\305A@!\202B\305A@!L\210
A\266\202\202
\207" [mail-source-keyword-map mail-source-common-keyword-map nil mail-source-strip-keyword plist-get mail-source-value] 11 (#$ . 12271)])
#@102 Return a `let' form that binds all common variables.
See `mail-source-bind'.

(fn SOURCE &rest BODY)
(defalias 'mail-source-bind-common '(macro . #[385 "\300 \301\302\303\304\"BC\305\306DBBBE\207" [mail-source-bind-common-1 with-suppressed-warnings lexical mapcar car dlet mail-source-set-common-1] 9 (#$ . 12640)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mail-source-bind-common lisp-indent-function 1 put edebug-form-spec (sexp body)] 5)
#@40 Return the value of VALUE.

(fn VALUE)
(defalias 'mail-source-value #[257 "\211;\203\207\211<\203\211@9\203\300
@!\203\301
\302\"\207\207" [fboundp eval t] 4 (#$ . 13119)])
(autoload 'nnheader-message "nnheader")
#@240 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.

(fn SOURCE CALLBACK &optional METHOD)
(defalias 'mail-source-fetch #[770 "\306\307!\210	\204\205\275\212@\310=\203)\306\211\211\211\311!\210\312\n!,\203=\313\314\315\2037\316\317\"\2028\320@$\210@\236A@\321
\204O\322\323\"\210\312 !\203f\324\325 \"\210\326 \"\262
\327 \210\211!\204q\"\203z\"\202\271\3301\210\"0\202\271#\204\266\331\316\332\333\n>\203\250\334\n!\333
>A\335\240\210\211\262
\202\252	A@#!\204\266\322\336!\210\321\262
\\\266\202))\207" [plugged mail-source-plugged path postscript prescript-delay prescript 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 (error) yes-or-no-p "Mail source %s error (%s).  Continue? " :password copy-sequence "********" "Cannot get new mail" mail-source-fetcher-alist mail-source-crash-box debug-on-quit debug-on-error mail-source-ignore-errors] 13 (#$ . 13347)])
#@140 Remove incoming files older than AGE days.
If CONFIRM is non-nil, ask for confirmation before removing a file.

(fn &optional AGE CONFIRM)
(defalias 'mail-source-delete-old-incoming #[512 "\302\303!\210\304 \305!\203\202\306\307\310\311\312\313	!P#\262
\211\205e\211@\314\315\316#\317!\320
8\262
A\262\321\322\"!V\203`\203P\323\324\325#!\202Y\326\327\330$\210\311\203`\331!\210\266\202\207" [mail-source-directory mail-source-incoming-file-prefix require gnus-util current-time natnump 30 nil directory-files t "\\`" regexp-quote replace-regexp-in-string "\\`.*/\\([^/]+\\)\\'" "\\1" file-attributes 5 time-to-number-of-days time-subtract y-or-n-p format-message "Delete old (> %s day(s)) incoming mail file `%s'? " gnus-message 8 "Deleting old (> %s day(s)) incoming mail file `%s'." delete-file] 13 (#$ . 14654) "P"])
#@80 Call CALLBACK on the mail file.  Pass INFO on to CALLBACK.

(fn CALLBACK INFO)
(defalias 'mail-source-callback #[514 "\301!\203\302!\303
8\262
\304U\203\301!\203\305!\210\304\207
\"\207" [mail-source-crash-box file-exists-p file-attributes 7 0 delete-file] 5 (#$ . 15512)])
(defvar mail-source-incoming-last-checked-time nil)
(defalias 'mail-source-delete-crash-box #[0 "\306!\205G	\307=\203\310!\207\311\312\n\"!\306\313!!\204%\314\313!\307\"\210\315\307#\210\316	!\205E\f\203>\317\320\321\f!\"\205E\322 \323	
\"\262
\207" [mail-source-crash-box mail-source-delete-incoming mail-source-incoming-file-prefix mail-source-directory mail-source-incoming-last-checked-time mail-source-delete-old-incoming-confirm file-exists-p t delete-file make-temp-file expand-file-name file-name-directory make-directory rename-file natnump time-less-p 86400 time-since current-time mail-source-delete-old-incoming] 5])
#@47 Move FROM to TO using movemail.

(fn FROM TO)
(defalias 'mail-source-movemail #[514 "\303
!\204\304\305\"\207\306\307!!\310\211\306!\262\306!\262\311!\204\306\311!\204.\310\262\202\306\312!\313
8\262
\314U\203A\310\262\202\306\315\216\212\316\317!\262\320\321\322\323	\310\310\n\257!\"\262
)\311!\203j\324\n\325#\210\326!\203x\327!\314U\203\203\211\247\203\203\211\314U\204\305
q\210eb\210\330\331\310\332#\204\305\333ed\334\335$\210db\210\336\310x\210`d|\210eb\210\337\340!\203\261e\314\225|\210\341\342\343\344 #!\204\302\304\345\344 \"\210\310\262*\346!\203\320\347!\210\207" [default-directory mail-source-movemail-program mail-source-default-file-modes file-writable-p error "Can't write to crash box %s.  Not moving mail" file-truename expand-file-name nil file-exists-p file-attributes 7 0 #[0 "\300\207" [nil] 1] generate-new-buffer " *mail source loss*" "/" apply call-process append set-file-modes nofollow buffer-modified-p buffer-size search-forward "older revision" t subst-char-in-region 10 32 " 	" looking-at "movemail: " yes-or-no-p format "movemail: %s (%s return).  Continue? " buffer-string "%s" buffer-live-p kill-buffer] 14 (#$ . 16448)])
#@16 

(fn PROGRAM)
(defalias 'mail-source-fetch-with-program #[257 "\302\303\211\211	&\304=\207" [shell-file-name shell-command-switch call-process nil 0] 8 (#$ . 17658)])
#@36 

(fn SCRIPT SPEC &optional DELAY)
(defalias 'mail-source-run-script #[770 "\203\300!\203 \210\202\301\302\"!\210\211\205\303
!\207" [functionp mail-source-call-script format-spec sleep-for] 7 (#$ . 17836)])
#@15 

(fn SCRIPT)
(defalias 'mail-source-call-script #[257 "\302\303!\210\304\305!\306\307\310\"\203\311\211\224O\262\312\306\306	&\262
\211\203=\211\311U\204=\313 \210\314\315!\210\316!\210\317\320\321 \"\207\322!\207" [shell-file-name shell-command-switch require gnus gnus-get-buffer-create " *mail-source-stderr*" nil string-match "& *$" 0 call-process split-window-vertically other-window 1 switch-to-buffer message "Mail source error: %s " buffer-string kill-buffer] 10 (#$ . 18063)])
#@56 Fetcher for single-file sources.

(fn SOURCE CALLBACK)
(defalias 'mail-source-fetch-file #[514 "\306\211\211\211\307!\210\310\311\fBC\n#\210\312\313\"\314\f\"\2033\315
\"\310	\311\fBC\"\210\316 \210\2024\317-\207" [path postscript prescript-delay prescript mail-source-crash-box mail-source-string nil mail-source-set-1 mail-source-run-script 116 format "file:%s" mail-source-movemail mail-source-callback mail-source-delete-crash-box 0] 7 (#$ . 18570)])
#@54 Fetcher for directory sources.

(fn SOURCE CALLBACK)
(defalias 'mail-source-fetch-directory #[514 "\306\211\211\211\211\211\307!\210\310
\311\nBC\f#\210\312\313\314\n\"\315\n\316\317	!\320P#\211\203]\211@\321
!\203V
!\203V\322
\"\203V\323\"\\\262\310\311\nBC\"\210\324 \210
A\266\202\202)\210)\211\262
.\207" [predicate suffix path postscript prescript-delay prescript nil mail-source-set-1 mail-source-run-script 116 0 format "directory:%s" directory-files t regexp-quote "$" file-regular-p mail-source-movemail mail-source-callback mail-source-delete-crash-box mail-source-string mail-source-crash-box] 9 (#$ . 19043)])
#@56 Fetcher for single-file sources.

(fn SOURCE CALLBACK)
(defalias 'mail-source-fetch-pop #[514 "\306\211\211\211\211\211\211\211\211\211\211\211\"#$%&'\307!\210\310'\311B\312(B\313$B\314#B\315\"B\257&#\210\316\317$\"#$\316\320\"$#$\203]\321$P)B\202_)\306
)*\n\303=\203\203\206\202\322+\"A\206\202\323\316\324\"$#!
\203\244\325\326
\311B\312(B\313$B\314#B\315\"B\257\"!\202\f
\f\203\257\f(!\202\f
\327\330!\210\"$#\n\331=\203\304\331\202\305\332	,-./0123\204\3374\203\350\212\333(!)\202\n
\3341\366\212\333(!)0\202\n
\335\322+\"+\"+\336
@A\"\262
.\262
\211\203X
\n\303=\203(
\322+\"\204(
B+B+\337$\"5\232\2038
\3066\310%\311B\312(B\313$B\314#B\315\"B\257\"\210\340 \210\202d
\335\322+\"+\"+\341*\266\204.\f\207" [leave stream authentication password function program nil mail-source-set-1 mail-source-run-script 112 116 115 80 117 format "%s:%s:%s" "pop:%s@%s" "MAILHOST=" assoc read-passwd "Password for %s at %s: " mail-source-fetch-with-program format-spec require pop3 apop pass pop3-movemail (error) delq signal mail-source-callback mail-source-delete-crash-box 0 user port server postscript prescript-delay prescript mail-source-crash-box process-environment mail-source-string mail-source-password-cache pop3-leave-mail-on-server pop3-stream-type pop3-authentication-scheme pop3-port pop3-mailhost pop3-maildrop pop3-password debug-on-quit debug-on-error mail-source-primary-source mail-source-new-mail-available] 15 (#$ . 19694)])
#@47 Check whether there is new mail.

(fn SOURCE)
(defalias 'mail-source-check-pop #[257 "\306\211\211\211\211\211\211\211\211\211\211\211\307
!\210\310\311$\310\312#\203A\313PB\202C\306
\n\303=\203w\206f\314 \"A\206f\315\310\316#!\314 \"\204wB B 
\206\321\f\206\321\317\320!\210\n\321=\203\224\321\202\225\322!\"#$%&\204\251'\203\260\212\323 )\202\320\3241\274\212\323 )0\202\320\325\314 \" \" \326
@A\"\262
-\262
\211\203\337\211\327V(\202\352\325\314 \" \" *\266\203.\f\207" [leave stream authentication password function program nil mail-source-set-1 format "%s:%s:%s" "pop:%s@%s" "MAILHOST=" assoc read-passwd "Password for %s at %s: " require pop3 apop pass pop3-get-message-count (error) delq signal 0 user port server postscript prescript-delay prescript process-environment mail-source-string 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] 13 (#$ . 21241)])
#@450 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 #[0 "\203	C\202\n	\211\205\"\211@@\302=\203\303
@!\210\211A\262
\202\n\207" [mail-source-primary-source mail-sources pop mail-source-check-pop] 3 (#$ . 22328)])
#@68 Handler for `display-time' to indicate when new mail is available.
(defalias 'mail-source-new-mail-p #[0 "\203	\203\303\304 \210)	\207" [mail-source-flash mail-source-new-mail-available visible-bell t ding] 1 (#$ . 22985)])
(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 #[0 "?\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 #[0 "\301\216\302!)\207" [mail-source-primary-source #[0 "\301\211\207" [mail-source-report-new-mail-idle-timer nil] 2] mail-source-check-pop] 2] 0] 5])
#@112 Toggle whether to report when new mail is available.
This only works when `display-time' is enabled.

(fn ARG)
(defalias 'mail-source-report-new-mail #[257 "\204\306\307!\210\211\204	?\202\310
!\311V\211\n\203 \312\n!\210\203(\312!\210\313\211\211\203I\314\315!\210\316\317\320
_\320
_\321#\322\323\324\"\210\325\326!\207\313\327\323\324\"\210\325\330!\207" [mail-source-primary-source mail-source-report-new-mail mail-source-report-new-mail-timer mail-source-report-new-mail-idle-timer display-time-mail-function mail-source-report-new-mail-interval error "Need to set `mail-source-primary-source' to check for new mail" prefix-numeric-value 0 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"] 7 (#$ . 23696) "P"])
#@52 Fetcher for maildir sources.

(fn SOURCE CALLBACK)
(defalias 'mail-source-fetch-maildir #[514 "\306\211\211\307!\210\310\306\311\312\n\"\204\n\313P	\211\203\234\211@\314\nP!\203\225\315\316\n#\317\nP\320\"\211\203\224\211@\314
!\204\215\203J
\f\"\202~
\211\f\321\322\320\"\323\324\"\216r\211q\210\325!\210eb\210\326c\210)r\211q\210\327\306\211\306\310%\210*\266\330
!\210*\306\204\215\331\"\\\262\332 \210
A\266\202\2023\210
A\266\202\202\210)\211\262
+\207" [function subdirs path mail-source-string mail-source-crash-box mm-text-coding-system nil mail-source-set-1 0 string-match "/$" "/" file-directory-p format "maildir:%s%s" directory-files t generate-new-buffer " *temp file*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents "



\n" write-region delete-file mail-source-callback mail-source-delete-crash-box coding-system-for-read coding-system-for-write] 15 (#$ . 24613)])
(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 (#$ . 26158))
#@49 Fetcher for imap sources.

(fn SOURCE CALLBACK)
(defalias 'mail-source-fetch-imap #[514 "\306\211\211\211\211\211\211\211\211\211\211\211\211\211?@ABCDEF\307!\210\310\311@B\312GB\313FB\314EB\315AB\257\n#\210\316\317FAE$\320\321\322!\316\323F?#CC\206_H\306
HI\324FEDB%\203\257
\325A\326J\"A\206\204@#\203\257
?<\203\225?\202\230?C\211\211\203\246
\211@?\327?\306#\203\236
K\306
L\330\331?\"\210G\321\332\333\"\334\335\"\216r\211q\210\336 \210r	q\210M\203\350MBJ\235\204\350MBJBJ)\337
\206\357\340\"\211\203N
\211@\341\342
\"\203
\343
\344\345\306%@AA@\202
\343
\346\347\306%\211\262\203G
\211	B\262	\350\351 \352\261\210\212\353\261\210)\306N\354\355\306\333#)\203D
\356\357!\210\2021
db\210
A\266\202\202\362\210\360 \210)r\211q\210\361\306\211\306\320%\210*\266\362\fF\"\\\262	\363 \210\203\211
\f\203\211
\237\262\364\365\366!!\f\306$\210\203\225
\367!\210\202\233
\370\306	\"\210)\266\211A\262
)\202\231\210\371!\266\202\307
\371!\210\372\326J\"J\"J\373\374\375!\"\210\376!\210\310	\311@B\312GB\313FB\314EB\315AB\257\"\210*\266\206.\207" [dontexpunge postscript prescript-delay prescript fetchflag predicate nil mail-source-set-1 mail-source-run-script 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 message "Fetching from %s..." " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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 " 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 mail-source-crash-box imap-shell-program mail-source-string mail-source-password-cache mail-source-imap-file-coding-system coding-system-for-write imap-password case-fold-search] 22 (#$ . 26295)])
(provide 'mail-source)