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 /
mh-e /
[ HOME SHELL ]
Name
Size
Permission
Action
mh-acros.el
10.99
KB
-rw-r--r--
mh-alias.elc
18.18
KB
-rw-r--r--
mh-buffers.elc
1.6
KB
-rw-r--r--
mh-comp.elc
37.95
KB
-rw-r--r--
mh-compat.elc
11.16
KB
-rw-r--r--
mh-e.elc
115.38
KB
-rw-r--r--
mh-folder.elc
63.95
KB
-rw-r--r--
mh-funcs.elc
12.52
KB
-rw-r--r--
mh-gnus.elc
4.31
KB
-rw-r--r--
mh-identity.elc
8.23
KB
-rw-r--r--
mh-inc.elc
1.93
KB
-rw-r--r--
mh-junk.elc
18.5
KB
-rw-r--r--
mh-letter.elc
28.46
KB
-rw-r--r--
mh-limit.elc
10.22
KB
-rw-r--r--
mh-loaddefs.el
96.35
KB
-rw-r--r--
mh-mime.elc
59.66
KB
-rw-r--r--
mh-print.elc
8.47
KB
-rw-r--r--
mh-scan.elc
18.29
KB
-rw-r--r--
mh-search.elc
58.68
KB
-rw-r--r--
mh-seq.elc
37.52
KB
-rw-r--r--
mh-show.elc
102.1
KB
-rw-r--r--
mh-speed.elc
15.86
KB
-rw-r--r--
mh-thread.elc
64.89
KB
-rw-r--r--
mh-tool-bar.elc
26.55
KB
-rw-r--r--
mh-utils.elc
27.5
KB
-rw-r--r--
mh-xface.elc
13.15
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : mh-alias.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!\207" [require mh-e goto-addr] 2) #@22 Alist of MH aliases. (defvar mh-alias-alist 'not-read (#$ . 476)) #@43 Alist of MH aliases that are blind lists. (defvar mh-alias-blind-alist nil (#$ . 548)) #@67 Alist of aliases extracted from passwd file and their expansions. (defvar mh-alias-passwd-alist nil (#$ . 641)) #@32 Time aliases were last loaded. (defvar mh-alias-tstamp nil (#$ . 759)) (defvar mh-alias-read-address-map (byte-code "\302!\303 \304\305#\210\303 \306\307#\210 )\207" [minibuffer-local-completion-map map copy-keymap define-key "," mh-alias-minibuffer-confirm-address " " self-insert-command] 4)) #@350 A list of system files which are a source of aliases. If these files are modified, they are automatically reread. This list need include only system aliases and the passwd file, since personal alias files listed in your "Aliasfile:" MH profile component are automatically included. You can update the alias list manually using \[mh-alias-reload]. (custom-declare-variable 'mh-alias-system-aliases ''("/etc/nmh/MailAliases" "/etc/mh/MailAliases" "/usr/lib/mh/MailAliases" "/usr/share/mailutils/mh/MailAliases" "/etc/passwd") '(#$ . 1063) :type '(repeat file) :group 'mh-alias) #@208 Check whether alias files have been modified. Return t if any file listed in the Aliasfile MH profile component has been modified since the timestamp. If ARG is non-nil, set timestamp with the current time. (defalias 'mh-alias-tstamp #[(arg) "\203 \304 \211@ A@D\211)\207\305\306\307\310\311\306!\">@)\207" [arg time mh-alias-tstamp stamp current-time nil t mapcar #[(file) "\205 \303!\205 \304!\3058\262\306\n \"\207" [file stamp mh-alias-tstamp file-exists-p file-attributes 5 time-less-p] 3] mh-alias-filenames] 6 (#$ . 1648)]) #@201 Return list of filenames that contain aliases. The filenames come from the Aliasfile profile component and are expanded. If ARG is non-nil, filenames listed in `mh-alias-system-aliases' are appended. (defalias 'mh-alias-filenames #[(arg) "\204 \306 \210\212\307\310!\211\205 \311 \312\"\313\314\n\"\f\2032 ;\203+ \315 C\"\2023 \315 \"\2023 ,\207" [mh-progs filename filelist userlist arg mh-alias-system-aliases mh-find-path mh-profile-component "Aliasfile" split-string "[ ]+" mapcar #[(file) "\205 \205 \302\303 \"!\205 \303 \"\207" [mh-user-path file file-exists-p expand-file-name] 4] append] 4 (#$ . 2199)]) #@149 Return a usable address string from a GECOS-NAME and USERNAME. Use only part of the GECOS-NAME up to the first comma if COMMA-SEPARATOR is non-nil. (defalias 'mh-alias-gecos-name #[(gecos-name username comma-separator) "\n\203 \304\305 \"\203 \306\307 \"\304\310 \"\203! \311\310\312 ! #\304\313 \"\203. \311\313\314 # \314\230\2036 \304\315 \"\204B \313 \313Q )\207" [gecos-name res comma-separator username string-match "^\\([^,]+\\)," match-string 1 "&" mh-replace-regexp-in-string capitalize "\"" "" "^[ a-zA-Z0-9-]+$"] 4 (#$ . 2837)]) #@109 Return an alist of local users from /etc/passwd. Exclude all aliases already in `mh-alias-alist' from "ali" (defalias 'mh-alias-local-users #[nil "\306r\307 !q\210\310 \210\n\311=\203 \312\313!\2033 \314\313!\210\2023 \n;\2033 \n\315\261\210\316ed\n\311\211%\210eb\210`dW\203\232 \317\320!\203\224 \321\322\323!!\324V\203\224 \322\325!\322\326! \327\f # \203h \330 \311\"P\202i \230\203y \331 \332Q\202 \333 \332R \334 !\311#\204\223 DB-\325y\210\2023 ))\207" [passwd-alist mh-temp-buffer mh-alias-local-users username gecos-name mh-alias-passwd-gecos-comma-separator-flag nil get-buffer-create erase-buffer t file-readable-p "/etc/passwd" insert-file-contents "\n" shell-command-on-region looking-at "\\([^:]*\\):[^:]*:\\([^:]*\\):[^:]*:\\([^:]*\\):" string-to-number match-string 2 200 1 3 mh-alias-gecos-name mh-alias-suggest-alias "<" ">" " <" mh-assoc-string realname mh-alias-local-users-prefix alias-name alias-translation mh-alias-alist] 6 (#$ . 3394)]) #@459 Reload MH aliases. Since aliases are updated frequently, MH-E reloads aliases automatically whenever an alias lookup occurs if an alias source has changed. Sources include files listed in your "Aliasfile:" profile component and your password file if option `mh-alias-local-users' is turned on. However, you can reload your aliases manually by calling this command directly. This function runs `mh-alias-reloaded-hook' after the aliases have been loaded. (defalias 'mh-alias-reload #[nil "\212\306\307!\210\310\311!\210\312\311\313\314\315$\210\316\211`dW\203^ \317\320!\204X \317\321!\203A \322\323\324! \311#\204X \323\324!C B\323\324!CB\202X \317\325!\203X \322\323\324!\311#\204X \323\324!CB\324y\210\202 )\n\203\210 \302 \211\316 \211 \203\207 @\322\f@\311#\204\200 \326\fC\" A\211\204n *\327\330!\210\306\331!\207" [mh-alias-alist mh-alias-blind-alist mh-alias-local-users mh-alias-passwd-alist user local-users message "Loading MH aliases..." mh-alias-tstamp t mh-exec-cmd-quiet "ali" "-nolist" "-nouser" nil looking-at "^[ ]" "\\(.+\\): .+: .*$" mh-assoc-string match-string 1 "\\(.+\\): .*$" append run-hooks mh-alias-reloaded-hook "Loading MH aliases...done"] 6 (#$ . 4393) nil]) #@22 Load new MH aliases. (defalias 'mh-alias-reload-maybe #[nil "\301=\204\f \302\303!\205 \304 \207" [mh-alias-alist not-read mh-alias-tstamp nil mh-alias-reload] 2 (#$ . 5609)]) #@215 Return ali expansion for ALIAS. ALIAS must be a string for a single alias. If USER is t, then assume ALIAS is an address and call ali -user. ali returns the string unchanged if not defined. The same is done here. (defalias 'mh-alias-ali #[(alias &optional user) "\3041+ \212\203 \305\202 \306\307\310\311 \312\n%\210)db\210\313\314!\203% \315\316!\210ed{)0\207\317\320\321 !\"\210\n)\207" [user user-arg alias err (error) "-user" "-nouser" mh-exec-cmd-quiet t "ali" "-nolist" looking-at "^$" delete-char -1 message "%s" error-message-string] 6 (#$ . 5794)]) #@87 Return expansion for ALIAS. Blind aliases or users from /etc/passwd are not expanded. (defalias 'mh-alias-expand #[(alias) "\303 \304#\203\n \207\303\n\304#\203 \303\n\304#A@\207\305!\207" [alias mh-alias-blind-alist mh-alias-passwd-alist mh-assoc-string t mh-alias-ali] 4 (#$ . 6364)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [mh-require crm nil t multi-prompt] 4) #@50 Read an address from the minibuffer with PROMPT. (defalias 'mh-read-address #[(prompt) "\306 \210\204 \307 !\207\n\f \310\311!\203$ \310\311!\2057 \311 \312\211$\2027 \313\314!\203. \312\2027 \315\316 \312\211$\317\" \204G \320\321\322#\202M \320\323\324#+\207" [mh-alias-alist prompt mh-alias-read-address-map minibuffer-local-completion-map mh-alias-completion-ignore-case-flag completion-ignore-case mh-alias-reload-maybe read-string fboundp completing-read-multiple nil featurep multi-prompt split-string completing-read "," mapconcat identity ", " mh-alias-expand ",\n " the-answer mh-alias-expand-aliases-flag] 6 (#$ . 6758)]) #@70 Display the alias expansion if `mh-alias-flash-on-comma' is non-nil. (defalias 'mh-alias-minibuffer-confirm-address #[nil "\2035 \212\305\306 \307\n`\"\310 \f\305#\203\" \311\312 \313 !#\210\2024 \314\232\2034 \315\316 \"\2044 \311\317 \"\210,\320\314!\207" [mh-alias-flash-on-comma case-fold-search beg the-name mh-alias-alist t mh-beginning-of-word buffer-substring-no-properties mh-assoc-string message "%s -> %s" mh-alias-expand 1 string-match " " "No alias for %s" self-insert-command] 5 (#$ . 7409) nil]) #@33 Expand mail alias before point. (defalias 'mh-alias-letter-expand-alias #[nil "\304 \210\305 \212b\210\305\306!)\211`Y\205+ \307\310!\203 \202! `\n\204) \202* \311E*\207" [begin end mh-alias-expand-aliases-flag mh-alias-alist mh-alias-reload-maybe mh-beginning-of-word -1 fboundp completion-at-point #[(string pred action) "\305=\2037 \306 \n #\211 \307=\204! \f;\2034 \306\f\n #\307=\2034 \310\f;\203+ \f\202, !\2065 \f\2025 \f)\207\307=\203C \311 \n #\207\312=\205N \313 \n #\207" [action string mh-alias-alist pred res nil try-completion t mh-alias-expand all-completions lambda mh-test-completion] 5]] 4 (#$ . 7931)]) #@115 Suggest an alias for STRING. Don't reverse the order of strings separated by a comma if NO-COMMA-SWAP is non-nil. (defalias 'mh-alias-suggest-alias #[(string &optional no-comma-swap) "\303\304\"\203 \305\306\307\" \"\207\303\310\"\203 \227\207\303\311\"\203- \312\313\306\307\"\306\314\"#\227\207\303\315\"\203: \306\307\"\227\207\303\316\"\203I \305\306\307\" \"\207\303\317\"\203X \305\306\307\" \"\207\303\n\320P\"\203i \305\306\307\" \"\207\303\321\"\203x \305\306\314\" \"\207\303\322\"\203\207 \305\306\307\" \"\207\303\323\"\203\226 \305\306\307\" \"\207\303\324\"\203\254 \305\312\325\306\307\"\306\314\"# \"\207 \204\306 \303\326\"\203\306 \305\312\325\306\314\"\306\307\"# \"\207\327!\207" [string no-comma-swap goto-address-mail-regexp string-match "^<\\(.*\\)>$" mh-alias-suggest-alias match-string 1 "^\\sw+$" "^\\(\\sw+\\)\\s-+\\(\\sw+\\)$" format "%s.%s" 2 "^\\([-a-zA-Z0-9._]+\\)@[-a-zA-Z0-9_]+\\.+[a-zA-Z0-9]+$" "^\"\\(.*\\)\".*" "^\\(.*\\) +<.*>$" " +(\\(.*\\))$" "^\\(Dr\\|Prof\\)\\.? +\\(.*\\)" "^\\(.*\\), +\\(Jr\\.?\\|II+\\)$" "^\\(.*\\) +\\(Jr\\.?\\|II+\\)$" "^\\(\\sw+\\) +[A-Z]\\.? +\\(.*\\)$" "%s %s" "^\\([^,]+\\), +\\(.*\\)$" mh-alias-canonicalize-suggestion] 7 (#$ . 8571)]) #@222 Process STRING to replace spaces by periods. First all spaces and commas are replaced by periods. Then every run of consecutive periods are replaced with a single period. Finally the string is converted to lower case. (defalias 'mh-alias-canonicalize-suggestion #[(string) "\302\303!rq\210\304\216 c\210eb\210\305\306\307\310#\203! \311\312\307\211#\210\202 eb\210\305\313\307\310#\2035 \311\312\307\211#\210\202$ eb\210\305\314\307\310#\203I \311\312\307\211#\210\2028 \315ed\"\210\316 +\207" [#1=#:temp-buffer string generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] re-search-forward " +" nil t replace-match "." ",+" "\\.\\.+" downcase-region buffer-string] 4 (#$ . 9812)]) #@75 Return the name of writable file which defines ALIAS from list FILE-LIST. (defalias 'mh-alias-which-file-has-alias #[(alias file-list) "r\305!q\210 \306 \203: \307 \210\310 @!\203\n \311 @!\210\312\313\314\f!\315Q\306\316#\2033 @\306\211\202 A\211\204 \n+\207" [mh-temp-buffer file-list found the-list alias get-buffer-create nil erase-buffer file-writable-p insert-file-contents re-search-forward "^" regexp-quote ":" t] 5 (#$ . 10546)]) #@268 Return filename which should be used to add ALIAS. The value of the option `mh-alias-insert-file' is used if non-nil; otherwise the value of the "Aliasfile:" profile component is used. If the alias already exists, try to return the name of the file that contains it. (defalias 'mh-alias-insert-file #[(&optional alias) "\2039 <\2039 \303\234\204 @\207 \203 \304 !\230\203( \305\306\307\310\"\311\312$\207\313 \"\2068 \305\306\307\310\"\311\312$\207\203D ;\203D \207\314\311\307\315\316\312!\"\"\211\204X \317\320!\202\213 \n\303\234\204c \n@\202\213 \203o \304 !\230\203{ \305\306\307\310\n\"\311\312$\202\213 \313 \n\"\206\213 \305\306\307\310\n\"\311\312$)\207" [mh-alias-insert-file alias autolist 1 mh-alias-ali completing-read "Alias file: " mapcar list nil t mh-alias-which-file-has-alias delq #[(file) "\301!\205 \302\230?\205 \207" [file file-writable-p "/etc/passwd"] 2] mh-alias-filenames error "No writable alias file;\nset `mh-alias-insert-file' or the \"Aliasfile:\" profile component"] 7 (#$ . 11002)]) #@46 Return the ADDRESS alias if defined, or nil. (defalias 'mh-alias-address-to-alias #[(address) "\302\303\"\211\230?\205 \304\305\306\307\310 \311\"\"\"@)\207" [address aliases mh-alias-ali t delq nil mapcar #[(alias) "\302\303\"\304\305 \"?\205 )\207" [alias recurse mh-alias-ali nil string-match ".*,.*"] 3] split-string ", +"] 8 (#$ . 12046)]) #@57 Return t if sender's address has a corresponding alias. (defalias 'mh-alias-for-from-p #[nil "\303 \210\212\304 \205! \305=\203 q\210\306 \211\205 \307\n!\205 \310))\207" [major-mode mh-show-buffer from-header mh-alias-reload-maybe mh-folder-line-matches-show-buffer-p mh-folder-mode mh-extract-from-header-value mh-alias-address-to-alias t] 3 (#$ . 12405)]) #@430 Add ALIAS for ADDRESS in alias FILE without alias check or prompts. Prompt for alias file if not provided and there is more than one candidate. If the alias exists already, you will have the choice of inserting the new alias before or after the old alias. In the former case, this alias will be used when sending mail to this alias. In the latter case, the alias serves as an additional folder name hint when filing messages. (defalias 'mh-alias-add-alias-to-file #[(alias address &optional file) "\204 \306 !r\307!q\210eb\210 \310P\311\312 \313\314\315\f!\316Q\311\312#\203M \317\320\321\322\323!\"!\312 \324\325 \"\204I \324\326 \"\203E \323y\210\202I \327\330!\210*\202\331 #\331\267\202\250 \332\f\333\"\332\f\334\333#\211\335\232\204\200 \313\314\315\f!P\311\312#\204\200 \332\f\333\"\332\f\334\333#\211\202` \336 \210\313\314\315\f!\337 \340\260\311\312#\203\331 \323y\210\202\203 \202\331 db\210\202\331 eb\210\202\331 \313\314\315\f!\316Q\311\312#\203\331 \317\320\321\322\323!\"!\312 \324\325 \"\204\330 \324\326 \"\203\324 \323y\210\202\330 \327\330!\210*+\336 \210\320\341 $#c\210\342 )\207" [file alias case-fold-search letter alias-search answer mh-alias-insert-file find-file-noselect ":" nil t re-search-forward "^" regexp-quote " *\\(.*\\)" read-string format "Alias %s exists; insert new address [b]efore or [a]fter: " match-string 1 string-match "^b" "^a" error "Unrecognized response" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (sorted 84 bottom 156 top 162)) substring -1 0 "" beginning-of-line "[a-" "]" "%s: %s\n" save-buffer mh-alias-insertion-location address] 7 (#$ . 12777)]) #@385 Add ALIAS for ADDRESS in personal alias file. This function prompts you for an alias and address. If the alias exists already, you will have the choice of inserting the new alias before or after the old alias. In the former case, this alias will be used when sending mail to this alias. In the latter case, the alias serves as an additional folder name hint when filing messages. (defalias 'mh-alias-add-alias #[(alias address) "\305 \210\306\307\310\211 %\n\203 \311\312\n\"\203 \313\314\n\"\315\316\n\"\311\312\n\"\203, \313\314\n\"\317\n!\320 ! \230\203< \310 \f\232\203O \n \232\203O \321\322 \"\202g \f\203c \323\324\325\f\"!\205g \326 \n\"\202g \326 \n\"*\207" [mh-alias-alist alias address alias-address address-alias mh-alias-reload-maybe completing-read "Alias: " nil string-match "^<\\(.*\\)>$" match-string 1 read-string "Address: " mh-alias-address-to-alias mh-alias-expand message "Already defined as %s" y-or-n-p format "Address has alias %s; set new one? " mh-alias-add-alias-to-file] 6 (#$ . 14446) "P\nP"]) #@50 Add alias for the sender of the current message. (defalias 'mh-alias-grab-from-field #[nil "\305 \210\212\306 \203 q\210\2025 \307=\203+ \310\311!\203+ \312\n!q\210\313\314\310\315!!!\210\2025 \307=\2035 \316\317!\210\320 \206= \321\322!\323 ! \324\f \"+\207" [mh-show-buffer major-mode mh-temp-buffer address alias mh-alias-reload-maybe mh-folder-line-matches-show-buffer-p mh-folder-mode mh-get-msg-num nil get-buffer-create insert-file-contents mh-msg-filename t user-error "Cursor not pointing to a message" mh-extract-from-header-value error "Message has no From: header" mh-alias-suggest-alias mh-alias-add-alias] 4 (#$ . 15491) nil]) #@42 Insert an alias for address under point. (defalias 'mh-alias-add-address-under-point #[nil "\301 \211\203 \302\303\"\202 \304\305!)\207" [address goto-address-find-address-at-point mh-alias-add-alias nil message "No email address found under point"] 4 (#$ . 16143) nil]) #@71 Show all aliases or addresses that match a regular expression REGEXP. (defalias 'mh-alias-apropos #[(regexp) "\203 \306 \210\307\211\310\212\311\312!\210\313\314\315\316\317$\210\311\320!\210\321\f\310\314#\203Y \322 \210\323\324!\203L \n\212\325\326\310\314#\2069 `)\321\326\310\314#\203E \327u\210`{P\202 `\310\210`{\330Q\202 \311\331!\210\203o \311\332!\210\333\334 \307#\311\335!\210) \307\230\203\210 \n\307\230\203\210 \307\230\203\210 \311\336!\202\343 ( )r\337*!q\210p\340 \210)(\310\211+,\314\211-\314 . /\341 \210\342\343!\210+\211 0 1 \307\230\204\301 \344 !\210\n\307\230\204\317 \344\345!\210\344\n!\210 \307\230?\205\335 \344\346!\210\344 !\3470!\210++\207" [mh-alias-local-users passwd-matches group-matches matches regexp mh-alias-passwd-alist mh-alias-reload-maybe "" nil message "Reading MH aliases..." mh-exec-cmd-quiet t "ali" "-nolist" "-nouser" "Parsing MH aliases..." re-search-forward beginning-of-line looking-at "^[ ]" re-search-backward "^[^ ]" -1 "\n" "Parsing MH aliases...done" "Making passwd aliases..." mapconcat #[(elem) "\302 @\"\204 \302 A@\"\205 \303\304 @ A@#\207" [regexp elem string-match format "%s: %s\n"] 4] "Making passwd aliases...done" "No matches" get-buffer-create kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ "\nGroup Aliases:\n\n" "\nLocal User Aliases:\n\n" internal-temp-output-buffer-show default-directory #1=#:old-dir mh-aliases-buffer buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 7 (#$ . 16424) "sAlias regexp: "]) #@199 Return t if the message under point in folder-mode is in the show buffer. Return nil in any other circumstance (no message under point, no show buffer, the message in the show buffer doesn't match. (defalias 'mh-folder-line-matches-show-buffer-p #[nil "\302=\2057 \303\304!\2057 \2057 \305 !\2057 \306\305 !!\2057 \307\310\306\305 !!\"\2057 \311\312\306\305 !!\"\313\303\304!!\230\207" [major-mode mh-show-buffer mh-folder-mode mh-get-msg-num nil get-buffer buffer-file-name string-match ".*/\\([0-9]+\\)$" match-string 1 int-to-string] 5 (#$ . 18038)]) (provide 'mh-alias)
Close
