Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
mail /
[ HOME SHELL ]
Name
Size
Permission
Action
binhex.elc
9.01
KB
-rw-r--r--
blessmail.el
2.51
KB
-rw-r--r--
emacsbug.elc
7.55
KB
-rw-r--r--
feedmail.elc
79.59
KB
-rw-r--r--
footnote.elc
21.09
KB
-rw-r--r--
hashcash.elc
10.81
KB
-rw-r--r--
mail-extr.elc
33.9
KB
-rw-r--r--
mail-hist.elc
13.74
KB
-rw-r--r--
mail-utils.elc
9.55
KB
-rw-r--r--
mailabbrev.elc
13.96
KB
-rw-r--r--
mailalias.elc
13.52
KB
-rw-r--r--
mailclient.elc
3.56
KB
-rw-r--r--
mailheader.elc
5.92
KB
-rw-r--r--
mailpost.elc
2.3
KB
-rw-r--r--
metamail.elc
4.44
KB
-rw-r--r--
mspools.elc
7.25
KB
-rw-r--r--
reporter.elc
9.65
KB
-rw-r--r--
rfc2368.elc
2.46
KB
-rw-r--r--
rfc822.elc
5.71
KB
-rw-r--r--
rmail-spam-filter.elc
13.24
KB
-rw-r--r--
rmail.elc
113.93
KB
-rw-r--r--
rmailedit.elc
8.83
KB
-rw-r--r--
rmailkwd.elc
5.12
KB
-rw-r--r--
rmailmm.elc
11.05
KB
-rw-r--r--
rmailmsc.elc
1.56
KB
-rw-r--r--
rmailout.elc
15.73
KB
-rw-r--r--
rmailsort.elc
6.33
KB
-rw-r--r--
rmailsum.elc
52.51
KB
-rw-r--r--
sendmail.elc
51.72
KB
-rw-r--r--
smtpmail.elc
21.58
KB
-rw-r--r--
supercite.elc
58.99
KB
-rw-r--r--
uce.elc
7.66
KB
-rw-r--r--
undigest.elc
7.88
KB
-rw-r--r--
unrmail.elc
4.69
KB
-rw-r--r--
uudecode.elc
6.19
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : mailabbrev.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:21 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mail/mailabbrev.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mailabbrev.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'mail-abbrev nil "Expand mail aliases as abbrevs, in certain mail headers." :group 'abbrev-mode) #@272 Non-nil if Mail-Abbrevs mode is enabled. See the command `mail-abbrevs-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `mail-abbrevs-mode'. (custom-declare-variable 'mail-abbrevs-mode 'nil '(#$ . 736) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'mail-abbrev :type 'boolean :version "20.3") #@75 Non-nil means expand mail aliases as abbrevs, in certain message headers. (defalias 'mail-abbrevs-mode #[(&optional arg) "\303 \304=\203 \n?\202( \203 \305 !\306V\202( \n\204\" \307\202( \310\311\302\"\210\312\211\2033 \313 \210\2026 \314 \210\315\316\n\203@ \317\202A \320\"\210\321 \203e \322\302!\210\303 \203X \303 \232\203e \310\323\n\203b \324\202c \325\"\210)\326 \210\n\207" [#1=#:last-message arg mail-abbrevs-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil mail-abbrevs-enable mail-abbrevs-disable run-hooks mail-abbrevs-mode-hook mail-abbrevs-mode-on-hook mail-abbrevs-mode-off-hook called-interactively-p customize-mark-as-set "Mail-Abbrevs mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1193) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode mail-abbrevs-mode nil boundp mail-abbrevs-mode-map] 5) #@129 Non-nil means only mail abbrevs should expand automatically. Other abbrevs expand only when you explicitly use `expand-abbrev'. (custom-declare-variable 'mail-abbrevs-only 'nil '(#$ . 2156) :type 'boolean :group 'mail-abbrev) #@262 Word-abbrev table of mail address aliases. If this is nil, it means the aliases have not yet been initialized and should be read from the .mailrc file. (This is distinct from there being no aliases, which is represented by this being a table with no entries.) (defvar mail-abbrevs nil (#$ . 2389)) #@74 The modification time of your mail alias file when it was last examined. (defvar mail-abbrev-modtime nil (#$ . 2694)) (defalias 'mail-abbrevs-sync-aliases #[nil "\205 \303!\205 \304\305!8\n \232?\205 \306 )\207" [mail-personal-alias-file modtime mail-abbrev-modtime file-exists-p 5 file-attributes build-mail-abbrevs] 3]) #@45 Initialize use of the `mailabbrev' package. (defalias 'mail-abbrevs-setup #[nil "\303!\204 \304 !\203 \305\306 !8\307 \210\310 \210\311\312\313\314\315$\210\316\317!\207" [mail-abbrevs mail-personal-alias-file mail-abbrev-modtime vectorp file-exists-p 5 file-attributes build-mail-abbrevs mail-abbrevs-sync-aliases add-hook abbrev-expand-functions mail-abbrev-expand-wrapper nil t abbrev-mode 1] 5 (#$ . 3031)]) (defalias 'mail-abbrevs-enable #[nil "\300\301\302\"\207" [add-hook mail-mode-hook mail-abbrevs-setup] 3]) #@43 Turn off use of the `mailabbrev' package. (defalias 'mail-abbrevs-disable #[nil "\300\301\302\"\210\303\304\303!\203 \305\202 \306!\207" [remove-hook mail-mode-hook mail-abbrevs-setup abbrev-mode default-value 1 -1] 3 (#$ . 3560)]) #@142 Read mail aliases from personal mail alias file and set `mail-abbrevs'. By default this is the file specified by `mail-personal-alias-file'. (defalias 'build-mail-abbrevs #[(&optional file recursivep) "\306\206 !\307\n!\204 \310\311\302\310\"\210\312\313\"\210\314\315!r q\210\316\216\317 \210\320!\203< r\320!q\210ed{)c\210\202F \321!\203F \322!\210db\210h\323=\204R \324 \210eb\210\325\326\310\327#\203l `\330Z \310\210\f`|\210)\202U eb\210m\204\220 \310\210h\331U\203\212 \332\333!\210\332\334!\210\335c\210\202o \334u\210\202o eb\210\336\337\310\327#\203\326 \340 \210\341\342!\203\265 \310\210\343\344\334\224\334\225{!\327\"\210\202\223 \336\345!\210\334\224\334\225{ \346\310w\210` *\310\210\347 *`{\327#\210*\202\223 +\204\336 \350 \210\n\210+\312\351\"\207" [file mail-personal-alias-file mail-abbrevs #1=#:temp-buffer p name expand-file-name vectorp nil define-abbrev-table message "Parsing %s..." generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) buffer-disable-undo get-file-buffer file-exists-p insert-file-contents 10 newline search-forward "# " t 2 92 delete-char -1 1 32 re-search-forward "^\\(a\\(lias\\)?\\|g\\(roup\\)?\\|source\\)[ ]+" beginning-of-line looking-at "source[ ]+\\([^ \n]+\\)" build-mail-abbrevs substitute-in-file-name "[ ]+\\([^ \n]+\\)" " " define-mail-abbrev mail-resolve-all-aliases "Parsing %s... done" start recursivep] 4 (#$ . 3801)]) #@212 *A string inserted between addresses in multi-address mail aliases. This has to contain a comma, so ", " is a reasonable value. You might also want something like ",\n " to get each address on its own line. (defvar mail-alias-separator-string ", " (#$ . -5269)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list mail-abbrev-aliases-need-to-be-resolved default-boundp set-default t] 3) #@340 Define NAME as a mail alias abbrev that translates to DEFINITION. If DEFINITION contains multiple addresses, separate them with commas. Optional argument FROM-MAILRC-FILE means that DEFINITION comes from a mailrc file. In that case, addresses are separated with spaces and addresses with embedded spaces are surrounded by double-quotes. (defalias 'define-mail-abbrev #[(name definition &optional from-mailrc-file) "\306!\204 \307 \210\310\311 \"\203 \312\225\313O\310\314 \"\203# \312\211\224O G\211\312V\205- \312\313\211 \313 \203\355 \203\221 H\315=\203W T\310\316 #\205S \317\225\202] \310\320 # \fO\f\205p \312\225\nU?\205p \312\225\310\321 \"\203\210 \310\322\323\317 \"\"\203\210 \324\321\325 # B \2025 \310\326 # \232\203\263 \323\317 \" B \312\225\nU?\205\256 \312\225\211\2026 \310\327 # \fO\f\205\314 \312\225\nU?\205\314 \312\225\310\321 \"\203\344 \310\322\323\317 \"\"\203\344 \324\321\325 # B \2025 \330\331 \237 #-\332 !\227!\" \"\333! \334\312\332&)\207" [mail-abbrevs definition L start end this-entry vectorp build-mail-abbrevs string-match "\\`[ \n,]+" 0 nil "[ \n,]+\\'" 34 "[^\\]\\(\\([\\][\\]\\)*\\)\"[ ,]*" 1 "[ ,]+" "\\(.+?\\)[ ]*\\(<.*>\\)" "[^- !#$%&'*+/0-9=?A-Za-z^_`{|}~]" match-string replace-regexp-in-string "\"\\1\" \\2" "[ ,]*\\(\"\\(?:[^\"]\\|[^\\]\\(?:[\\][\\]\\)*\"\\)*\"[ ]*<[-.!#$%&'*+/0-9=?A-Za-z^_`{|}~@]+>\\)[ ,]*" "[ \n,]*,[ \n]*" mapconcat identity t define-abbrev mail-abbrev-expand-hook result from-mailrc-file mail-alias-separator-string mail-abbrev-aliases-need-to-be-resolved name abbrevs-changed] 8 (#$ . 5696) "sDefine mail alias: \nsDefine %s as mail alias for: "]) #@59 Resolve all forward references in the mail aliases table. (defalias 'mail-resolve-all-aliases #[nil "\205 \302 !\203 \303\304 \"\210\305\211\207" [mail-abbrev-aliases-need-to-be-resolved mail-abbrevs vectorp mapatoms mail-resolve-all-aliases-1 nil] 3 (#$ . 7384)]) (defalias 'mail-resolve-all-aliases-1 #[(sym &optional so-far) " >\203 \306\307\310\311 B\312#\"\210\313!\205 J\211\203K \314\315 \203> \316\317\n # \n O\fB \2059 \315\225)\202\" \310\320\f\237#\nL\210*)J\207" [sym so-far definition start result end error "mail alias loop detected: %s" mapconcat symbol-name " <- " boundp nil 0 string-match "[ \n]*,[, \n]*" #[(x) "\304\305\227 \"\n B\"\206 \207" [x mail-abbrevs sym so-far mail-resolve-all-aliases-1 intern-soft] 4] mail-alias-separator-string] 7]) #@198 For use as the fourth arg to `define-abbrev'. After expanding a mail-abbrev, if Auto Fill mode is on and we're past the fill-column, break the line at the previous comma, and indent the next line. (defalias 'mail-abbrev-expand-hook #[nil "\306\212`\306\211\211 \307 \210`\fb\210 \205U iY\205U \310\311 \312#\205U `\313u\210\314c\210\315 \210`\316 \210\f`{\306\210iV\203O \206I \317 \320 \210)\nb\210\202 .\207" [abbrev-mode fp comma bol p auto-fill-function nil beginning-of-line search-backward "," t 1 "\n" delete-horizontal-space indent-relative " " do-auto-fill fill-column fill-prefix] 4 (#$ . 8183)]) #@387 *Regexp to select mail-headers in which mail abbrevs should be expanded. This string will be handed to `looking-at' with point at the beginning of the current line; if it matches, abbrev mode will be turned on, otherwise it will be turned off. (You don't need to worry about continuation lines.) This should be set to match those mail fields in which you want abbreviations turned on. (defvar mail-abbrev-mode-regexp "^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\|Reply-to\\):" (#$ . -8814)) #@266 The syntax-table used for abbrev-expansion purposes. This is not actually made the current syntax table of the buffer, but simply controls the set of characters which may be a part of the name of a mail alias. The value is set up, buffer-local, when first needed. (defvar mail-abbrev-syntax-table nil (#$ . 9309)) (defalias 'mail-abbrev-make-syntax-table #[nil "\304\300!\210?\205E \305\306 !\307 \310H\307 \311H\312\313 \"\210\314\315\316 #\210\314\317\316 #\210\314\320\316 #\210\314\321\316 #\210\314\310\316 #\210\314\322\316 #\210 \211+\207" [mail-abbrev-syntax-table w _ tab make-local-variable copy-syntax-table syntax-table standard-syntax-table 95 119 map-char-table #[(key value) "\204 \nH \232\205 \305 \n\f#\207" [value tab key _ w set-char-table-range] 4] modify-syntax-entry 64 "w" 37 33 46 45] 4]) #@50 Whether point is in a mail-address header field. (defalias 'mail-abbrev-in-expansion-header-p #[nil "\302\212m\204\n \303u\210\304\305\306\307#\210\310 !)\205\" `\214~\210\212\311 \210`*W)\207" [case-fold-search mail-abbrev-mode-regexp t 1 re-search-backward "^[^ ]" nil move looking-at rfc822-goto-eoh] 4 (#$ . 10140)]) (defalias 'mail-abbrev-expand-wrapper #[(expand) "\203U \306=\204U \307 \203F \n\203 \310 \210\311 \210 \250\2033 \f\312\232\2033 z\313=\206D \314>\206D \315 p \316\216\317!\210 +)\207\203Q \f\320=\205T \207 \207" [mail-abbrevs local-abbrev-table mail-abbrev-aliases-need-to-be-resolved last-command-event this-command #1=#:buffer t mail-abbrev-in-expansion-header-p mail-resolve-all-aliases mail-abbrev-make-syntax-table self-insert-command 95 (64 46 37 33 95 45) syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2=#:table set-syntax-table] 2)) set-syntax-table expand-abbrev #2# mail-abbrev-syntax-table expand mail-abbrevs-only] 2]) #@60 Merge mail aliases from the given file with existing ones. (defalias 'merge-mail-abbrevs #[(file) "\301!\207" [file build-mail-abbrevs] 2 (#$ . 11136) (list (let ((insert-default-directory t) (default-directory (expand-file-name "~/")) (def mail-personal-alias-file)) (read-file-name (format "Read additional aliases from file (default %s): " def) default-directory (expand-file-name def default-directory) t)))]) #@51 Rebuild all the mail aliases from the given file. (defalias 'rebuild-mail-abbrevs #[(&optional file) "\204 \303\304!\207" [file buffer-file-name mail-abbrevs nil build-mail-abbrevs] 2 (#$ . 11557) (list (let ((insert-default-directory t) (default-directory (expand-file-name "~/")) (def mail-personal-alias-file)) (read-file-name (format "Read mail aliases from file (default %s): " def) default-directory (expand-file-name def default-directory) t)))]) #@37 Prompt for and insert a mail alias. (defalias 'mail-abbrev-insert-alias #[(&optional alias) "\302!\204 \303 \210 \203 \304 \"J\206 \305c\210\306 \207" [mail-abbrevs alias vectorp mail-abbrevs-setup intern-soft "" mail-abbrev-expand-hook] 3 (#$ . 12023) (progn (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup)) (list (completing-read "Expand alias: " mail-abbrevs nil t)))]) #@46 Perform completion on alias preceding point. (defalias 'mail-abbrev-complete-alias #[nil "\306 \210`\307 p\310\216\311 !\210\212\312v\210`,\211 { \313 \"\211 \314=\203/ \315\316 \"\202_ \204; \317\320 \"\202_ \230\204L \f|\210c\202_ \321\220\322\315\323!\210\324 \"\315\325!\210 \"\221,\207" [end #1=#:buffer #2=#:table mail-abbrev-syntax-table beg alias mail-abbrev-make-syntax-table syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table -1 try-completion t message "%s" error "[Can't complete \"%s\"]" "*Completions*" display-completion-list "Making completion list..." all-completions "Making completion list...done" mail-abbrevs completion] 6 (#$ . 12413) nil]) #@275 Expand a mail abbrev before point, then move vertically down ARG lines. This only expands an abbrev (if one is present) if called with point at the end of a line, or on whitespace before the end of a line. In terms of line motion, this behaves like `next-line', which see. (defalias 'mail-abbrev-next-line #[(&optional arg) "\302\303!\203 \304 \210\305\211 !\207" [this-command arg looking-at "[ ]*\n" expand-abbrev next-line] 3 (#$ . 13151) "p"]) #@272 Expand a mail abbrev before point, then move to the end of the buffer. This only expands an abbrev (if one is present) if called with point at the end of a line, or on whitespace before the end of a line. In other respects, this behaves like `end-of-buffer', which see. (defalias 'mail-abbrev-end-of-buffer #[(&optional arg) "\302\303!\203 \304 \210\305\211 !\207" [this-command arg looking-at "[ ]*\n" expand-abbrev end-of-buffer] 3 (#$ . 13610) "P"]) (byte-code "\300\301\302\"\210\303\304!\207" [eval-after-load "sendmail" (progn (define-key mail-mode-map "" 'mail-abbrev-insert-alias) (define-key mail-mode-map " " 'mail-abbrev-complete-alias)) provide mailabbrev] 3)
Close
