;ELC ;;; compiled by amu@mit.edu on Wed Dec 30 12:35:35 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/mailcrypt-3.5.1/mc-remail.el ;;; emacs version 19.34.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mc-remail.el' was compiled for Emacs 19.29 or later")) (byte-code "АБ!€АВ!€АГ!€ДЕЖ\"€ДЗЖ\"€ИЙКЏ‡" [require mail-utils sendmail mailcrypt autoload mc-cleanup-recipient-headers "mc-toplev" mc-encrypt-message nil (byte-code "АБ!‡" [require mailalias] 2) ((error))] 3) #@382 Create a remailer structure. ADDR is the remailer's Email address, a string. ID is the remailer's public key ID (a string) or nil if the same as ADDR. PROPS is a list of properties, as strings. PRE-ENCR is a list of pre-encryption functions. Its elements will be called with the remailer structure itself as argument. POST-ENCR is similar, but for post-encryption functions. (defalias 'mc-remailer-create #[(addr id props pre-encr post-encr) "А \n\f Ї‡" [remailer addr id props pre-encr post-encr] 6 (#$ . 706)]) (put (quote mc-remailer-create) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@51 Test whether REMAILER is a valid remailer struct. (defalias 'mc-remailerp #[(remailer) "<… ўА=‡" [remailer] 2 (#$ . 1324)]) (put (quote mc-remailerp) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Return the Email address of REMAILER. (defalias 'mc-remailer-address #[(remailer) "A@‡" [remailer] 1 (#$ . 1542)]) (put (quote mc-remailer-address) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@70 Return the userid with which to look up the public key for REMAILER. (defalias 'mc-remailer-userid #[(remailer) "А 8† ‰A@)Г\n!A@)‡" [2 remailer addr mail-extract-address-components] 3 (#$ . 1756)]) (put (quote mc-remailer-userid) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Return the property list for REMAILER (defalias 'mc-remailer-properties #[(remailer) "А 8‡" [3 remailer] 2 (#$ . 2055)]) (put (quote mc-remailer-properties) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@55 Return the list of pre-encryption hooks for REMAILER. (defalias 'mc-remailer-pre-encrypt-hooks #[(remailer) "А 8‡" [4 remailer] 2 (#$ . 2277)]) (put (quote mc-remailer-pre-encrypt-hooks) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@56 Return the list of post-encryption hooks for REMAILER. (defalias 'mc-remailer-post-encrypt-hooks #[(remailer) "А 8‡" [5 remailer] 2 (#$ . 2529)]) (put (quote mc-remailer-post-encrypt-hooks) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'mc-remailer-remove-property #[(remailer prop) "А В 8)Г\"Е\f\" ‰A@) З 8†- ‰A@)Й!A@))\f К 8) Л 8)\f Б\f \fЇ.‡" [append remailer 3 nil props delete prop 2 addr mail-extract-address-components 4 5 post-encr pre-encr id] 7]) #@175 List of header fields to include in response blocks. These will be copied into the deepest layer of the response block to help you identify it when it is used to Email you. (defvar mc-response-block-included-headers (quote ("From" "To" "Newsgroups")) (#$ . 3046)) #@67 A string which marks an Email address as belonging to a remailer. (defvar mc-remailer-tag "(*REMAILER*)" (#$ . 3317)) #@458 The file containing a Levien format list of remailers. The file is read by `mc-read-levien-file' and `mc-reread-levien-file'. The file should include lines of the following form (other lines are ignored): $remailer{"NAME"} = " PROPERTIES"; PROPERTIES is a space-separated set of strings. This format is named after Raphael Levien, who maintains a list of active remailers. Do "finger rlist@publius.net" for the latest copy of his list. (defvar mc-levien-file-name "~/.remailers" (#$ . 3442)) #@879 An alist of remailer chains defined by the user. Format is ((NAME . REMAILER-LIST) (NAME . REMAILER-LIST) ...) NAME must be a string. REMAILER-LIST may be an arbitrary sequence, not just a list. Its elements may be any of the following: 1) A remailer structure created by `mc-remailer-create'. This is the base case. 2) A string naming another remailer chain to be spliced in at this point. 3) A positive integer N representing a chain to be spliced in at this point and consisting of a random permutation of the top N remailers as ordered in the file `mc-levien-file-name'. 4) An arbitrary Lisp form to be evaluated, which should return another REMAILER-LIST to be recursively processed and spliced in at this point. The complete alist of chains is given by the union of the two lists `mc-remailer-internal-chains' and `mc-remailer-user-chains'. (defvar mc-remailer-user-chains nil (#$ . 3962)) #@337 List of "internal" remailer chains. This variable is normally generated automatically from a human-readable list of remailers; see, for example, the function `mc-reread-levien-file'. To define your own chains, you probably want to use the variable `mc-remailer-user-chains'. See that variable's documentation for format information. (defvar mc-remailer-internal-chains nil (#$ . 4896)) #@197 Ordered list of remailers, most reliable first. This variable is normally generated automatically from a human-readable list of remailers; see, for example, the function `mc-reread-levien-file'. (defvar mc-remailer-internal-ranking nil (#$ . 5292)) #@380 A function called to generate response block text. Value should be a function taking three arguments (ADDR LINES BLOCK). ADDR is the address to which the response should be sent. LINES is the number of lines in the encrypted response block. BLOCK is the response block itself. Function should return a string to be inserted into the buffer by mc-remailer-insert-response-block. (defvar mc-remailer-user-response-block #[(addr lines block) "АБВ\"ДБЕ\"°‡" [";;;\n" format "To reply to this message, take the following %d-line block, remove\n" lines "leading \"- \" constructs (if any), and place it at the top of a\n" "message to %s :\n" addr block] 6] (#$ . 5549)) #@140 *A list of your pseudonyms. This is a list of strings. Completion against it will be available when you are prompted for your pseudonym. (defvar mc-remailer-pseudonyms nil (#$ . -6227)) #@237 *Header fields which are preserved as hashmark headers when rewriting. This is a list of strings naming the preserved headers. Note that "Subject", "Newsgroups", and "To" are handled specially and should not be included in this list. (defvar mc-remailer-preserved-headers (quote ("References" "Followup-to" "In-reply-to")) (#$ . -6422)) (defalias 'mc-parse-levien-buffer #[nil "eb€А‰‰‰ЕЖАЗ#ѓ±ИЙ”Й•\"А‰К”К•\f \fb€ЕРС#ѓFТИУ”У•\"C\"‚-@ AФќ„{Хќ„hЦќѓvЧќ„{Шќ„{А‚Ј Цќ…†ЩЪГЇ--ѓ\nD\fB‚eb€ЕаАЗ#ѓЫЕбАЗ#ѓЫИЙ”Й•\"в\n\f\"ѓјТ \nC\"‚ј\f ,B‡" [nil ranking remailer-name remailer chains re-search-forward "^\\$remailer{['\"]\$.+\$['\"]}[ ]*=[ ]*['\"]\$.*\$['\"];" t buffer-substring-no-properties 1 2 value-end value-start address property-list name "[^ ]+" no-error append 0 "mix" "pgp" "pgp." "cpunk" "eric" (mc-generic-pre-encrypt-function) (mc-generic-post-encrypt-function) post-encr pre-encr props id addr "----------" "^\$[a-zA-Z0-9\\-]+\$ " assoc] 6]) #@201 Read the Levien format file specified in `mc-levien-file-name'. Return an alist of length-1 chains, one for each remailer, named after the remailer. Only include remailers supporting PGP encryption. (defalias 'mc-read-levien-file #[nil "ЉА !…В !€Г Д €)‡" [file-readable-p mc-levien-file-name find-file-read-only mc-parse-levien-buffer bury-buffer] 2 (#$ . 7474)]) #@251 Read the Levien format file specified in `mc-levien-file-name'. Place result in `mc-remailer-internal-chains' and `mc-remailer-internal-ranking'. See the documentation for the variable `mc-levien-file-name' for a description of Levien file format. (defalias 'mc-reread-levien-file #[nil "А ‰@ A‰)‡" [mc-read-levien-file parsed-levien-file mc-remailer-internal-chains mc-remailer-internal-ranking] 3 (#$ . 7848) nil]) (defalias 'mc-remailer-choose-first #[(n &optional l) "БUѓВ‡„Д \"‡@ДSA\"B‡" [n 0 nil l mc-remailer-choose-first mc-remailer-internal-ranking] 4]) (defalias 'mc-remailer-choose-chain #[(n) "„БВ‰ДVѓЕ‚Ж#€ЗИЙК!!!Л\"‡" [mc-remailer-internal-ranking error "No ranking information, cannot choose the %d best remailer%s" n 1 "s" "" append shuffle-vector vconcat mc-remailer-choose-first nil] 5]) (defalias 'mc-remailer-canonicalize-elmt #[(elmt chains-alist) "‰<… ўБ=)ѓC‡;ѓ ВГ\f\"A\f\"‡Ёѓ,ВЕ!\f\"‡ВЖ!\f\"‡" [elmt remailer mc-remailer-canonicalize-chain assoc chains-alist mc-remailer-choose-chain eval] 5]) (defalias 'mc-remailer-canonicalize-chain #[(chain &optional chains-alist) "„Б \n„ Г‡\n;„&\n‰<…\fўД=)„&\nЁѓ+Е\n\"‡\nЖњЗ\nГ\"A ЗЕ \"К\"\"*‡" [chains-alist mc-remailer-make-chains-alist chain nil remailer mc-remailer-canonicalize-elmt 0 append rest first mc-remailer-canonicalize-chain] 6]) (defalias 'mc-nuke-field #[(field &optional bounds) "А \nГ#‡" [mc-get-fields field bounds t] 4]) (put (quote mc-nuke-field) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'mc-replace-field #[(field-name replacement header) "ЉЊАБ\n\"„ Г\nPАД\n\"„\nЕPЖЗ! \n@A}€eb€МН ОRРЖ#€ УЖ#€*О\n±,‡" [string-match "^[ ]" replacement " " "\n$" "\n" t regexp-quote field-name field-regexp case-fold-search header re-search-forward "^" ":" mc-field-body-regexp nil bounds field mc-get-fields] 5]) (defalias 'mc-find-main-header #[(&optional ignored) "Љeb€АБВ!ДQ!€Еy€Жe!Ж`!)B‡" [re-search-forward "^" regexp-quote mail-header-separator "\n" -1 copy-marker] 4]) (defalias 'mc-find-colon-header #[(&optional insert) "Љeb€АБВ!ДQ!€ЕЖ!ѓЗy„&…8ЙК!€Лy…8`\fАНОП#€Р\f!Р`!)B)‡" [re-search-forward "^" regexp-quote mail-header-separator "\n" looking-at "::\n" 1 insert insert-before-markers "::\n\n" -1 start "^$" nil move copy-marker] 4]) (defalias 'mc-find-hash-header #[(&optional insert) "Љeb€АБВ!ДQ!€ЕЖ!ѓЗy„?ЕИ!ѓ1АЙКЛ#ѓ1ЕЖ!ѓ1Зy„?\f…QНО!€Пy…Q`АСКЛ#€Т!Т`!)B)‡" [re-search-forward "^" regexp-quote mail-header-separator "\n" looking-at "##\n" 1 "::\n" "^\n" nil move insert insert-before-markers "##\n\n" -1 start "^$" copy-marker] 4]) (defalias 'mc-replace-main-field #[(field replacement) "А \nГД!#‡" [mc-replace-field field replacement mc-find-main-header t] 5]) (put (quote mc-replace-main-field) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'mc-replace-hash-field #[(field replacement) "А \nГД!#‡" [mc-replace-field field replacement mc-find-hash-header t] 5]) (put (quote mc-replace-hash-field) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'mc-replace-colon-field #[(field replacement) "А \nГД!#‡" [mc-replace-field field replacement mc-find-colon-header t] 5]) (put (quote mc-replace-colon-field) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'mc-recipient-is-remailerp #[nil "АБВ \"‰…ДЕ!@A\")‡" [mc-get-fields "To" mc-find-main-header to string-match regexp-quote mc-remailer-tag] 4]) (defalias 'mc-generic-post-encrypt-function #[(remailer) "А БВ!ЕЖЗ#€ЕИ ‰ A@)КQ\f#*‡" [mc-find-main-header mc-find-colon-header t colon-header main-header mc-replace-field "Encrypted" "PGP" "To" remailer " " mc-remailer-tag] 6]) (defalias 'mc-generic-pre-encrypt-function #[(remailer) "‰A@)Б8)В ГД!Е‰‰‰ \n\f О!РД#‰ѓ>СД!Ab€ТУ\"€С ѓVФ\fќ„VХЦ \"€РЧ\"ѓ‚Ш\fќ„mХЩ \"‚чФ\fќ„|ХЦ \"‚чЪ!‚чЫЬ!ѓњЫЭ!„њѓњЯ@A\"€аТбРв\"\"! гд \"ѓ¶Хе \"€Рж\n\"ѓВз‚Эи\fќѓНй‚Эк\fќѓШл‚ЭХм \"н \n#€о/0Р0/Д#*.‡" [remailer 3 mc-find-main-header mc-find-colon-header t nil preserved preserved-regexp to-field to colon-header main-header props addr mc-disjunction-regexp mc-remailer-preserved-headers mc-get-fields mc-find-hash-header mapcar #[(c) "@БВA!±‡" [c ":" mc-eliminate-continuation-lines] 4] "hash" error "Remailer %s does not support hashmarks" "Newsgroups" "post" "Remailer %s does not support posting" mc-rewrite-news-to-mail featurep mailalias mail-abbrevs mail-aliases expand-mail-aliases mc-strip-addresses cdr "To" string-match "," "Remailer %s does not support multiple recipients." "From" "Send-To" "eric" "Anon-Send-To" "cpunk" "Request-Remailing-To" "Remailer %s is not type-1" mc-replace-field "Reply-to" bounds field] 9]) (defalias 'mc-disjunction-regexp #[(regexps) "АБВД#ЕQ‡" ["\$" mapconcat identity regexps "\$\\|\$" "\$"] 5]) #@53 Figure out the user's Email address as best we can. (defalias 'mc-user-mail-address #[nil "АБ!ѓ ;ѓ ‚(\n;ѓ\n‚(АГ!ѓ\"‚(Д ЕЖ QИ!A@)‡" [boundp gnus-user-from-line mail-default-reply-to user-mail-address user-login-name "@" system-name addr mail-extract-address-components] 3 (#$ . 12748)]) (defalias 'mc-eliminate-continuation-lines #[(string) "АБ\n\"ѓГДЕЖ\n$‚\n‡" [string-match "\n[ ]+" string replace-match " " t nil] 5]) (defalias 'mc-remailer-make-chains-alist #[nil "„Б €В\"‡" [mc-remailer-internal-chains mc-reread-levien-file append mc-remailer-user-chains] 3]) #@146 Insert pseudonym as a From field in the hash-mark header. See the documentation for the variable `mc-remailer-pseudonyms' for more information. (defalias 'mc-remailer-insert-pseudonym #[nil "АБ\f„ЕЖ!‚ЗЖИЙ\f\"\"КЛ\n\"„!\nМPН\nРСА!#,‡" [t nil pseudonym completion-ignore-case mc-remailer-pseudonyms read-from-minibuffer "Pseudonym: " completing-read mapcar list string-match "\\S +@\\S +" " " "From" replacement field mc-replace-field mc-find-colon-header] 5 (#$ . 13346) nil]) #@108 *Path to the Mixmaster binary. If defined, Mixmaster chains will be passed to this program for rewriting. (defvar mc-mixmaster-path nil (#$ . -13854)) #@41 *Path to the Mixmaster type2.list file. (defvar mc-mixmaster-list-path nil (#$ . -14012)) #@111 Use arguments as a remailer-list and return a new list with the "mix" property removed from all the elements. (defalias 'mc-demix #[(&rest chain) "АБВ!\"‡" [mapcar #[(r) "А В\"‡" [mc-remailer-remove-property r "mix"] 3] mc-remailer-canonicalize-chain chain] 4 (#$ . 14109)]) (defalias 'mc-mixmaster-process #[(beg end recipients preserved mix-chain) "АВ!„\fД! b€ЖЗ\"€Йc€ЖК\"€Йc€ЖМ \" `Wѓ0`ОП С‰АТУФХ &\f‰Ц=„LЧШ!€ b€ЩЪ!€ Ц”|)‡" [nil ret markerp end copy-marker beg mapcar #[(x) "Б±‡" [x 10] 2] recipients 10 #[(x) "c‡" [x] 1] preserved #[(x) "АБ\n\"‡" [format "%d" x] 3] mix-chain apply call-process-region mc-mixmaster-path t "-f" "-o" "stdout" "-l" 0 error "Mixmaster barfed." re-search-forward "^::$"] 14]) (defalias 'mc-mixmaster-build-alist #[(&optional n) "АЉВЋ†\nДЕ!‰q€ЗИАЙ#…)КД”Д•\"BЛД\\!B+‡" [nil buf ((byte-code "ѓБ!€Б‡" [buf kill-buffer] 2)) n 1 find-file-noselect mc-mixmaster-list-path re-search-forward "^[^ ]+[ ]+\$[^ ]+\$" t buffer-substring-no-properties mc-mixmaster-build-alist] 5]) (byte-code "АБ!„ВБBВ‡" [boundp mc-mixmaster-alist nil current-load-list] 2) (defalias 'mc-mixmaster-alist #[nil "†Б ‰‡" [mc-mixmaster-alist mc-mixmaster-build-alist] 2]) (put (quote mc-mixmaster-alist) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'mc-mixmaster-translate-chain #[(chain) "?†Б@Г\n8)ќ??…3Д@‰A@)Ж !A@)†,И ‰\"AЙA!B‡" [chain "mix" remailer 3 assoc addr mail-extract-address-components mc-mixmaster-alist mc-mixmaster-build-alist mc-mixmaster-translate-chain] 5]) (defalias 'mc-mixmaster-skip #[(chain) "„Б‡В@Д8)ќ„‡ЕA!‡" [chain nil "mix" remailer 3 mc-mixmaster-skip] 3]) (defalias 'mc-rewrite-for-mixmaster #[(chain &optional pause) "А !В Г Д ЕЖЗИ#З‰‰‰‰‰‰ \n\f @\f ‰\nѓUФ\n@Ц8)ќѓU\n@\nA‰\n„8Ч „–ѓvЕЗ\"@b€Шy€`AЩ\\|€ѓ–ЪЕЫ\"\"@b€Шy€`AЩ\\|€ЬЭ!ѓ°ЬЮ!„°ѓ°а@A\"€бвгЕдИ#е#! ѓНбжЖ \"A! ѓмзЦ8)ќ„мий‰A@)\"€Ъкл \"\"км\"€но/B! ЪЕ И#\"кр\"Ab€Щy€с`d%€тд\f‰A@)у4Q#.\f‡" [mc-mixmaster-translate-chain chain mc-find-main-header mc-find-colon-header mc-find-hash-header mc-get-fields "Newsgroups" nil t preserved-regexp rest last first newsgroups preserved recipients hash-header colon-header main-header mix-chain "mix" remailer 3 mc-recipient-is-remailerp -1 1 append "From" featurep mailalias mail-abbrevs mail-aliases expand-mail-aliases mc-cleanup-recipient-headers mapconcat cdr "To" ", " assoc "post" error "Remailer %s does not support posting" mapcar #[(c) "А P‡" ["Post: " c] 2] #[(c) "А !‡" [message c] 2] mc-disjunction-regexp "Subject" mc-remailer-preserved-headers #[(c) "@БВA!Q‡" [c ":" mc-eliminate-continuation-lines] 4] mc-mixmaster-process mc-replace-field " " mc-remailer-tag] 13]) (defalias 'mc-rewrite-news-to-mail #[(remailer) "А БДЕЖ#З\n@A К ЛЖ!#€*М *‡" [mc-find-main-header nil newsgroups main-header mc-get-fields "Newsgroups" t "Post-To" replacement field mc-replace-field mc-find-colon-header mail-mode] 5]) (defalias 'mc-rewrite-for-remailer #[(remailer &optional pause) "‰A@)Б Д ѓ\nAb€Еy€Жc€ЗИЙ8)\"€КЛ!@b€ЗМНО\nЛ#\"€ѓCЛСТ\"€У €)Б ‰Ab€Еy€ФХШЩ8†i‰A@)Ъ!A@))Х`#*ѓ›ЗЫЬ8)\"€ЭХНЛ#€*аХНЛ#*‚ґбвЩ8†І‰A@)Ъ!A@))\"*‡" [remailer mc-find-main-header main-header addr mc-recipient-is-remailerp 1 "::\n\n" mapcar #[(hook) " !‡" [hook remailer] 2] 4 mc-find-colon-header t #[(f) "@БA±‡" [f ":"] 3] mc-get-fields "Subject" pause cursor-in-echo-area message "SPC to encrypt for %s : " read-char-exclusive never nil mc-encrypt-for-me mc-pgp-always-sign mc-encrypt-message 2 mail-extract-address-components #[(hook) " !‡" [hook remailer] 2] 5 "Comment" bounds field "From" error "Unable to encrypt message to %s"] 7]) (defalias 'mc-rewrite-for-chain #[(chain &optional pause) "А\nѓ Г\f!‚\f\f…8Е \f=ѓ A‚ \"€ \f=ѓ3З\f@\"‚8И\f\")‡" [nil rest mc-mixmaster-path mc-mixmaster-skip chain mc-rewrite-for-chain pause mc-rewrite-for-remailer mc-rewrite-for-mixmaster] 3]) (defalias 'mc-unparse-chain #[(chain) "…@‰A@)ВГA!Q‡" [chain remailer "\n" mc-unparse-chain] 5]) (defalias 'mc-disallow-field #[(field &optional header) "А\n„ Г \n@b€ДЕЖ!ИQ\nAА#…%Й”b€КЛ\")‡" [t case-fold-search header mc-find-main-header re-search-forward "^" regexp-quote field ":" 0 error "Cannot use a %s field."] 4]) #@126 Encrypt message for a remailer chain, prompting for chain to use. With \[universal-argument], pause before each encryption. (defalias 'mc-remailer-encrypt-for-chain #[(&optional pause) "А Б\n!Г‰ИЙ!€ИК!€ИЛ!€МНГО$ПР \"A\"С\f\"€\f…LЉq€У €Ф ХЦ\f!±€ЧШ\n\"),‡" [mc-remailer-make-chains-alist get-buffer-create mc-buffer-name nil chain chain-name buffer chains mc-disallow-field "CC" "FCC" "BCC" completing-read "Choose a remailer or chain: " strict-match mc-remailer-canonicalize-chain assoc mc-rewrite-for-chain pause erase-buffer "Rewritten for chain `" "':\n\n" mc-unparse-chain message "Done. See %s buffer for details."] 5 (#$ . 18532) "P"]) #@171 Insert response block at point, prompting for chain to use. With \[universal-argument], enter a recursive edit of the innermost layer of the block before encrypting it. (defalias 'mc-remailer-insert-response-block #[(&optional arg) "А‰‰‰‰‰ЉЗЙV…К!‰q€Л МН \"@AО\fП!A@)РQ Ab€Йy€С`d\"Т`d\"У!€)` \n#c€b€)ЦЛ МК#€*ЦЪЫК!#.‡" [nil lines block addr to main-header buf mc-remailer-make-response-block arg 1 t mc-find-main-header mc-get-fields "To" "<" mail-extract-address-components ">" buffer-substring-no-properties count-lines kill-buffer opoint mc-remailer-user-response-block "Reply-to" bounds field replacement mc-replace-field mc-find-hash-header] 7 (#$ . 19202) "p"]) (defalias 'mc-remailer-make-response-block #[(&optional recurse) "АБ!pВ‰‰‰Й ‰‰AК Ј†Л]М Ј†&Л]Ў€ЉН!П\f \"q€РС ТТ±€ФХ Т±€ЦЧ\"€ѓbЩ!€ЪЫЬЭ!\"€Ю €q€Я €Щ!€).‡" [generate-new-buffer " *Remailer Response Block*" nil included included-regexp all-headers mc-mixmaster-path original-buf buf mc-find-main-header mc-find-colon-header 0 mc-find-hash-header mc-disjunction-regexp mc-response-block-included-headers mc-get-fields "To: " mc-user-mail-address "\n" mail-header-separator ";; Response block created " current-time-string mapcar #[(c) "А @В A±‡" ["; " c ":"] 4] recurse switch-to-buffer message "Editing response block ; %s when done." substitute-command-keys "\\[exit-recursive-edit]" recursive-edit mc-remailer-encrypt-for-chain] 7])