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-identity.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\302\303\304\"\207" [require mh-e autoload mml-insert-tag "mml"] 3) #@111 Holds the GPG key ID to be used by pgg.el. This is normally set as part of an Identity in `mh-identity-list'. (defvar mh-identity-pgg-default-user-id nil (#$ . 502)) (make-variable-buffer-local 'mh-identity-pgg-default-user-id) #@20 The Identity menu. (defvar mh-identity-menu nil (#$ . 736)) (defalias 'mh-identity-make-menu-no-autoload 'mh-identity-make-menu) #@137 Build the Identity menu. This should be called any time `mh-identity-list' or `mh-auto-fields-list' change. See `mh-identity-add-menu'. (defalias 'mh-identity-make-menu #[nil "\302\303!\210\304\305\306\307\310\311\312\313\312\314 \"\"\315$$\207" [mh-letter-mode-map mh-identity-list (lambda (#1=#:def-tmp-var) (defvar mh-identity-menu #1# #2="MH-E identity menu")) nil easy-menu-do-define mh-identity-menu #2# append ("Identity") (["Insert Auto Fields" (mh-insert-auto-fields) mh-auto-fields-list] "--") mapcar #[(arg) "\301\302D\303\304\305\306\307E&\207" [arg vector mh-insert-identity :style radio :selected equal mh-identity-local] 9] car (["None" (mh-insert-identity "None") :style radio :selected (not mh-identity-local)] "--" ["Set Default for Session" (setq mh-identity-default mh-identity-local) t] ["Save as Default" (customize-save-variable 'mh-identity-default mh-identity-local) t] ["Customize Identities" (customize-variable 'mh-identity-list) t])] 12 (#$ . 872)]) #@61 Add the current Identity menu. See `mh-identity-make-menu'. (defalias 'mh-identity-add-menu #[nil "\205 \301!\207" [mh-identity-menu easy-menu-add] 2 (#$ . 1862)]) #@65 Buffer-local variable that holds the identity currently in use. (defvar mh-identity-local nil (#$ . 2035)) (make-variable-buffer-local 'mh-identity-local) #@93 Delete header FIELD, or only its value if VALUE-ONLY is t. Return t if anything is deleted. (defalias 'mh-header-field-delete #[(field value-only) "\303\304\"\203 \202 \305P\306 !\2051 \n\204 \307 \210\202\" \310u\210`\311 \210\n\204- \312u\210`|\210\313)\207" [field field-colon value-only string-match "^.*:$" ":" mh-goto-header-field beginning-of-line nil mh-header-field-end 1 t] 3 (#$ . 2196)]) #@75 Marker for the beginning of a signature inserted by `mh-insert-identity'. (defvar mh-identity-signature-start nil (#$ . 2609)) #@69 Marker for the end of a signature inserted by `mh-insert-identity'. (defvar mh-identity-signature-end nil (#$ . 2742)) #@260 Return the handler for header FIELD or nil if none set. The field name is downcased. If the FIELD begins with the character ":", then it must have a special handler defined in `mh-identity-handlers', else return an error since it is not a valid header field. (defalias 'mh-identity-field-handler #[(field) "\302 \303#A\206! \304H\305=\203 \306\307\"\206! \310\311 \"A\206! \312\207" [field mh-identity-handlers mh-assoc-string t 0 58 error "Field %s not found in `mh-identity-handlers'" assoc ":default" mh-identity-handler-default] 4 (#$ . 2868)]) #@148 Prompt for and return an identity. If DEFAULT is non-nil, it will be used if the user doesn't enter a different identity. See `mh-identity-list'. (defalias 'mh-select-identity #[(default) "\303\304\305\306\307\310\307\311 \"\"B\303\312\n\303\n&\211\313=?\205 )\207" [identity mh-identity-list default nil completing-read "Identity: " ("None") mapcar list car t "None"] 9 (#$ . 3428)]) #@76 Return the specified FIELD of the given IDENTITY. See `mh-identity-list'. (defalias 'mh-identity-field #[(identity field) "\304 \"A@\304 \n\"A)\207" [identity mh-identity-list pers-list field assoc] 4 (#$ . 3825)]) #@206 Insert fields specified by given IDENTITY. In a program, do not insert fields if MAYBE-INSERT is non-nil, `mh-identity-default' is non-nil, and fields have already been inserted. See `mh-identity-list'. (defalias 'mh-insert-identity #[(identity &optional maybe-insert) "\203 \306\301!\205{ \205{ \n?\205{ \212\n\203: \307\n \"A@\211 \2039 \f@@ \310 !\211 \311\"\210*\fA\211\204# )\312\232\204k \307 \"A@\211 \203j \f@@ \f@A \310 !\211 \313#\210+\fA\211\204M ))\312\232\203w \314\211\207\211\207" [maybe-insert mh-identity-default mh-identity-local mh-identity-list pers-list field boundp assoc mh-identity-field-handler remove "None" add nil handler identity value] 5 (#$ . 4050) (list (completing-read "Identity: " (if mh-identity-local (cons '("None") (mapcar 'list (mapcar 'car mh-identity-list))) (mapcar 'list (mapcar 'car mh-identity-list))) nil t) nil)]) #@223 Process header FIELD ":pgg-default-user-id". The ACTION is one of `remove' or `add'. If `add', the VALUE is added. The buffer-local variable `mh-identity-pgg-default-user-id' is set to VALUE when action `add' is selected. (defalias 'mh-identity-handler-gpg-identity #[(_field action &optional value) "\303=\204 \203 \304\230\203 \305\211\207\306=\205 \211\207" [action value mh-identity-pgg-default-user-id remove "" nil add] 2 (#$ . 4943)]) #@106 Process header FIELD ":signature". The ACTION is one of `remove' or `add'. If `add', the VALUE is added. (defalias 'mh-identity-handler-signature #[(_field action &optional value) "\304=\203 \305 !\205 \305\n!\205G \n|\207\306 ?\205G db\210\214``}\210 \204. \307 \210\2022 \307 !\210\310\301!\210\311 \312 \313\"\210\310\302!\210\314 \211)\207" [action mh-identity-signature-start mh-identity-signature-end value remove markerp mh-signature-separator-p mh-insert-signature make-local-variable point-min-marker set-marker-insertion-type t point-max-marker] 3 (#$ . 5403)]) #@51 Marker for the beginning of the attribution verb. (defvar mh-identity-attribution-verb-start nil (#$ . 5987)) #@45 Marker for the end of the attribution verb. (defvar mh-identity-attribution-verb-end nil (#$ . 6103)) #@114 Process header FIELD ":attribution-verb". The ACTION is one of `remove' or `add'. If `add', the VALUE is added. (defalias 'mh-identity-handler-attribution-verb #[(_field action &optional value) "\304!\205 \304 !\205 |\210b\210\n\305=\203 \306\307!\207\306 !\207" [mh-identity-attribution-verb-start mh-identity-attribution-verb-end action value markerp remove mh-identity-insert-attribution-verb nil] 2 (#$ . 6212)]) #@123 Insert VALUE as attribution verb, setting up delimiting markers. If VALUE is nil, use `mh-extract-from-attribution-verb'. (defalias 'mh-identity-insert-attribution-verb #[(value) "\214``}\210\204 c\210\202 c\210\304\302!\210\305 \306\n\307\"\210\304\303!\210\310 \211)\207" [value mh-extract-from-attribution-verb mh-identity-attribution-verb-start mh-identity-attribution-verb-end make-local-variable point-min-marker set-marker-insertion-type t point-max-marker] 3 (#$ . 6644)]) #@217 Process header FIELD. The ACTION is one of `remove' or `add'. If TOP is non-nil, add the field and its VALUE at the top of the header, else add it at the bottom of the header. If action is `add', the VALUE is added. (defalias 'mh-identity-handler-default #[(field action top &optional value) "\305\306\"\203 \202 \307P\n\310=\203 \311 \312\"\202J \203& \313\230\203- \311 \312\"\202J \311 \314\"\2039 c\202J eb\210\f\204D \315\316!\210 \317 \320\261)\207" [field field-colon action value top string-match "^.*:$" ":" remove mh-header-field-delete nil "" t mh-goto-header-end 0 " " "\n"] 4 (#$ . 7139)]) #@160 Process header FIELD. The ACTION is one of `remove' or `add'. If `add', the VALUE is added. If the field wasn't present, it is added to the top of the header. (defalias 'mh-identity-handler-top #[(field action &optional value) "\303 \304\n$\207" [field action value mh-identity-handler-default t] 5 (#$ . 7760)]) #@163 Process header FIELD. The ACTION is one of `remove' or `add'. If `add', the VALUE is added. If the field wasn't present, it is added to the bottom of the header. (defalias 'mh-identity-handler-bottom #[(field action &optional value) "\303 \304\n$\207" [field action value mh-identity-handler-default nil] 5 (#$ . 8081)]) (provide 'mh-identity)
Close
