Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
gnus /
[ HOME SHELL ]
Name
Size
Permission
Action
.dir-locals.el
105
B
-rw-r--r--
canlock.elc
5.71
KB
-rw-r--r--
deuglify.elc
7.85
KB
-rw-r--r--
gmm-utils.elc
5.79
KB
-rw-r--r--
gnus-agent.elc
119.17
KB
-rw-r--r--
gnus-art.elc
262.11
KB
-rw-r--r--
gnus-async.elc
11.71
KB
-rw-r--r--
gnus-bcklg.elc
2.85
KB
-rw-r--r--
gnus-bookmark.elc
25.33
KB
-rw-r--r--
gnus-cache.elc
24.08
KB
-rw-r--r--
gnus-cite.elc
26.28
KB
-rw-r--r--
gnus-cloud.elc
18.45
KB
-rw-r--r--
gnus-cus.elc
39.5
KB
-rw-r--r--
gnus-delay.elc
4.61
KB
-rw-r--r--
gnus-demon.elc
7.52
KB
-rw-r--r--
gnus-diary.elc
8.41
KB
-rw-r--r--
gnus-dired.elc
8.03
KB
-rw-r--r--
gnus-draft.elc
12.03
KB
-rw-r--r--
gnus-dup.elc
4.59
KB
-rw-r--r--
gnus-eform.elc
4.76
KB
-rw-r--r--
gnus-fun.elc
9.93
KB
-rw-r--r--
gnus-gravatar.elc
4.15
KB
-rw-r--r--
gnus-group.elc
154.92
KB
-rw-r--r--
gnus-html.elc
13.41
KB
-rw-r--r--
gnus-icalendar.elc
40.93
KB
-rw-r--r--
gnus-int.elc
58.83
KB
-rw-r--r--
gnus-kill.elc
19.24
KB
-rw-r--r--
gnus-logic.elc
5.15
KB
-rw-r--r--
gnus-mh.elc
2.96
KB
-rw-r--r--
gnus-ml.elc
6.08
KB
-rw-r--r--
gnus-mlspl.elc
6.48
KB
-rw-r--r--
gnus-msg.elc
84.49
KB
-rw-r--r--
gnus-notifications.elc
5.38
KB
-rw-r--r--
gnus-picon.elc
8.06
KB
-rw-r--r--
gnus-range.elc
11.97
KB
-rw-r--r--
gnus-registry.elc
34.53
KB
-rw-r--r--
gnus-rfc1843.elc
1.59
KB
-rw-r--r--
gnus-salt.elc
27.54
KB
-rw-r--r--
gnus-score.elc
74.27
KB
-rw-r--r--
gnus-sieve.elc
8.14
KB
-rw-r--r--
gnus-spec.elc
12.88
KB
-rw-r--r--
gnus-srvr.elc
50.09
KB
-rw-r--r--
gnus-start.elc
138.21
KB
-rw-r--r--
gnus-sum.elc
431.26
KB
-rw-r--r--
gnus-topic.elc
46.53
KB
-rw-r--r--
gnus-undo.elc
4.69
KB
-rw-r--r--
gnus-util.elc
49.29
KB
-rw-r--r--
gnus-uu.elc
55.9
KB
-rw-r--r--
gnus-vm.elc
2.42
KB
-rw-r--r--
gnus-win.elc
10.95
KB
-rw-r--r--
gnus.elc
158.84
KB
-rw-r--r--
gssapi.elc
2.27
KB
-rw-r--r--
legacy-gnus-agent.elc
6.35
KB
-rw-r--r--
mail-source.elc
28.21
KB
-rw-r--r--
message.elc
237.92
KB
-rw-r--r--
mm-archive.elc
2.95
KB
-rw-r--r--
mm-bodies.elc
5.84
KB
-rw-r--r--
mm-decode.elc
55.66
KB
-rw-r--r--
mm-encode.elc
6.13
KB
-rw-r--r--
mm-extern.elc
4.25
KB
-rw-r--r--
mm-partial.elc
3.05
KB
-rw-r--r--
mm-url.elc
9.75
KB
-rw-r--r--
mm-util.elc
24.33
KB
-rw-r--r--
mm-uu.elc
21.99
KB
-rw-r--r--
mm-view.elc
16.82
KB
-rw-r--r--
mml-sec.elc
35.2
KB
-rw-r--r--
mml-smime.elc
10.44
KB
-rw-r--r--
mml.elc
44.72
KB
-rw-r--r--
mml1991.elc
7.59
KB
-rw-r--r--
mml2015.elc
25.61
KB
-rw-r--r--
nnagent.elc
10.44
KB
-rw-r--r--
nnbabyl.elc
16.84
KB
-rw-r--r--
nndiary.elc
38.56
KB
-rw-r--r--
nndir.elc
2.67
KB
-rw-r--r--
nndoc.elc
30.1
KB
-rw-r--r--
nndraft.elc
10.55
KB
-rw-r--r--
nneething.elc
11.45
KB
-rw-r--r--
nnfolder.elc
32.39
KB
-rw-r--r--
nngateway.elc
2.88
KB
-rw-r--r--
nnheader.elc
34.72
KB
-rw-r--r--
nnimap.elc
73.06
KB
-rw-r--r--
nnir.elc
62.86
KB
-rw-r--r--
nnmail.elc
52.09
KB
-rw-r--r--
nnmaildir.elc
90.83
KB
-rw-r--r--
nnmairix.elc
72.33
KB
-rw-r--r--
nnmbox.elc
18.57
KB
-rw-r--r--
nnmh.elc
15.14
KB
-rw-r--r--
nnml.elc
33.63
KB
-rw-r--r--
nnnil.elc
1.63
KB
-rw-r--r--
nnoo.elc
8.63
KB
-rw-r--r--
nnregistry.elc
1.72
KB
-rw-r--r--
nnrss.elc
29.02
KB
-rw-r--r--
nnspool.elc
15.72
KB
-rw-r--r--
nntp.elc
111.69
KB
-rw-r--r--
nnvirtual.elc
18.31
KB
-rw-r--r--
nnweb.elc
16.67
KB
-rw-r--r--
score-mode.elc
4.93
KB
-rw-r--r--
smiley.elc
5.31
KB
-rw-r--r--
smime.elc
18.76
KB
-rw-r--r--
spam-report.elc
11.41
KB
-rw-r--r--
spam-stat.elc
19.39
KB
-rw-r--r--
spam-wash.elc
1.23
KB
-rw-r--r--
spam.elc
80.84
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : nnmail.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\310\311\312\313\314$\210\315\316\313\317\320\301%\210\315\321\313\322\320\316%\210\315\323\313\324\320\316%\210\315\325\313\326\320\316%\210\315\327\313\330\320\316%\210\315\331\313\332\320\333\320\316&\210\315\334\313\335\320\316%\210\315\336\313\337\320\316%\210\315\340\313\341\320\316%\210\342\343\344\345\320\327\346\347&\210\342\350\314\351\320\327\346\352&\210\342\353\313\354\355\356\320\327\346\357& \210\342\360\313\361\355\356\320\327\346\362& \210\342\363\313\364\320\336\320\340\346\352& \210\342\365\313\366\320\331\346\352&\210\342\367\370\371\320\331\346\372&\210\342\373\374\375\320\334\346\376&\210\342\377\313\201@ \320\334\346\201A &\210\342\201B \201C \201D \355\201E \320\334\346\201F & \210\342\201G \313\201H \355\356\320\334\346\201I & \210\342\201J \313\201K \320\316\346\352&\210\201L \201M \201N \201O #\210\342\201P \313\201Q \320\336\346\352&\210\342\201R \313\201S \355\201E \320\336\346\352& \210\342\201T \201U \201V \320\331\346\201W &\210\342\201X \201Y \201Z \320\331\346\201[ &\210\342\201\\ \201] \201^ \320\323\346\201_ &\210\342\201` \313\201a \320\323\346\201_ &\210\342\201b \313\201c \320\323\346\201_ &\210\342\201d \313\201e \320\323\346\201_ &\210\342\201f \313\201g \320\323\346\201h &\210\342\201i \313\201j \320\321\346\201_ &\210\342\201k \313\201l \320\321\346\201_ &\210\342\201m \313\201n \320\327\346\201_ &\210\342\201o \313\201p \355\356\320\316\346\201_ & \210\342\201q \201r \201s \320\340\346\201t &\210\201u \201v \201w \201x \201y \201z \346\201{ &\210\342\201v \201| \201} \320\327\346\201v &\210\342\201~ \201 \201\200 \320\327\346\201\201 &\210\342\201\202 \201\203 \201\204 \320\325\346\201\205 &\210\342\201\206 \201\207 \201\210 \320\325\320\331\346\201\211 & \210\342\201\212 \201\213 \201\214 \320\325\346\201\215 &\210\342\201\216 \201\217 \201\220 \355\201\221 \320\316\346\201\222 & \210\342\201\223 \201\224 \201\225 \355\201E \320\316\346\372& \210\342\201\226 \313\201\227 \355\356\320\316\346\201\230 & \210\342\201\231 \313\201\232 \355\356\320\316\346\352& \210\342\201\233 \313\201\234 \355\356\320\316\346\352& \210\342\201\235 \314\201\236 \355\356\320\316\346\352& \210\342\201\237 \313\201\240 \346\352\355\201\241 &\207" [require gnus nnheader message gnus-util mail-source mm-util gnus-int autoload mail-send-and-exit "sendmail" nil t custom-declare-group nnmail "Reading mail with Gnus." :group nnmail-retrieve "Retrieving new mail." nnmail-prepare "Preparing (or mangling) new mail after retrieval." nnmail-duplicate "Handling of duplicate mail messages." nnmail-split "Organizing the incoming mail in folders." nnmail-files "Mail files." gnus-files nnmail-expire "Expiring old mail." nnmail-procmail "Interfacing with procmail and other mail agents." nnmail-various "Various mail options." custom-declare-variable nnmail-split-methods '(("mail.misc" #1="")) "Incoming mail will be split according to this variable.\n\nIf you'd like, for instance, one mail group for mail from the\n\"4ad-l\" mailing list, one group for junk mail and one for everything\nelse, you could do something like this:\n\n (setq nnmail-split-methods\n \\='((\"mail.4ad\" \"From:.*4ad\")\n (\"mail.junk\" \"From:.*Lars\\\\|Subject:.*buy\")\n (\"mail.misc\" \"\")))\n\nAs you can see, this variable is a list of lists, where the first\nelement in each \"rule\" is the name of the group (which, by the way,\ndoes not have to be called anything beginning with \"mail\",\n\"yonka.zow\" is a fine, fine name), and the second is a regexp that\nnnmail will try to match on the header to find a fit.\n\nThe second element can also be a function. In that case, it will be\ncalled narrowed to the headers with the first element of the rule as\nthe argument. It should return a non-nil value if it thinks that the\nmail belongs in that group.\n\nThe last element should always have \"\" as the regexp.\n\nThis variable can also have a function as its value, and it can\nalso have a fancy split method as its value. See\n`nnmail-split-fancy' for an explanation of that syntax." :type (choice (repeat :tag "Alist" (group (string :tag "Name") (choice regexp function))) (function-item nnmail-split-fancy) (function :tag "Other")) nnmail-crosspost "If non-nil, do crossposting if several split methods match the mail.\nIf nil, the first match found will be used." boolean nnmail-split-fancy-with-parent-ignore-groups "Regexp that matches group names to be ignored when applying `nnmail-split-fancy-with-parent'.\nThis can also be a list of regexps." :version "22.1" (choice (const :tag "none" nil) (regexp :value ".*") (repeat :value (".*") regexp)) nnmail-cache-ignore-groups "Regexp that matches group names to be ignored when inserting message ids into the cache (`nnmail-cache-insert').\nThis can also be a list of regexps." (choice (const :tag "none" nil) (regexp :value ".*") (repeat :value (".*") regexp)) nnmail-keep-last-article "If non-nil, nnmail will never delete/move a group's last article.\nIt can be marked expirable, so it will be deleted when it is no longer last.\n\nYou may need to set this variable if other programs are putting\nnew mail into folder numbers that Gnus has marked as expired." nnmail-use-long-file-names "If non-nil the mail backends will use long file and directory names.\nIf nil, groups like \"mail.misc\" will end up in directories like\n\"mail/misc/\"." nnmail-default-file-modes 384 "Set the mode bits of all new mail files to this integer." integer nnmail-expiry-wait 7 "Expirable articles that are older than this will be expired.\nThis variable can be either a number of days (not necessarily an\ninteger), or one of the symbols `immediate' or `never', meaning\nan article is immediately or never expirable, respectively.\nFor more granular control, see `nnmail-expiry-wait-function'." (choice (const :tag "Immediate" immediate) (const :tag "Never" never) (number :tag "Days")) nnmail-expiry-wait-function "Function to determine how old articles should be before they are expired.\nThe function is called with the name of the group that the expiry\nis to be performed in, and should return a value supported by\n`nnmail-expiry-wait', which it overrides. If this variable is\nnil, the value of `nnmail-expiry-wait' is used instead.\n\nE.g.:\n\n(setq nnmail-expiry-wait-function\n (lambda (group)\n (cond ((string-match-p \"private\" group) 31)\n ((string-match-p \"junk\" group) 1)\n ((string-match-p \"important\" group) \\='never)\n (t 7))))" (choice (const :tag "nnmail-expiry-wait" nil) (function :tag "Custom function")) nnmail-expiry-target 'delete "Variable that says where expired messages should end up.\nThe default value is `delete' (which says to delete the messages),\nbut it can also be a string or a function. If it is a string, expired\nmessages end up in that group. If it is a function, the function is\ncalled in a buffer narrowed to the message in question. The function\nreceives one argument, the name of the group the message comes from.\nThe return value should be `delete' or a group name (a string)." "21.1" (choice (const delete) function string) nnmail-fancy-expiry-targets "Determine expiry target based on articles using fancy techniques.\n\nThis is a list of (\"HEADER\" \"REGEXP\" \"TARGET\") entries. If\n`nnmail-expiry-target' is set to the function\n`nnmail-fancy-expiry-target' and HEADER of the article matches REGEXP,\nthe message will be expired to a group determined by invoking\n`format-time-string' with TARGET used as the format string and the\ntime extracted from the articles' Date header (if missing the current\ntime is used).\n\nIn the special cases that HEADER is the symbol `to-from', the regexp\nwill try to match against both the From and the To header.\n\nExample:\n\n(setq nnmail-fancy-expiry-targets\n \\='((to-from \"boss\" \"nnfolder:Work\")\n (\"Subject\" \"IMPORTANT\" \"nnfolder:IMPORTANT.%Y.%b\")\n (\"from\" \".*\" \"nnfolder:Archive-%Y\")))\n\nIn this case, articles containing the string \"boss\" in the To or the\nFrom header will be expired to the group \"nnfolder:Work\";\narticles containing the string \"IMPORTANT\" in the Subject header will\nbe expired to the group \"nnfolder:IMPORTANT.YYYY.MMM\"; and\neverything else will be expired to \"nnfolder:Archive-YYYY\"." (repeat (list (choice :tag "Match against" (string :tag "Header") (const to-from)) regexp (string :tag "Target group format string"))) nnmail-cache-accepted-message-ids "If non-nil, put Message-IDs of Gcc'd articles into the duplicate cache.\nIf non-nil, also update the cache when copy or move articles." make-obsolete-variable nnmail-spool-file mail-sources "Gnus 5.9 (Emacs 22.1)" nnmail-resplit-incoming "If non-nil, re-split incoming procmail sorted mail." nnmail-scan-directory-mail-source-once "If non-nil, scan all incoming procmail sorted mails once.\nIt scans low-level sorted spools even when not required." nnmail-delete-file-function 'delete-file "Function called to delete files in some mail backends." function nnmail-crosspost-link-function (if (eq 'windows-nt system-type) 'copy-file 'add-name-to-file) "Function called to create a copy of a file.\nThis is `add-name-to-file' by default, which means that crossposts\nwill use hard links. If your file system doesn't allow hard\nlinks, you could set this variable to `copy-file' instead." (radio (function-item add-name-to-file) (function-item copy-file) (function :tag "Other")) nnmail-read-incoming-hook (if (eq system-type 'windows-nt) '(nnheader-ms-strip-cr) nil) "Hook that will be run after the incoming mail has been transferred.\nThe incoming mail is moved from the specified spool file (which normally is\nsomething like \"/usr/spool/mail/$user\") to the user's home\ndirectory. This hook is called after the incoming mail box has been\nemptied, and can be used to call any mail box programs you have\nrunning (\"xwatch\", etc.)\n\nE.g.:\n\n(add-hook \\='nnmail-read-incoming-hook\n (lambda ()\n (call-process \"/local/bin/mailsend\" nil nil nil\n \"read\"\n ;; The incoming mail box file.\n (expand-file-name (user-login-name)\n rmail-spool-directory))))\n\nIf you have xwatch running, this will alert it that mail has been\nread.\n\nIf you use `display-time', you could use something like this:\n\n(add-hook \\='nnmail-read-incoming-hook\n (lambda ()\n ;; Update the displayed time, since that will clear out\n ;; the flag that says you have mail.\n (when (eq (process-status \"display-time\") \\='run)\n (display-time-filter display-time-process \"\"))))" hook nnmail-prepare-incoming-hook "Hook called before treating incoming mail.\nThe hook is run in a buffer with all the new, incoming mail." nnmail-prepare-incoming-header-hook "Hook called narrowed to the headers of each message.\nThis can be used to remove excessive spaces (and stuff like\nthat) from the headers before splitting and saving the messages." nnmail-prepare-incoming-message-hook "Hook called narrowed to each message." nnmail-list-identifiers "Regexp that matches list identifiers to be removed.\nThis can also be a list of regexps." (choice (const :tag "none" nil) (regexp :value ".*") (repeat :value (".*") regexp)) nnmail-pre-get-new-mail-hook "Hook called just before starting to handle new incoming mail." nnmail-post-get-new-mail-hook "Hook called just after finishing handling new incoming mail." nnmail-split-hook "Hook called before deciding where to split an article.\nThe functions in this hook are free to modify the buffer\ncontents in any way they choose -- the buffer contents are\ndiscarded after running the split process." nnmail-spool-hook "A hook called when a new article is spooled." nnmail-large-newsgroup 50 "The number of articles which indicates a large newsgroup or nil.\nIf the number of articles is greater than the value, verbose\nmessages will be shown to indicate the current status." (choice (const :tag "infinite" nil) (number :tag "count")) define-widget nnmail-split-fancy lazy "Widget for customizing splits in the variable of the same name." :tag "Split" (menu-choice :value (any ".*value.*" "misc") :tag "Type" (string :tag "Destination") (list :tag "Use first match (|)" :value (|) (const :format #1# |) (editable-list :inline t nnmail-split-fancy)) (list :tag "Use all matches (&)" :value (&) (const :format #1# &) (editable-list :inline t nnmail-split-fancy)) (list :tag "Function with fixed arguments (:)" :value (:) (const :format #1# :value :) function (editable-list :inline t (sexp :tag "Arg"))) (list :tag "Function with split arguments (!)" :value (!) (const :format #1# !) function (editable-list :inline t nnmail-split-fancy)) (list :tag "Field match" (choice :tag "Field" regexp symbol) (choice :tag "Match" regexp (symbol :value mail)) (repeat :inline t :tag "Restrictions" (group :inline t (const :format #1# -) regexp)) nnmail-split-fancy) (const :tag "Junk (delete mail)" junk)) "mail.misc" "Incoming mail can be split according to this fancy variable.\nTo enable this, set `nnmail-split-methods' to `nnmail-split-fancy'.\n\nThe format of this variable is SPLIT, where SPLIT can be one of\nthe following:\n\nGROUP: Mail will be stored in GROUP (a string).\n\n(FIELD VALUE [- RESTRICT [- RESTRICT [...]]] SPLIT): If the message\n field FIELD (a regexp) contains VALUE (a regexp), store the messages\n as specified by SPLIT. If RESTRICT (a regexp) matches some string\n after FIELD and before the end of the matched VALUE, return nil,\n otherwise process SPLIT. Multiple RESTRICTs add up, further\n restricting the possibility of processing SPLIT.\n\n(| SPLIT...): Process each SPLIT expression until one of them matches.\n A SPLIT expression is said to match if it will cause the mail\n message to be stored in one or more groups.\n\n(& SPLIT...): Process each SPLIT expression.\n\n(: FUNCTION optional args): Call FUNCTION with the optional args, in\n the buffer containing the message headers. The return value FUNCTION\n should be a split, which is then recursively processed.\n\n(! FUNCTION SPLIT): Call FUNCTION with the result of SPLIT. The\n return value FUNCTION should be a split, which is then recursively\n processed.\n\njunk: Mail will be deleted. Use with care! Do not submerge in water!\n Example:\n (setq nnmail-split-fancy\n \\='(| (\"Subject\" \"MAKE MONEY FAST\" junk)\n ...other.rules.omitted...))\n\nFIELD must match a complete field name. VALUE must match a complete\nword according to the `nnmail-split-fancy-syntax-table' syntax table.\nYou can use \".*\" in the regexps to match partial field names or words.\n\nFIELD and VALUE can also be Lisp symbols, in that case they are expanded\nas specified in `nnmail-split-abbrev-alist'.\n\nGROUP can contain \\& and \\N which will substitute from matching\n\\(\\) patterns in the previous VALUE.\n\nExample:\n\n(setq nnmail-split-methods \\='nnmail-split-fancy\n nnmail-split-fancy\n ;; Messages from the mailer daemon are not crossposted to any of\n ;; the ordinary groups. Warnings are put in a separate group\n ;; from real errors.\n \\='(| (\"from\" mail (| (\"subject\" \"warn.*\" \"mail.warning\")\n \"mail.misc\"))\n ;; Non-error messages are crossposted to all relevant\n ;; groups, but we don't crosspost between the group for the\n ;; (ding) list and the group for other (ding) related mail.\n (& (| (any \"ding@ifi\\\\.uio\\\\.no\" \"ding.list\")\n (\"subject\" \"ding\" \"ding.misc\"))\n ;; Other mailing lists...\n (any \"procmail@informatik\\\\.rwth-aachen\\\\.de\" \"procmail.list\")\n (any \"SmartList@informatik\\\\.rwth-aachen\\\\.de\" \"SmartList.list\")\n ;; Both lists below have the same suffix, so prevent\n ;; cross-posting to mkpkg.list of messages posted only to\n ;; the bugs- list, but allow cross-posting when the\n ;; message was really cross-posted.\n (any \"bugs-mypackage@somewhere\" \"mypkg.bugs\")\n (any \"mypackage@somewhere\" - \"bugs-mypackage\" \"mypkg.list\")\n ;;\n ;; People...\n (any \"larsi@ifi\\\\.uio\\\\.no\" \"people.Lars Magne Ingebrigtsen\"))\n ;; Unmatched mail goes to the catch all group.\n \"misc.misc\"))" nnmail-split-abbrev-alist '((any . "from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc") (mail . "mailer-daemon\\|postmaster\\|uucp") (to . "to\\|cc\\|apparently-to\\|resent-to\\|resent-cc") (from . "from\\|sender\\|resent-from") (nato . "to\\|cc\\|resent-to\\|resent-cc") (naany . "from\\|to\\|cc\\|sender\\|resent-from\\|resent-to\\|resent-cc") (list . "list-id\\|list-post\\|x-mailing-list\\|x-beenthere\\|x-loop")) "Alist of abbreviations allowed in `nnmail-split-fancy'." (repeat (cons :format "%v" symbol regexp)) nnmail-message-id-cache-length 1000 "The approximate number of Message-IDs nnmail will keep in its cache.\nIf this variable is nil, no checking on duplicate messages will be\nperformed." (choice (const :tag "disable" nil) (integer :format "%v")) nnmail-message-id-cache-file (nnheader-concat gnus-home-directory ".nnmail-cache") "The file name of the nnmail Message-ID cache." file nnmail-treat-duplicates 'warn "If non-nil, nnmail keep a cache of Message-IDs to discover mail duplicates.\nThree values are valid: nil, which means that nnmail is not to keep a\nMessage-ID cache; `warn', which means that nnmail should insert extra\nheaders to warn the user about the duplication (this is the default);\nand `delete', which means that nnmail will delete duplicated mails.\n\nThis variable can also be a function. It will be called from a buffer\nnarrowed to the article in question with the Message-ID as a\nparameter. It should return nil, `warn' or `delete'." (choice (const :tag "off" nil) (const warn) (const delete)) nnmail-extra-headers '(To Newsgroups Cc) "Extra headers to parse.\nIn addition to the standard headers, these extra headers will be\nincluded in NOV headers (and the like) when backends parse headers." "24.3" (repeat symbol) nnmail-split-header-length-limit 2048 "Header lines longer than this limit are excluded from the split function." nnmail-mail-splitting-charset "Default charset to be used when splitting incoming mail." symbol nnmail-mail-splitting-decodes "Whether the nnmail splitting functionality should MIME decode headers." nnmail-split-fancy-match-partial-words "Whether to match partial words when fancy splitting.\nNormally, regexes given in `nnmail-split-fancy' are implicitly surrounded\nby \"\\=\\<...\\>\". If this variable is true, they are not implicitly surrounded\nby anything." nnmail-split-lowercase-expanded "Whether to lowercase expanded entries (i.e. \\N) when splitting mails.\nThis avoids the creation of multiple groups when users send to an address\nusing different case (i.e. mailing-list@domain vs Mailing-List@Domain)." nnmail-debug-splitting "If non-nil, record mail splitting actions.\nThese will be logged to the \"*nnmail split*\" buffer." "27.1"] 10) #@47 The buffer used for splitting incoming mails. (defvar nnmail-article-buffer " *nnmail incoming*" (#$ . 19515)) #@80 List of group/article elements that say where the previous split put messages. (defvar nnmail-split-history nil (#$ . 19632)) #@44 Syntax table used by `nnmail-split-fancy'. (defvar nnmail-split-fancy-syntax-table (byte-code "\301 \302\303\304#\210)\207" [table make-syntax-table modify-syntax-entry 37 "."] 4) (#$ . 19764)) #@33 Hook called before saving mail. (defvar nnmail-prepare-save-mail-hook nil (#$ . 19967)) (defvar nnmail-split-tracing nil) (defvar nnmail-split-trace nil) (defvar nnmail-inhibit-default-split-group nil) (defalias 'nnmail-request-post #[(&optional server) "\300\301!\207" [mail-send-and-exit nil] 2]) #@31 Coding system used in nnmail. (defvar nnmail-file-coding-system 'raw-text (#$ . 20272)) #@37 Coding system used in reading inbox (defvar nnmail-incoming-coding-system mm-text-coding-system (#$ . 20366)) #@30 Coding system for file name. (custom-declare-variable 'nnmail-pathname-coding-system nil '(#$ . 20482) :group 'nnmail-various :type 'coding-system) #@38 Insert FILE in server buffer safely. (defalias 'nnmail-find-file #[(file) "q\210ed|\210\306\211\3071# \310 \f \f\311 !\210+\3120\202% \210\306*\207" [nntp-server-buffer after-insert-file-functions format-alist nnmail-file-coding-system nnmail-pathname-coding-system file-name-coding-system nil (file-error) mm-auto-mode-alist insert-file-contents t auto-mode-alist coding-system-for-read file] 3 (#$ . 20636)]) #@27 Make file name for GROUP. (defalias 'nnmail-group-pathname #[(group dir &optional file) "\306\307!!\310 \311\312 \313 \n\f#+\314\312#\315 !\306 \204( \316 P!\203/ \307 \"\202> \307 \314\311 \313 \n\f#+\"!)\206F \317P\207" [dir group to from string nnmail-use-long-file-names file-name-as-directory expand-file-name nnheader-replace-duplicate-chars-in-string 47 95 subst-char-in-string 46 nnheader-translate-file-chars file-directory-p "" file] 6 (#$ . 21061)]) #@122 Return an assoc of group names and active ranges. nn*-request-list should have been called before calling this function. (defalias 'nnmail-get-active #[nil "rq\210\301 )\207" [nntp-server-buffer nnmail-parse-active] 1 (#$ . 21542)]) #@66 Parse the active file in the current buffer and return an alist. (defalias 'nnmail-parse-active #[nil "eb\210\305\306\307\310#\204 db\210\311\312\307\310#\203 \313c\210\202 eb\210p\307\211\211\211 m\204z \3141m `\315 }\210\316\f!\2119\203E \317\n!\202M \n\247\205M \320\n!\316\f!\211\247\205i \316\f!\211\247\205i \n BD B\2110\202q \210\202r \210~\210\321y\210\202) -\207" [min max group group-assoc buffer re-search-forward "[\\\"]" nil t re-search-backward "[][';?()#]" 92 (error) point-at-eol read symbol-name number-to-string 1] 6 (#$ . 21782)]) #@32 Coding system for active file. (custom-declare-variable 'nnmail-active-file-coding-system ''utf-8-emacs '(#$ . 22352) :group 'nnmail-various :type 'coding-system) #@34 Save GROUP-ASSOC in ACTIVE-FILE. (defalias 'nnmail-save-active #[(group-assoc file-name) "\n\205# \n\306\307! \310\216r q\210\311 !)r q\210\312\313\211\f\313\314%\210,)\207" [nnmail-active-file-coding-system coding-system-for-write file-name #1=#:temp-buffer #2=#:temp-file group-assoc generate-new-buffer " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nnmail-generate-active write-region nil 0] 7 (#$ . 22521)]) #@49 Generate an active file from group-alist ALIST. (defalias 'nnmail-generate-active #[(alist) "\302 \210\303 \211A\242\211\203! \304\305@A@AA@@$c\210\202 db\210\306\307\303\310#\2053 \311\312!\210\202$ )\207" [group alist erase-buffer nil format "%s %d %d y\n" search-backward "\\." t delete-char 1] 5 (#$ . 22975)]) #@131 Find out whether this FILE is to be split into GROUP only. If SOURCE is a directory spec, try to return the group name component. (defalias 'nnmail-get-split-group #[(file source) "@\306=\2050 \307 !\310\211\310\211 \310\211 \311!\210\312\313 !\314P \"\205. \315 \316\211\224#.\207" [source file predicate suffix path postscript directory file-name-nondirectory nil mail-source-set-1 string-match regexp-quote "$" substring 0 prescript-delay prescript] 5 (#$ . 23304)]) (defalias 'nnmail-process-babyl-mail-format #[(func artnum-func) "\306\307\310\211\211\211\211 'm\204eb\210\311\312\310\306#\210\307\225b\210\307\224\307\225|\210`\211\313\314\310\306#\204= \315\316\310\306#\204= \313\317!\210`}\210eb\210\320\321!\203M \322\323!\210\324\325!\210db\210\212\326\327\310\306#\203f \330\224\330\225{\202\202 \212\326\331\310\306#\203u \332 \210\333c\210)\334y\210\335\336 \211\337\261\210)\212\326\340\f\306#\205\234 \341\330\224\330\225{!\211\205\234 \342c\210\306)\204\245 \306\202\310 ~\210`\n\\dU\204\274 \212`\n\\b\210\320\343!)\203\306 `\n\\b\210\310\202\310 \306~\210 \203\341 \311\344\310\306#\203\335 \307\224b\210\202\341 dSb\210\345\330!\210\212\214\f`}\210eb\210\346 ()#\210 Td*b\210\202 .\207" [end do-search content-length message-id start count t 0 nil re-search-forward "\f\n0, *unseen,+\n\\(\\*\\*\\* EOOH \\*\\*\\*\n\\)?" search-forward "\n\n" search-forward-regexp "^[^:]*\\( .*\\|\\)$" " \f" looking-at ">From " replace-match "X-From-Line: " run-hooks nnmail-prepare-incoming-header-hook re-search-backward "^Message-ID[ ]*:[ \n ]*\\(<[^>]*>\\)" 1 "^Message-ID[ ]*:" beginning-of-line "Original-" -1 "Message-ID: " nnmail-message-id "\n" "^Content-Length:[ ]*\\([0-9]+\\)" string-to-number "X-" " " "^ " delete-char nnmail-check-duplication case-fold-search func artnum-func] 7]) #@59 Put point at the beginning of the next Unix mbox message. (defalias 'nnmail-search-unix-mail-delim #[nil "\302\211\204G \303\304\302\305#\204 \306\211\202 \212\307 \210o\204* \212\310y\210\302f)\311=\203C \212\312y\210\313\314!\203: \312y\210\202. \313\315!)\203C \316)\202 \307 \210*\316=\207" [found case-fold-search nil re-search-forward "^From " t no beginning-of-line -1 10 1 looking-at ">From \\|From " "[^ \n :]+[ \n ]*:" yes] 5 (#$ . 25147)]) (put 'nnmail-search-unix-mail-delim 'byte-optimizer 'byte-compile-inline-expand) #@62 Put point at the beginning of the current Unix mbox message. (defalias 'nnmail-search-unix-mail-delim-backward #[nil "\302\211\204G \303\304\302\305#\204 \306\211\202 \212\307 \210o\204* \212\310y\210\302f)\311=\203C \212\312y\210\313\314!\203: \312y\210\202. \313\315!)\203C \316)\202 \307 \210*\316=\207" [found case-fold-search nil re-search-backward "^From " t no beginning-of-line -1 10 1 looking-at ">From \\|From " "[^ \n :]+[ \n ]*:" yes] 5 (#$ . 25694)]) (defalias 'nnmail-process-unix-mail-format #[(func artnum-func) "\306\307\310\211\211\211\211\211 , -eb\210\311\312\310\306#\203# \307\224b\204; \313\314\315 \203. \316\202/ \317\315 \2066 \320 #\210\202xm\204x`\310 \321\322\310\306#\203Q `S\202b \323\324!\203a m\204a \325y\210\202Q `}\210eb\210\311\326\310\306#\203v \327\325!\202\222 \212\311\330\310\306#\203\205 \331 \210\332c\210)\325y\210\333\334 \211\335\261\210eb\210\311\336\310\306#\204\242 \310\202\256 \337\327\325!!\331 \210\340c\210\341\342!\210db\210~\210` \203\362 \325y\210` \\\211b\210 dU\204\324 TdU\203\331 d\202\362 \323\343!\203\344 \202\362 \323\344!\203\360 \325\224\202\362 \310\n\203\374 \nb\210\202Yb\210\310\211 . -.\204K\311\312\310\306#\204\345\211.\202\212\331 \210o\204-\212\346y\210\310f)\347=\203G\212\325y\210\323\350!\203=\325y\210\2021\323\351!)\203G\352.)\202\331 \210.*\352=\204Ydb\210\212\214 `}\210eb\210,T,\353\f/0#\210d*\nb\210\202; ,.\207" [head-end skip end content-length message-id start t 0 nil re-search-forward "^From " error "Error, unknown mail format! (Possibly corrupted %s `%s'.)" buffer-file-name "file" "buffer" buffer-name search-forward "\n\n" looking-at "From \\|[^ ]+:" 1 "^Message-ID[ ]*:[ \n ]*\\(<[^>]+>\\)" match-string "^Message-ID[ ]*:" beginning-of-line "Original-" "Message-ID: " nnmail-message-id "\n" "^Content-Length:[ ]*\\([0-9]+\\)" string-to-number "X-" run-hooks nnmail-prepare-incoming-header-hook "From " "[ ]*\n\\(From \\)" no -1 10 ">From \\|From " "[^ \n :]+[ \n ]*:" yes nnmail-check-duplication count case-fold-search found func artnum-func] 9]) (defalias 'nnmail-process-mmdf-mail-format #[(func artnum-func &optional junk-func) "\306\307\310\311\211\211 eb\210\312 \311\307#\203 \313y\204# \314\315!\210\202\264 m\204\264 `\211\316\317\311\307#\2037 `S\202H \320\321!\203G m\204G \313y\210\2027 `}\210eb\210\312\322\311\307#\203\\ \323\313!\202x \212\324\325\311\307#\203k \326 \210\327c\210)\313y\210\330\331 \211\332\261\210\333\334!\210db\210~\210\312 \311\307#\203\217 \326 \210\202\222 db\210\212\214\n`}\210eb\210 T\335 !$\210d*b\210\336y\210\202# .\207" [end message-id start count case-fold-search delim "^$" t 0 nil re-search-forward 1 error "Error, unknown mail format! (Possibly corrupted.)" search-forward "\n\n" looking-at "From \\|[^ ]+:" "^Message-ID[ ]*:[ \n ]*\\(<[^>]+>\\)" match-string re-search-backward "^Message-ID[ ]*:" beginning-of-line "Original-" "Message-ID: " nnmail-message-id "\n" run-hooks nnmail-prepare-incoming-header-hook nnmail-check-duplication 2 func artnum-func junk-func] 7]) (defalias 'nnmail-process-maildir-mail-format #[(func artnum-func) "\304\305eb\210e\306\307\305\304#\203 `S\202& \310\311!\203% m\204% \312y\210\202 `}\210eb\210\313\314\305\304#\203: \315\312!\202V \212\316\317\305\304#\203I \320 \210\321c\210)\312y\210\322\323 \211\324\261\210\325\326!\210~\210\212eb\210\327\n #\210+\312\207" [message-id case-fold-search func artnum-func t nil search-forward "\n\n" looking-at "From \\|[^ ]+:" 1 re-search-forward "^Message-ID:[ ]*\\(<[^>]+>\\)" match-string re-search-backward "^Message-ID[ ]*:" beginning-of-line "Original-" "Message-ID: " nnmail-message-id "\n" run-hooks nnmail-prepare-incoming-header-hook nnmail-check-duplication] 5]) (make-obsolete-variable 'nnmail-group-names-not-encoded-p "Group names are always decoded" "27.1") #@231 Go through the entire INCOMING file and pick out each individual mail. FUNC will be called with the buffer narrowed to each mail. INCOMING can also be a buffer object. In that case, the mail will be copied over from that buffer. (defalias 'nnmail-split-incoming #[(incoming func &optional exit-func group artnum-func junk-func) "\203 \204 \306DC\202 \nr\307 !q\210\310 \210\311\f!\203' \312\f!\210\202/ \313\f!\210)\314 \315U\203: \315\202~ eb\210\212\316\317!\210)\320\321!\204O \320\322!\203X \323 \"\202~ \320\324!\203i \325 #\202~ \320\326!\203x \327 \"\202~ \330 \" \203\207 \210\331p!\210*\207" [group nnmail-resplit-incoming nnmail-split-methods nnmail-article-buffer incoming nnmail-incoming-coding-system "" get-buffer-create erase-buffer bufferp insert-buffer-substring mm-insert-file-contents buffer-size 0 run-hooks nnmail-prepare-incoming-hook looking-at "\f" "BABYL OPTIONS:" nnmail-process-babyl-mail-format "" nnmail-process-mmdf-mail-format "Return-Path:" nnmail-process-maildir-mail-format nnmail-process-unix-mail-format kill-buffer coding-system-for-read func artnum-func junk-func exit-func] 4 (#$ . 29596)]) #@136 Look at the headers and return an alist of groups that match. FUNC will be called with the group name to determine the article number. (defalias 'nnmail-article-group #[(func &optional trace junk-func) "\206 \306p\307\211\211 \310 !\2030 G\311U\2030 7\2040 @@8 @@!BC\211\202<r9q\210\312 \210\313\f!\210eb\314\315\307\316#\203J `\202K d}\210eb\210:\203_ ; <\317ed\"\210)eb\210\320\321\307\316#\203s \322\323\316\211#\210\202b eb\210m\204\217 \324=!=W\204\211 `\325 |\210\311y\210\202v eb\210\326\327!\210>\211?\203\241 \307@9\203\254 \330!\204\322 \242:\203\322 <\2036\242\211 AG\331U\205\316 A@;\205\316 AA@;)\20469\203\341 \330!\203\341 \202\342 \332 B\3331\371 B \206\365 7?\205\365 \3340\202 C\335\336\337C#\210\340\311!\210)\341 D\342D!D\343D>\203!E\203!E\343!\210\344\343D\"\211D\2032\345\346D\"*\202\325 \203\304F\204C \204\304db\210 \211A\242\211@ \204[\nA@\347\232\204\246\3501\214\nA@;\203\203\351\352 \"\353\nA@\307\316# G\211 H\203}\354 !G*\202\210\nA@ !0\202\220\210\2026\2036\355 \"\2046 8 !B B\2026 \2046\nA@\347\232\204\2677\2046\n@8\n@!BC\2026 \204\3257\204\325\3568\356!BC>\203@\203p I\357\360!\210\361 \210@\237\307 >\211 J\203\fJ@>\362>p\"\210\363c\210JA\211J\204\365*eb\210\364\365!\210Iq\210)~\210 \366\232?\205;\307 K\343 >@\211K\2038\344K \"\202% \237))-\207" [nnmail-split-methods grp method group-art obuf methods (("bogus" #1="")) nil sequencep 1 erase-buffer insert-buffer-substring search-forward "\n\n" t mail-decode-encoded-word-region re-search-forward "\\( ?\n[ ]+\\)+" replace-match " " move-to-column point-at-eol run-hooks nnmail-split-hook fboundp 2 nnmail-split-fancy (error) ("bogus") nnheader-message 5 "Error in `nnmail-split-methods'; using `bogus' mail group: %S" sit-for ("bogus") delete-dups junk delq mapcar #[(group) " !B\207" [group func] 3] #1# (error) string-match "\\\\[0-9&]" re-search-backward nnmail-expand-newtext assoc "bogus" nnheader-set-temp-buffer "*Split Trace*" gnus-add-buffer prin1 "\n" gnus-configure-windows split-trace (junk) nnmail-inhibit-default-split-group func nntp-server-buffer nnmail-mail-splitting-decodes nnmail-mail-splitting-charset mail-parse-charset nnmail-split-header-length-limit trace nnmail-split-tracing nnmail-split-trace top-element method-function error-info split junk-func nnmail-crosspost pos expand restore --dolist-tail-- elem] 6 (#$ . 30766)]) #@103 Insert how many lines there are in the body of the mail. Return the number of characters in the body. (defalias 'nnmail-insert-lines #[nil "\302\211\212eb\210\303\304\302\305#\204 db\210\306c\210d`Z\307`d\"\310u\210\212\311\312\302\305#\2032 `\313y\210`|\210)\314 \210\315\316 \317]\"c\210+\207" [chars lines nil search-forward "\n\n" t "\n" count-lines -1 re-search-backward "^Lines: " 1 beginning-of-line format "Lines: %d\n" 0] 4 (#$ . 33221)]) #@59 Insert an Xref line based on the (group . article) alist. (defalias 'nnmail-insert-xref #[(group-alist) "\212eb\210\302\303\304\305#\204 db\210\306c\210\307u\210\310\311\304\305#\203% \312\224\313y\210`|\210\314\315\316 \"c\210\203U \203@ \314\317@@@A#\202L \320\314\317@@@A#\321\"c\210A\211\2040 \306c)\207" [group-alist enable-multibyte-characters search-forward "\n\n" nil t "\n" -1 re-search-backward "^Xref: " 0 1 format "Xref: %s" system-name " %s:%d" encode-coding-string utf-8] 6 (#$ . 33681)]) #@47 Remove excessive whitespace from all headers. (defalias 'nnmail-remove-leading-whitespace #[nil "eb\210\300\301\302\303#\205 \304\305\303\"\210\202 \207" [re-search-forward "^\\([^ :]+: \\) +" nil t replace-match "\\1"] 4 (#$ . 34199)]) #@47 Remove list identifiers from Subject headers. (defalias 'nnmail-remove-list-identifiers #[nil ":\203 \302\303\304#\202 \211\205= eb\210\305\306 \307Q\310\311#\203- \312\224\313\225|\210\314 \210\202 \305\315\310\311#\205= \316\224\316\225|\210\314 )\207" [nnmail-list-identifiers regexp mapconcat identity " *\\|" re-search-forward "^Subject: +\\(R[Ee]: +\\)*\\(" " *\\)" nil t 2 0 beginning-of-line "^Subject: +\\(\\(R[Ee]: +\\)+\\)R[Ee]: +" 1] 5 (#$ . 34444)]) #@49 Translate TAB characters into SPACE characters. (defalias 'nnmail-remove-tabs #[nil "\300ed\301\302\303%\207" [subst-char-in-region 9 32 t] 6 (#$ . 34920)]) #@102 Header line matching mailer producing bogus References lines. See `nnmail-ignore-broken-references'. (custom-declare-variable 'nnmail-broken-references-mailers "^X-Mailer:.*\\(Eudora\\|Pegasus\\)" '(#$ . 35084) :group 'nnmail-prepare :version "23.1" :type 'regexp) #@109 Ignore the References line and use In-Reply-To Eudora has a broken References line, but an OK In-Reply-To. (defalias 'nnmail-ignore-broken-references #[nil "eb\210\301\302\303#\205+ eb\210\301\304\302\303#\203 \305 \210\306c\210eb\210\301\307\302\303#\205+ \310\311\303\"\207" [nnmail-broken-references-mailers re-search-forward nil t "^References:" beginning-of-line "X-Gnus-Broken-Eudora-" "^\\(In-Reply-To:[^\n]+\\)\n[ ]+" replace-match "\\1"] 4 (#$ . 35356)]) (byte-code "\300\301\302\"\210\303\301\302\304#\210\305\306\302\"\207" [defalias nnmail-fix-eudora-headers nnmail-ignore-broken-references make-obsolete "Emacs 23.1" custom-add-option nnmail-prepare-incoming-header-hook] 4) #@190 Utility function to directly post a message to an nnmail-derived group. Calls ACCEPT-FUNC (which should be `nnchoke-request-accept-article') to actually put the message in the right group. (defalias 'nnmail-do-request-post #[(accept-func &optional server) "\306\307\310\311\312!\313\"!\314\211\203_ \n@\315 \" \316\f \"\204K \317\f!\204K \320\321\322\f\"!\203F \323\f \"\203? \317\f\314\211 $\204K \324\325\f\"\204K \324\326\f\"\210 A@\"\204W \314)\nA\211\204 \314+\207" [success mbx --dolist-tail-- gnus-command-method to-newsgroup gnus-active-hashtb t message-unquote-tokens message-tokenize-header message-fetch-field "Newsgroups" ", " nil gnus-group-prefixed-name gethash gnus-activate-group gnus-y-or-n-p format "No such group: %s. Create it? " gnus-request-create-group error "Couldn't create group %s" "No such group: %s" accept-func] 6 (#$ . 36055)]) #@98 Fancy splitting method. See the documentation for the variable `nnmail-split-fancy' for details. (defalias 'nnmail-split-fancy #[nil "\304 p\305\216\306\n!\210\307 !+\207" [#1=#:buffer #2=#:table nnmail-split-fancy-syntax-table nnmail-split-fancy syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table nnmail-split-it] 2 (#$ . 36934)]) (defvar nnmail-split-cache nil) (defalias 'nnmail-split-it #[(split) "\306 \204\n \306\202\357 ;\203 \307 !\210\310 \311\"C\202\357 \312=\203* \307\313!\210\312C\202\357 @\314=\2039 \315\316 A\"\202\357 @\317=\203X \306 A\203S A\316 @!\211\203B \n)\202\357 @\320=\203n \307 !\210\316\212\321 A!)!\202\357 @\322=\203\202 A@\316 AA@!!\202\357 \236\211\203@\306\211d A@ $\f9\203\241 \f%\236A b\203:\323A\306\311#\203:\324 \307 !\210 AA\325\225\326\225\327\225 & ' ( )'S)@\330=\203\375 (b\210\323)A@&\311#\203\363 \325\225'V\203\363 \306\211)\202\316 )AA\211)\202\316 )\2036(b\210\331!\210\316)@!\306 *\211 +\2035+@\211*$\235\204,*$B$+A\211+\204*,\202\241 $,\202\357 @ A@ AA\306\211\211 , - . ) /\f9\203a\f%\236A\fG\327Y\203z\332\f\325\327#\333\230\203z\332\f\327\"\334.\fG\327Y\203\223\332\f\335\"\333\230\203\223\332\f\325\335#\334-)@\330=\203\245)AA\211)\202\225)A@\203\2620?\202\2640\203\275\334\211.-\336/9\203\315/%\236A\202\317/\337.\206\326\340\341\f\342-\206\337\343\260, ,B B\316 !.)\207" [cached-pair split done nnmail-split-cache value end-point nil nnmail-log-split nnmail-expand-newtext t junk "junk" & mapcan nnmail-split-it | : eval ! re-search-backward match-data 0 1 2 - set-match-data substring ".*" "" -2 "^\\(\\(" "\\):.*\\)" "\\<" "\\(" "\\)" "\\>" split-result nnmail-split-abbrev-alist after-header-name start-of-value end split-rest sp --dolist-tail-- regexp partial-rear partial-front field nnmail-split-fancy-match-partial-words] 9]) (defalias 'nnmail-expand-newtext #[(newtext &optional fancyp) "G\306\307\211\211\211\211 W\203\261 W\2036 H\310U\2046 T\211\202 U\204F \311 #\fBW\203\250 \312TH\211\313U\204u \314Y\203l \315X\204u \316 !\fB\202\250 \313U\203\200 \306\202\204 \317Z\203\215 \n\320\\\n\224\203\250 \203\240 \n\224\n\225{\227\202\245 \n\224\n\225{\fBT\211\202 \203\275 \321\322\f\237\"\202\276 .\207" [newtext did-expand N beg expanded c 0 nil 92 substring t 38 49 57 char-to-string 48 3 apply concat pos len fancyp nnmail-split-lowercase-expanded] 8]) (defalias 'nnmail-activate #[(backend &optional force) "\305 \210\306\211\211\307\310\311 \"!J\203] \f\204] \3121& \307\310\313 \"!J0\202( \210\306\211\203v \314\n!\3158\262\211\203v \3161I \307\310\317 \"!J0\202K \210\320\211\203] \320=\204] \321 \"\203v \212 \320=\204m \307\310\317 \"!L\210\307\310\322 \"! \210)+\323\207" [file-time timestamp file backend force nnheader-init-server-buffer nil intern format "%s-group-alist" (error) "%s-active-file" file-attributes 5 (error) "%s-active-timestamp" none time-less-p "%s-request-list" t] 4]) (defalias 'nnmail-message-id #[nil "\300\301 \302Q\207" ["<" message-unique-id "@totally-fudged-out-message-id>"] 3]) (defvar nnmail-cache-buffer nil) (defalias 'nnmail-cache-open #[nil "?\206 \303 !?\205' r\304\305!\211q\210\306 \210\307\n!\203! \310\n!\210\311\312!\210p)\207" [nnmail-treat-duplicates nnmail-cache-buffer nnmail-message-id-cache-file buffer-live-p get-buffer-create " *nnmail message-id cache*" gnus-add-buffer file-exists-p nnheader-insert-file-contents set-buffer-modified-p nil] 2]) (defalias 'nnmail-cache-close #[nil "\205b \306 !\205b \307 !\205b r q\210db\210\310\311\312\313\n$\203' \314 \210e`|\210\315\316 !!\2046 \317\316 !\313\"\210\320ed \312\321%\210\322\312!\210\312p\211 \211 \205W \306\323 !\211!\205W )\205a \324\f!\210\325 *\207" [nnmail-treat-duplicates nnmail-cache-buffer nnmail-message-id-cache-length nnmail-message-id-cache-file buf buffer buffer-live-p buffer-modified-p search-backward "\n" nil t beginning-of-line file-exists-p file-name-directory make-directory nnmail-write-region silent set-buffer-modified-p get-buffer kill-buffer gnus-prune-buffers] 7]) (defalias 'nnmail-cache-insert #[(id grp &optional subject sender) ";\205\203 \206 \n\206 \306\307\310 \f%\210) \205\203 \211 \2052 \311\312!\211!\2052 )\2049 \313 \210rq\210db\210 \203~ \314\230\204~ \315\316 \"\203~ :\203c \317\320\321#\202e \211 \205p \322 \"?\205z \323 \324\261)\202\202 \324\261)\207" [id grp gnus-newsgroup-name subject sender nnmail-treat-duplicates "UNKNOWN" run-hook-with-args nnmail-spool-hook buffer-live-p get-buffer nnmail-cache-open "" gnus-methods-equal-p nnmail-cache-primary-mail-backend mapconcat identity "\\|" string-match " " "\n" nnmail-cache-buffer buffer gnus-command-method nnmail-cache-ignore-groups regexp] 7]) (defalias 'nnmail-cache-primary-mail-backend #[nil " B\306\211\211 \204< \203< @ A\307\f\310\"\203\n \311\312\313\f@\"!\211\203\n \314\n!\203\n \nJ\203\n \f\211\203 ,\207" [gnus-select-method gnus-secondary-select-methods get-new-mail res be be-list nil gnus-method-option-p respool intern format "%s-get-new-mail" boundp] 5]) (defalias 'nnmail-cache-fetch-group #[(id) "\205- \205- r q\210db\210\303\n\304\305#\205, \306 \210\307\304w\210\310\311!?\205, \312u\210`\313 {)\207" [nnmail-treat-duplicates nnmail-cache-buffer id search-backward nil t beginning-of-line "^\n " looking-at "[ \n]" 1 point-at-eol] 4]) #@509 Split this message into the same group as its parent. This function can be used as an entry in `nnmail-split-fancy', for example like this: (: nnmail-split-fancy-with-parent) For a message to be split, it looks for the parent message in the References or In-Reply-To header and then looks in the message id cache file (given by the variable `nnmail-message-id-cache-file') to see which group that message was put in. This group is returned. See the Info node `(gnus)Fancy Mail Splitting' for more details. (defalias 'nnmail-split-fancy-with-parent #[nil "\306\307!\206 \306\310!\311\211 :\203 \312\313 \314#\202 \205| \315!\237 \211 \205; \316\317!\211!\205; )\204B \320 \210 \311 \211 \203z @\321!\206Y \n\211\322\235\204o \f\203q \n\203q \323\f\n\"\203q \311A\211\204L *\n,\207" [refstr references res nnmail-split-fancy-with-parent-ignore-groups regexp nnmail-cache-buffer message-fetch-field "references" "in-reply-to" nil mapconcat #[(x) "\301\302\"\207" [x format "\\(%s\\)"] 3] "\\|" gnus-split-references buffer-live-p get-buffer nnmail-cache-open nnmail-cache-fetch-group ("delayed" "drafts" "queue") string-match buffer x --dolist-tail--] 5 (#$ . 42453)]) (defalias 'nnmail-cache-id-exists-p #[(id) "\205 r q\210db\210\303\n\304\305#)\207" [nnmail-treat-duplicates nnmail-cache-buffer id search-backward nil t] 4]) (defalias 'nnmail-fetch-field #[(header) "\212\214\301 \210\302!*\207" [header message-narrow-to-head message-fetch-field] 2]) (defalias 'nnmail-check-duplication #[(message-id func artnum-func &optional junk-func) "\306\307!\210\310!\311 \205% \312>\203 \202% \313 !\203$ !\202% \314 \311eb\210\315\316\314\311#\210\317 \210\320\321\"c\210) \204Z \322\314#\237\211!\210\323 @@\"\210\202\223 \f\324\267\202\210 \314\202\223 \311eb\210\315\316\314\311#\210\317 \210\325\326\261\210\322!\237\211!\210)\202\223 \322!\237\211!\210 \203\241 B\211\202\244 ed|,\207" [message-id duplication case-fold-search nnmail-treat-duplicates action group-art run-hooks nnmail-prepare-incoming-message-hook nnmail-cache-id-exists-p t (warn delete) functionp nil re-search-forward "^message-id[ ]*:" beginning-of-line format "X-Gnus-Mail-Source: %s\n" nnmail-article-group nnmail-cache-insert #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (delete 96 warn 101)) "Gnus-Warning: This is a duplicate of message " "\n" mail-source-string func artnum-func junk-func nnmail-split-history] 5]) (defvar nnmail-fetched-sources nil) (defalias 'nnmail-get-value #[(&rest args) "\302\303\304\"!\305 !\205 J)\207" [args sym intern apply format boundp] 4]) #@25 Read new incoming mail. (defalias 'nnmail-get-new-mail #[(method exit-func temp &optional group spool-func) "\305 \n \306\f&\207" [method exit-func temp group spool-func nnmail-get-new-mail-1 nil] 7 (#$ . 45129)]) #@125 Tell us whether the mail-sources specify that `nnmail-get-new-mail' should be called once per group or once for all groups. (defalias 'nnmail-get-new-mail-per-group #[nil "\301\236\206 \302\236\207" [mail-sources group directory] 2 (#$ . 45352)]) (defalias 'nnmail-get-new-mail-1 #[(method exit-func temp group in-group spool-func) "\306\307\211 \307 \306 :\310\311;\"\203\265 \203\265 \211A\242\211:\203\265 :@\312=\203R \n\203R \313\314;!\315\nQ\316\317#C\320;<=\n\211>&\210)\306::@\321=\203\223 ?\204\223 \n\203\223 \306\211 @ A\306\211 B C\306\211 D E\322:!\210\323:\324\325\326\327\330\nAP\331BBE!D\":.F\203 :F\235\203\246 \306:\202 :FBF:\nB\202 \n\205d\332;!\210\333\334!\210\335 \210\n\211A\242\211:\203$\3361 \337:\325\326\340\341\342\343\344\345\346;\"!D\343>D\347\350\351\352\306\353\354\343:DEFE\343\344\345\355;\"!D\257E!\"0\202 G\356\357:G#\210)\307\211\203\305 \f\\ T\202\305 \307U\203<H\203^\360\361\362;:@$\210\202^\363\310\364;\"\310\365;\"\"\210<\203R< \210\333\366!\210\360\361\367; $\210\370 \210\333\371!.\207" [mail-sources sources fetching-sources i new total nil 0 nnmail-get-value "%s-get-new-mail" group gnus-group-find-parameter symbol-name ":" mail-source t nnmail-get-new-mail-1 directory mail-source-set-1 append :predicate gnus-byte-compile lambda (file) string-equal ((file-name-nondirectory file)) nnmail-activate run-hooks nnmail-pre-get-new-mail-hook nnmail-cache-open (error quit) mail-source-fetch (file orig-file) nnmail-split-incoming file quote intern format "%s-save-mail" or in-group if (equal file orig-file) nnmail-get-split-group orig-file "%s-active-number" message "Mail source %s failed: %s" nnheader-message 4 "%s: Reading incoming mail (no new mail)...done" nnmail-save-active "%s-group-alist" "%s-active-file" nnmail-read-incoming-hook "%s: Reading incoming mail (%d new)...done" nnmail-cache-close nnmail-post-get-new-mail-hook source method exit-func temp spool-func nnmail-scan-directory-mail-source-once predicate suffix path postscript prescript-delay prescript nnmail-fetched-sources cond mail-source-plugged] 19]) #@134 Say whether an article that is TIME old in GROUP should be expired. If TIME is nil, then return the cutoff time for oldness instead. (defalias 'nnmail-expired-article-p #[(group time force &optional inhibit) "\203 \204 \306 \207\307\207\n\203 \n !\206 \f\211 \310=\204( \204, \203, \311\202l \312=\203? \204; \306 \202l \307\202l \313\232\203I \311\202l \247\205l \314 ! \204\\ \315 !\202l \3161j \317 \315 !\"0\202l \210\311)\207" [force time nnmail-expiry-wait-function group nnmail-expiry-wait days current-time t never nil immediate (0 0) days-to-time time-since (error) time-less-p inhibit] 5 (#$ . 47510)]) (defalias 'nnmail-expiry-target-group #[(target group) "\305\306 !\203\f \n! \307=?\205A \310 \305\211 \311 \"A@\262$\204* \312 !\205A \313 \305\314\211$\211 :\205@ \fA\205@ \315 \fA\"))\207" [nnmail-cache-accepted-message-ids target group gnus-newsrc-hashtb group-art nil functionp delete gnus-request-group gethash gnus-request-create-group gnus-request-accept-article t gnus-group-mark-article-read] 9]) #@75 Return a target expiry group determined by `nnmail-fancy-expiry-targets'. (defalias 'nnmail-fancy-expiry-target #[(group) "\306\211\307\310!\206 \311\307\312!\206 \311\307\313! \314 \f\2039 \3151) \316\f!0\202; \317\320\321 !\"\210\322 )\202; \322 \323 !\306 \211 \203\306 @\211 @\211\324=\203\236 \325 A@\n\"\204\222 \325 A@ \"\203\236 \326 !\203w \202{ \327 ! !\330\331!\203\211 \331\n!\202\214 \332\n!\311\232)\203\236 \333 AA@\f\"\202\275 \324=\204\275 \325 A@\307!\206\260 \311\"\203\275 \333 AA@\f\" A\211 \204I \306 .\207" [header case-fold-search from to date target nil message-fetch-field "from" "" "to" "date" delete (error) date-to-time message "%s" error-message-string current-time reverse to-from string-match functionp gmm-regexp-concat fboundp rmail-dont-reply-to mail-dont-reply-to format-time-string err nnmail-fancy-expiry-targets regexp-target-pair --dolist-tail-- message-dont-reply-to-names mail-dont-reply-to-names] 5 (#$ . 48555)]) #@69 Check (and modify) the syntax of the message in the current buffer. (defalias 'nnmail-check-syntax #[nil "\214\301 \210\302\303\304\305\302#?\205 \306\307 \310\261*\207" [case-fold-search message-narrow-to-head t re-search-forward "^Message-ID[ ]*:" nil "Message-ID: " nnmail-message-id "\n"] 4 (#$ . 49553)]) #@51 Do a `write-region', and then set the file modes. (defalias 'nnmail-write-region #[(start end filename &optional append visit lockname) " \306\f \n &\210\307\f\"*\207" [nnmail-file-coding-system nnmail-pathname-coding-system file-name-coding-system coding-system-for-write start end write-region set-file-modes filename append visit lockname nnmail-default-file-modes] 7 (#$ . 49873)]) #@61 Make status NAME and VALUE part of the current status line. (defalias 'nnmail-replace-status #[(name value) "\214\303 \210\304 \305 \235\"\n\203 \nBB\306\307!\210db\210\310\311!\312\261*\207" [status name value message-narrow-to-head nnmail-decode-status delq message-remove-header "status" "Status: " nnmail-encode-status "\n"] 3 (#$ . 50278)]) #@42 Return a status-value alist from STATUS. (defalias 'nnmail-decode-status #[nil "eb\210\303\304\305\306#\205n \305\211\211\214`\303\307\305\306#\203 `S\202! d}\210eb\210\303\310\305\306#\203k \311\312!\305f\313=\204> \314\202b \315u\210\305f\316=\204^ \317\320!\204S \321\202b \311\312!\312\225b\210\202b \322p!\n BB\202& )+\207" [status value name re-search-forward "^Status: " nil t "^[^ ]" "[^ =]+" match-string 0 61 "yes" 1 34 looking-at "[^ ]" "no" read] 5 (#$ . 50640)]) #@37 Return a status string from STATUS. (defalias 'nnmail-encode-status #[(status) "\301\302\303#\207" [status mapconcat #[(elem) "@\301\302\303A\"\203 \304A!\202 AQ\207" [elem "=" string-match "[ ]" prin1-to-string] 5] " "] 4 (#$ . 51137)]) #@65 Generate an overview of where the last mail split put articles. (defalias 'nnmail-split-history #[nil "\204 \306\307!\210 r\310\311!q\210p\312 \210\n\313\211\314\211\314 \315 \210\316\317!\210+\211 rq\210\320 \210)\313 \211 \205^ @\321\322\323\324#!\210\321\325!\210 A\211 \204B \313*\326!\210+\207" [nnmail-split-history default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list error "No current split history" get-buffer-create "*nnmail split history*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook fundamental-mode princ mapconcat #[(ga) "@\301\302A!Q\207" [ga ":" int-to-string] 4] ", " "\n" internal-temp-output-buffer-show inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output elem --dolist-tail--] 6 (#$ . 51389) nil]) #@60 Remove all instances of GROUP from `nnmail-split-history'. (defalias 'nnmail-purge-split-history #[(group) " \203 \302\303 @\"\240\210 \211A\210\202 \304\305\"\211)\207" [nnmail-split-history history seq-remove #[(e) "@ \230\207" [e group] 2] delq nil] 4 (#$ . 52223)]) #@33 Say whether GROUP has new mail. (defalias 'nnmail-new-mail-p #[(group) "\304\n\203 \305 \n\211A\242\"\203 \306\304\211\204 *\207" [nnmail-split-history found his group nil assoc t] 5 (#$ . 52508)]) #@91 Check to see if point is within the headers of a unix mail message. Doesn't change point. (defalias 'nnmail-within-headers-p #[nil "`\212\301 \205 \302\303\304#?*\207" [pos nnmail-search-unix-mail-delim-backward search-forward "\n\n" t] 4 (#$ . 52722)]) (defalias 'nnmail-log-split #[(split) "\203 \nB \205! r\304\305!q\210db\210\306\307!\310\311\312 \"\313\261)\207" [nnmail-split-tracing split nnmail-split-trace nnmail-debug-splitting get-buffer-create "*nnmail split*" format-time-string "%FT%T" " " format "%S" "\n"] 5]) (byte-code "\300\301!\210\302\303!\207" [run-hooks nnmail-load-hook provide nnmail] 2)
Close
