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-seq.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!\207" [require mh-e mh-scan font-lock] 2) #@44 Name of seq to which a msg was last added. (defvar mh-last-seq-used nil (#$ . 497)) #@66 Saved value of `mh-mode-line-annotation' when narrowed to a seq. (defvar mh-non-seq-mode-line-annotation nil (#$ . 587)) (make-variable-buffer-local 'mh-non-seq-mode-line-annotation) (defvar mh-internal-seqs '(answered cur deleted forwarded printed)) #@43 Create sequence NAME with the given MSGS. (defalias 'mh-make-seq #[(name msgs) " B\207" [name msgs] 2 (#$ . 844)]) (put 'mh-make-seq 'byte-optimizer 'byte-compile-inline-expand) #@48 Extract sequence name from the given SEQUENCE. (defalias 'mh-seq-name #[(sequence) "@\207" [sequence] 1 (#$ . 1029)]) (put 'mh-seq-name 'byte-optimizer 'byte-compile-inline-expand) #@138 Delete RANGE from the "unseen" sequence. Check the documentation of `mh-interactive-range' to see how RANGE is read in interactive use. (defalias 'mh-catchup #[(range) "\302 \"\207" [range mh-unseen-seq mh-delete-msg-from-seq] 3 (#$ . 1218) (list (mh-interactive-range "Catchup" (cons (point-min) (point-max))))]) #@200 Delete RANGE from SEQUENCE. Check the documentation of `mh-interactive-range' to see how RANGE is read in interactive use. In a program, non-nil INTERNAL-FLAG means do not inform MH of the change. (defalias 'mh-delete-msg-from-seq #[(range sequence &optional internal-flag) "\306!\307!? C\310 \211 \205h \247\203C \311 \312\211#\203; \211 \nB A>\2038 \313 \f?\"\210\314 \312#\210)\202; :\203\235 @\247\203\235 A\247\203\235 \212 @b\210\315 \210` AX\203\231 m\204\231 \316 !\203\223 \317\312!\211 \nB A>\203\213 \313 \f?\"\210\314 \312#\210)\320y\210\202` )\202; \203\257 9\203\257 \321 !\202\277 ;\203\275 \322 \"\202\277 \323 \211 \310 \211 !\203\355 !@\211 \" #\324\"\312##\210*!A\211!\204\317 *\212eb\210\315 \210`dX\203:m\204:\316 !\2034\317\312! $\325$ \"\2033$\211 \nB A>\203+\313 \f?\"\210\314 \312#\210))\320y\210\202\365 +%\204E\326\n\"\210&\203W%\204W\327 \330\n\"\"'=\205h\331 \205h\332\333\312 #,\207" [sequence mh-current-folder msg-list folders-changed user-sequence-flag entry mh-find-seq mh-internal-seq nil mh-goto-msg t mh-remove-sequence-notation mh-delete-a-msg-from-seq beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash gethash mh-undefine-sequence append mh-index-delete-from-sequence mh-speed-flists-active-p apply mh-speed-flists range msg mh-scan-valid-regexp #1=#:seq-hash-table #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v internal-flag mh-index-data mh-unseen-seq] 6 (#$ . 1541) (list (mh-interactive-range "Delete") (mh-read-seq-default "Delete from" t) nil)]) #@222 Delete SEQUENCE. You are prompted for the sequence to delete. Note that this deletes only the sequence, not the messages in the sequence. If you want to delete the messages, use "\[universal-argument] \[mh-delete-msg]". (defalias 'mh-delete-seq #[(sequence) "\306!\307! C \247\203# \310\311\211#\203\342 \312 \"\210)\202\342 :\203b @\247\203b A\247\203b \212@b\210\313 \210`AX\203^ m\204^ \314 !\203X \315\311! \312 \"\210)\316y\210\202< )\202\342 \203q 9\203q \306!\202~ ;\203} \317 \"\202~ \320 \211 \321 \211 \203\252 @\211 !\322 \311!#\210* A\211 \204\215 *\212eb\210\313 \210`dX\203\341 m\204\341 \314 !\203\333 \315\311! \"\323\" \"\203\332 \" \312 \"\210))\316y\210\202\262 +\324\325\"\210\326!\210#\203\370 \327\n\330\f\"\"$=\205 \331 \205 \332\333\311\n#+\207" [sequence mh-current-folder folders-changed internal-flag msg-list msg mh-seq-to-msgs mh-internal-seq mh-goto-msg t mh-remove-sequence-notation beginning-of-line looking-at mh-get-msg-num 1 mh-translate-range make-hash-table nil puthash gethash mh-undefine-sequence ("all") mh-delete-seq-locally append mh-index-delete-from-sequence mh-speed-flists-active-p apply mh-speed-flists mh-scan-valid-regexp #1=#:seq-hash-table #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v mh-index-data mh-unseen-seq] 6 (#$ . 3176) (list (mh-read-seq-default "Delete" t))]) #@87 List all sequences in folder. The list appears in a buffer named "*MH-E Sequences*". (defalias 'mh-list-sequences #[nil " \n\306 #$ %r\307 !q\210p\310 \210%$\311\211&'\312\211(\312 ) *\313 \210\314\315!\210+\211 + ,r q\210\313 \210\316\317!\210\320#\321\261\210\f \f\203b \322\f\211A\242\211 -@)!G ]\202K \323 \\)\f\203\321 \f@\211 -@)\324\325\326\f@\211 -A)!\327\"!\311 . / 0\330\211\331 \"0\"\211.c\210/\203\306 \330\332/\211A/\242\" 1i1G\\\333 Y\203\276 \334c\210\330\211\335.G\"\336\"c\2101c\210)\202\224 \334c\210+\fA\211\204k eb\210\337 \210\3402\316\341!)\342+!\210.\207" [mh-current-folder mh-sequences-buffer mh-seq-list max-len seq-list temp-buffer 0 get-buffer-create kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook message "Listing sequences ..." "Sequences in folder " ":\n" symbol-name 2 mh-coalesce-msg-list sort copy-sequence < format "%%%ss:" " %s" window-width "\n" "%%%ss" "" mh-view-mode-enter kill-buffer "Listing sequences...done" internal-temp-output-buffer-show folder default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output sequence name-spec sorted-seq-msgs name next-element view-exit-action] 6 (#$ . 4552) nil]) #@143 Display the sequences in which the current message appears. Use a prefix argument to display the sequences in which another MESSAGE appears. (defalias 'mh-msg-is-in-seq #[(message) "\204 \306\307! \310\307 \310 \n:\2033 \n@ A\235\203( @\310\211\202) \307\2033 \nA\211\202 \f?\2059 ,\211 ?\205E \235 \300\311\203W \312\313\"\202c \203b \312\314!\202c \315\316\317\320\321\307\"!\322#$*\207" [message mh-refile-list #1=#:--cl-var-- seq #2=#:--cl-var-- #3=#:--cl-var-- mh-get-msg-num t nil "Message %d%s is in sequences: %s" format " (to be refiled to %s)" " (to be deleted)" "" mapconcat concat mh-list-to-string mh-seq-containing-msg " " dest-folder mh-delete-list deleted-flag] 11 (#$ . 5852) "P"]) #@348 Restrict display to messages in SEQUENCE. You are prompted for the name of the sequence. What this command does is show only those messages that are in the selected sequence in the MH-Folder buffer. In addition, it limits further MH-E searches to just those messages. When you want to widen the view to all your messages again, use \[mh-widen]. (defalias 'mh-narrow-to-seq #[(sequence) "\306 \307\211\310 !\203\211 \311 \210d\312\307! !\"B\"\313\314\315\"!\316 !\210\317e \"#B#e |\210\320 \210\321 \210\f\203D \322\f\323\211#\210$%\324 !$\325 \210\326\307!\210\327\330!\203~ \203~ \331\332!\210&\333\334'!!\203~ r'q\210\331\332!\210()\335)B\211)*\202\217 \336\337\324 !\"\340\n!\210+\207" [buffer-file-name buffer-read-only mh-folder-updating-mod-flag sequence msg-at-cursor eob buffer-modified-p nil mh-seq-to-msgs mh-remove-all-notation mh-get-msg-num make-hash-table :test eql mh-copy-seq-to-eob buffer-substring-no-properties mh-notate-deleted-and-refiled mh-notate-cur mh-goto-msg t symbol-name mh-make-folder-mode-line mh-recenter boundp tool-bar-mode make-local-variable tool-bar-map buffer-live-p get-buffer widen error "No messages in sequence %s" mh-set-folder-modified-p mh-thread-scan-line-map mh-thread-scan-line-map-stack mh-folder-view-stack mh-mode-line-annotation mh-non-seq-mode-line-annotation mh-folder-seq-tool-bar-map mh-show-buffer mh-show-seq-tool-bar-map mh-view-ops] 4 (#$ . 6585) (list (mh-read-seq "Narrow to" t))]) #@337 Limit to ticked messages. What this command does is show only those messages that are in the "tick" sequence (which you can customize via the `mh-tick-seq' option) in the MH-Folder buffer. In addition, it limits further MH-E searches to just those messages. When you want to widen the view to all your messages again, use \[mh-widen]. (defalias 'mh-narrow-to-tick #[nil "\204 \302\303!\207\304!\211A)\204 \305\306\"\207\307!\207" [mh-tick-seq sequence error "Enable ticking by customizing `mh-tick-seq'" mh-find-seq message "No messages in %s sequence" mh-narrow-to-seq] 4 (#$ . 8063) nil]) #@331 Add RANGE to SEQUENCE\<mh-folder-mode-map>. Give this command a RANGE and you can add all the messages in a sequence to another sequence (for example, "\[universal-argument] \[mh-put-msg-in-seq] SourceSequence RET DestSequence RET"). Check the documentation of `mh-interactive-range' to see how RANGE is read in interactive use. (defalias 'mh-put-msg-in-seq #[(range sequence) "\306!\204 \307\310\"\210\311!\312!\211A) C \313 ! \314 \315\316$\210 \247\203G \317 \316\211#\203 \211 \n>\204C \320 \"\210)\202 :\203\216 @\247\203\216 A\247\203\216 \212 @b\210\321 \210` AX\203\212 m\204\212 \322!!\203\204 \323\316!\211 \n>\204\203 \320 \"\210)\324y\210\202` )\202 \203\235 9\203\235 \325 !\202\252 ;\203\251 \326 \"\202\252 \327 \"\211 #\315 $\211 %\203\330 %@\211$ &\" '\330&\316'#\210*%A\211%\204\272 *\212eb\210\321 \210`dX\203m\204\322!!\203\323\316! (\331(\"\"\203(\211 \n>\204\320 \"\210))\324y\210\202\340 + \204 )*\203-\332\f\333 \"\"+=\205>\334 \205>\335\336\316\f#,\207" [sequence internal-seq-flag original-msgs mh-current-folder folders range mh-valid-seq-p error "Can't put message in invalid sequence %s" mh-internal-seq mh-find-seq mh-range-to-msg-list mh-add-msgs-to-seq nil t mh-goto-msg mh-add-sequence-notation beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash gethash append mh-index-add-to-sequence mh-speed-flists-active-p apply mh-speed-flists msg-list m mh-scan-valid-regexp #1=#:seq-hash-table #2=#:msgs msg --dolist-tail-- #3=#:v #4=#:v v mh-last-seq-used mh-index-data mh-unseen-seq] 6 (#$ . 8669) (list (mh-interactive-range "Add messages from") (mh-read-seq-default "Add to" nil))]) #@311 Toggle tick mark of RANGE. This command adds messages to the "tick" sequence (which you can customize via the option `mh-tick-seq'). This sequence can be viewed later with the \[mh-index-ticked-messages] command. Check the documentation of `mh-interactive-range' to see how RANGE is read in interactive use. (defalias 'mh-toggle-tick #[(range) "\204 \306\307!\210\310!\211\211A)\311\211 \247\203l \312 \313\211#\203\257 \211 \235\203O B \314 A\"\241\210 A\204E \311 \315 \316 \"\210\202h \fB D B \317 \316 \"\210))\202\257 :\203\353 @\247\203\353 A\247\203\353 \212 @b\210\320 \210` AX\203\347 m\204\347 \321!!\203\341 \322\313!\211 \235\203\307 B \314 A\"\241\210 A\204\275 \311 \315 \316 \"\210\202\340 \fB D B \317 \316 \"\210))\323y\210\202\211 )\202\257 \203\375 9\203\375 \324 !\202 ;\203\f\325\" \"\202 \326 #\211 $\311 \211 %\203<%@\211 &# '\327&\313'#\210*%A\211%\204 *\212eb\210\320 \210`dX\203\256m\204\256\321!!\203\250\322\313! (\330(#\"\203\247(\211 \235\203\215 B \314 A\"\241\210 A\204\203\311 \315 \316 \"\210\202\246 \fB D B \317 \316 \"\210)))\323y\210\202D+\331\f\311\313$\210\332 \"\210)\205\311\333\f\"\210\334 \",\207" [mh-tick-seq tick-seq sequence tick-seq-msgs ticked unticked error "Enable ticking by customizing `mh-tick-seq'" mh-find-seq nil mh-goto-msg t delq mh-remove-sequence-notation mh-colors-in-use-p mh-add-sequence-notation beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash gethash mh-add-msgs-to-seq mh-undefine-sequence mh-index-add-to-sequence mh-index-delete-from-sequence range msg mh-last-seq-used mh-seq-list mh-scan-valid-regexp mh-current-folder #1=#:seq-hash-table #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v mh-index-data] 6 (#$ . 10408) (list (mh-interactive-range "Tick"))]) #@196 Remove last restriction. Each limit or sequence restriction can be undone in turn with this command. Give this command a prefix argument ALL-FLAG to remove all limits and sequence restrictions. (defalias 'mh-widen #[(&optional all-flag) "\306\307! \203\247 \n\203% A\203 A\211\202 @\310=\203I A\202I \311\310!\204I \310 >\203E @\310=\204? A\211\2022 A\202I \312\313!\210\n\203e \fA\203Y \fA\211\202N A\203e A\211\202Z \f\211A\242\314 \307\211 ed|\210 \211A\242c\210\315 \210 \316 \210\317 !\210+\203\232 \320\321\211#\210\322 \210\323 \210\324 \210\325\307!\210) ?\205\330 \326\327!\205\330 \205\330 \330\331!\210!\332\333\"!!\205\330 r\"q\210\330\331!\210#\211)\207" [msg mh-folder-view-stack all-flag mh-view-ops mh-thread-scan-line-map-stack mh-thread-scan-line-map mh-get-msg-num nil widen mh-valid-view-change-operation-p error "Widening is not applicable" buffer-modified-p mh-remove-all-notation mh-make-folder-mode-line mh-set-folder-modified-p mh-goto-msg t mh-notate-deleted-and-refiled mh-notate-user-sequences mh-notate-cur mh-recenter boundp tool-bar-mode make-local-variable tool-bar-map buffer-live-p get-buffer buffer-file-name buffer-read-only mh-folder-updating-mod-flag mh-non-seq-mode-line-annotation mh-mode-line-annotation mh-folder-tool-bar-map mh-show-buffer mh-show-tool-bar-map] 5 (#$ . 12321) "P"]) (defvar mh-sequence-history nil) #@176 Read and return sequence name with default narrowed or previous sequence. PROMPT is the prompt to use when reading. If NOT-EMPTY is non-nil then a non-empty sequence is read. (defalias 'mh-read-seq-default #[(prompt not-empty) "\303 \n\206 \304\305\306!\306\"@#\207" [prompt not-empty mh-last-seq-used mh-read-seq mh-seq-containing-msg mh-get-msg-num nil] 6 (#$ . 13730)]) #@248 Read and return a sequence name. Prompt with PROMPT, raise an error if the sequence is empty and the NOT-EMPTY flag is non-nil, and supply an optional DEFAULT sequence. A reply of `%' defaults to the first sequence containing the current message. (defalias 'mh-read-seq #[(prompt not-empty &optional default) "\306\307\310 \203 \307\311 \"\202 \312#\313\n!\314\211\211\315&\211\316\267\202/ \317\320\321!\314\"@\2022 \2022 \322 ! \323\f!\211 \204E \203E \324\325\f\"\210\f+\207" [prompt default mh-seq-list input seq msgs completing-read format "%s sequence%s: " " (default %s)" #1="" mh-seq-names nil mh-sequence-history #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("%" 33 #1# 43)) mh-seq-containing-msg mh-get-msg-num t intern mh-seq-to-msgs error "No messages in sequence %s" not-empty] 8 (#$ . 14112)]) #@66 Return non-nil if NAME is the name of an internal MH-E sequence. (defalias 'mh-internal-seq #[(name) " >\206$ \n=\206$ \305 \203 \203 =\206$ \f=\206$ \306!\207" [name mh-internal-seqs mh-unseen-seq mh-tick-seq mh-previous-seq mh-colors-in-use-p mh-folder-name-p] 2 (#$ . 14977)]) #@53 Return non-nil if NAME is a valid MH sequence name. (defalias 'mh-valid-seq-p #[(name) "9\205 \301\302\303!\"\207" [name string-match "^[a-zA-Z][a-zA-Z0-9]*$" symbol-name] 4 (#$ . 15272)]) #@23 Return sequence NAME. (defalias 'mh-find-seq #[(name) "\302 \"\207" [name mh-seq-list assoc] 3 (#$ . 15470)]) #@39 Return a list of the messages in SEQ. (defalias 'mh-seq-to-msgs #[(seq) "\302!\211A)\207" [seq sequence mh-find-seq] 3 (#$ . 15587)]) #@123 Return a list of the sequences containing MSG. If INCLUDE-INTERNAL-FLAG non-nil, include MH-E internal sequences in list. (defalias 'mh-seq-containing-msg #[(msg &optional include-internal-flag) "\306\211\2032 \n@\211 A)>\203+ \204\" \307\n@\211 @)!\204+ \n@\211 @) B\nA\211\204 *\207" [mh-seq-list seqs l msg sequence include-internal-flag nil mh-internal-seq] 3 (#$ . 15730)]) #@138 Define the SEQ to contain the list of MSGS. Do not mark pseudo-sequences or empty sequences. Signals an error if SEQ is an invalid name. (defalias 'mh-define-sequence #[(seq msgs) "\205\" \303 !\205\" \304 !?\205\" \212\305\306\307\n\310\311\312\313 !\314!&)\207" [msgs seq mh-current-folder mh-valid-seq-p mh-folder-name-p mh-exec-cmd-error nil "mark" "-add" "-zero" "-sequence" symbol-name mh-coalesce-msg-list] 10 (#$ . 16125)]) #@39 Remove from the SEQ the list of MSGS. (defalias 'mh-undefine-sequence #[(seq msgs) "\303!\205 \205 \304\305\306\n\307\310\311!\312 !&\207" [seq msgs mh-current-folder mh-valid-seq-p apply mh-exec-cmd "mark" "-delete" "-sequence" symbol-name mh-coalesce-msg-list] 9 (#$ . 16566)]) #@268 Add MSGS to SEQ. Remove duplicates and keep sequence sorted. If optional INTERNAL-FLAG is non-nil, do not mark the message in the scan listing or inform MH of the addition. If DONT-ANNOTATE-FLAG is non-nil then the annotations in the folder buffer are not updated. (defalias 'mh-add-msgs-to-seq #[(msgs seq &optional internal-flag dont-annotate-flag) "\306!\307! \203 :\204 C\n\204( \310 !\211 *B B\202: \203: \n\310\311 \n\211 A)\"!\241\210?\205B\312 \"\210?\205B \247\203l \313 \314\211#\205B \211 \nA>?\205h \315 \")\202B :\203\265 @\247\203\265 A\247\203\265 \212 @b\210\316 \210` AX\205\261 m?\205\261 \317 !\203\253 \320\314!\211 \nA>\204\252 \315 \"\210)\321y\210\202\205 )\202B \203\304 9\203\304 \322 !\202\322 ;\203\321 \323 \"\202\322 \324 \211 \325 \211 \203 @\211 ! \"\326!\314\"#\210* A\211 \204\342 *\212eb\210\316 \210`dX\205Am?\205A\317 !\203;\320\314! #\327# \"\203:#\211 \nA>\2049\315 \"\210))\321y\210\202+*\207" [seq internal-seq-flag entry msgs name mh-seq-list mh-find-seq mh-internal-seq mh-canonicalize-sequence append mh-add-to-sequence mh-goto-msg t mh-add-sequence-notation beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range make-hash-table nil puthash gethash sequence internal-flag dont-annotate-flag msg mh-scan-valid-regexp mh-current-folder #1=#:seq-hash-table #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v] 6 (#$ . 16859)]) #@58 The sequence SEQ is augmented with the messages in MSGS. (defalias 'mh-add-to-sequence #[(seq msgs) "\303!\205 \304!?\205 \205 \305\306\307\n\310\311\312!\313 !&\207" [seq msgs mh-current-folder mh-valid-seq-p mh-folder-name-p apply mh-exec-cmd "mark" "-add" "-sequence" symbol-name mh-coalesce-msg-list] 9 (#$ . 18319)]) #@54 Sort MSGS in decreasing order and remove duplicates. (defalias 'mh-canonicalize-sequence #[(msgs) "\303\304!\305\"\211\nA\203' \n@\nA@U\203 \n\211AA\241\210\202 \nA\211\202\n *\207" [msgs sorted-msgs head sort copy-sequence >] 4 (#$ . 18655)]) #@93 Delete MSG from SEQUENCE. If INTERNAL-FLAG is non-nil, then do not inform MH of the change. (defalias 'mh-delete-a-msg-from-seq #[(msg sequence internal-flag) "\304!\211\205& \n \211A)>\205& \204 \305\nC\"\210 \306\n \211A)\"\241)\207" [sequence entry msg internal-flag mh-find-seq mh-undefine-sequence delq] 5 (#$ . 18912)]) #@30 Remove MH-E's record of SEQ. (defalias 'mh-delete-seq-locally #[(seq) "\303!\304 \n\"\211)\207" [seq entry mh-seq-list mh-find-seq delq] 3 (#$ . 19251)]) #@36 Copy SEQ to the end of the buffer. (defalias 'mh-copy-seq-to-eob #[(seq) "\212\306!\307 !db\210\214``}\210\310\n\311\"\210\312 >\203C\313 \210edB\247\203F \314edB\311\211#\2032edB\211 \315 \316 #\210+\2022edB:\203\232 edB@\247\203\232 edBA\247\203\232 \212edB@b\210\317 \210`edBAX\203\226 m\204\226 \320 !\203\220 \321\311!\211 \315 \316 #\210+\322y\210\202g )\2022edB\203\257 edB9\203\257 \306edB!\202\303 edB;\203\300 \323 edB\"\202\303 edB\324 !\211 \"\325 \211 #\203\357 #@\211 $! %\315$\311%#\210*#A\211#\204\322 *\212eb\210\317 \210`dX\2031m\2041\320 !\203+\321\311! &\326&!\"\203*&\211 ' (\315'\316 (#\210+)\322y\210\202\367 +ed|\210\327\330 \325\"!\210\331 \202J)\205J\332 ,\207" [seq msgs coalesced-msgs mh-view-ops msg #1=#:v mh-seq-to-msgs mh-coalesce-msg-list mh-regenerate-headers t unthread mh-remove-all-notation mh-goto-msg puthash mh-thread-parse-scan-line beginning-of-line looking-at mh-get-msg-num 1 mh-translate-range make-hash-table nil gethash mh-thread-print-scan-lines mh-thread-generate mh-notate-user-sequences mh-index-insert-folder-headers mh-thread-scan-line-map #2=#:v mh-scan-valid-regexp #3=#:v #4=#:v mh-current-folder #5=#:seq-hash-table #6=#:msgs --dolist-tail-- #7=#:v #8=#:v v #9=#:v #10=#:v mh-index-data] 5 (#$ . 19414)]) #@91 Check if the view change operation can be performed. OP is one of `widen' and `unthread'. (defalias 'mh-valid-view-change-operation-p #[(op) "@ =\203 \211A\242\207\302\207" [mh-view-ops op nil] 2 (#$ . 20732)]) (defvar mh-range-history nil) (defvar mh-range-completion-map (copy-keymap minibuffer-local-completion-map)) (define-key mh-range-completion-map " " 'self-insert-command) #@713 Return interactive specification for message, sequence, range or region. By convention, the name of this argument is RANGE. If variable `transient-mark-mode' is non-nil and the mark is active, then this function returns a cons-cell of the region. If optional prefix argument is provided, then prompt for message range with RANGE-PROMPT. A list of messages in that range is returned. If a MH range is given, say something like last:20, then a list containing the messages in that range is returned. If DEFAULT non-nil then it is returned. Otherwise, the message number at point is returned. This function is usually used with `mh-iterate-on-range' in order to provide a uniform interface to MH-E functions. (defalias 'mh-interactive-range #[(range-prompt &optional default) "\305\300!\203 \203 \305\301!\203 \203 \306 \307 B\207\n\203& \310 \311\211\312\211%\207\f\203, \f\207\313\312!\207" [transient-mark-mode mark-active current-prefix-arg range-prompt default boundp region-beginning region-end mh-read-range nil t mh-get-msg-num] 6 (#$ . 21125)]) #@1645 Read a message range with PROMPT. If FOLDER is non-nil then a range is read from that folder, otherwise use `mh-current-folder'. If DEFAULT is a string then use that as default range to return. If DEFAULT is nil then ask user with default answer a range based on the sequences that seem relevant. Finally if DEFAULT is t, try to avoid prompting the user. Unseen messages, if present, are returned. If the folder has fewer than `mh-large-folder' messages then "all" messages are returned. Finally as a last resort prompt the user. If EXPAND-FLAG is non-nil then a list of message numbers corresponding to the input is returned. If this list is empty then an error is raised. If EXPAND-FLAG is nil just return the input string. In this case we don't check if the range is empty. If ASK-FLAG is non-nil, then the user is always queried for a range of messages. If ASK-FLAG is nil, then the function checks if the unseen sequence is non-empty. If that is the case, `mh-unseen-seq', or the list of messages in it depending on the value of EXPAND, is returned. Otherwise if the folder has fewer than `mh-large-folder' messages then the list of messages corresponding to "all" is returned. If neither of the above holds then as a last resort the user is queried for a range of messages. If NUMBER-AS-RANGE-FLAG is non-nil, then if a number, N is read as input, it is interpreted as the range "last:N". This function replaces the existing function `mh-read-msg-range'. Calls to: (mh-read-msg-range folder flag) should be replaced with: (mh-read-range "Suitable prompt" folder t nil flag mh-interpret-number-as-range-flag) (defalias 'mh-read-range #[(prompt &optional folder default expand-flag ask-flag number-as-range-flag) "\206 \206 \306\307\310!\311\"@\312\313\n\" \206 \f\311=\211 \205& \314 !\211 &\2052 &A@\315V '&\205D (\205D &@(V ) \203W )\203W \312\316(\"\202u \203d )\204d \317\202u ;\203m \202u 9\205u \320! \203\216 )\203\216 \203\216 \312\321\n&@$\202\252 \203\241 )\203\241 \312\322\n&@#\202\252 \205\252 \312\323\n#* + \f=\203\272 ,\202\276 \324 \310\" -\325\326\327-!\" ./\204\332 '\203\332 \3200!\202\365 /\204\350 )\204\350 \317\202\365 \330\312\331\n\"\332\310\211\211\333& 1\310 23\203\334\3351\"\203\336\337\3401\"P14\2041\202F\341\3421!-\"\2031\341\3421!-\"A\202F\343 1\"\2112\203A2\202F\344\3451\".\f\207" [default mh-last-seq-used prompt folder mh-current-folder guess mh-seq-containing-msg mh-get-msg-num nil t format "%s range" mh-folder-size 0 "last:%s" "all" symbol-name "%s (folder has %s messages, default %s)" "%s (folder has %s messages)" "%s (default %s)" mh-read-folder-sequences append (("first") ("last") ("all") ("prev") ("next")) mh-seq-names completing-read "%s: " mh-range-completion-function mh-range-history string-match "^[ ]*\\([0-9]+\\)[ ]*$" "last:" match-string 1 assoc intern mh-translate-range error "No messages in range %s" counts unseen mh-large-folder large mh-range-completion-map minibuffer-local-completion-map mh-seq-list seq-list mh-range-seq-names ask-flag mh-unseen-seq input msg-list number-as-range-flag expand-flag] 9 (#$ . 22196)]) #@134 Return a list of messages for RANGE. Check the documentation of `mh-interactive-range' to see how RANGE is read in interactive use. (defalias 'mh-range-to-msg-list #[(range) "\306 \247\203 \307 \310\211#\203\321 \211B)\202\321 :\203V @\247\203V A\247\203V \212 @b\210\311 \210` AX\203R m\204R \312 !\203L \313\310!\211B)\314y\210\2022 )\202\321 \203e 9\203e \315 !\202r ;\203q \316\f \"\202r \317 \211 \306\211 \203\234 @\211 \320\310#\210*A\211\204\200 *\212eb\210\311 \210`dX\203\320 m\204\320 \312 !\203\312 \313\310! \321 \"\203\311 \211B))\314y\210\202\244 +\237)\207" [msg-list range msg mh-scan-valid-regexp mh-current-folder #1=#:seq-hash-table nil mh-goto-msg t beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash gethash #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v] 5 (#$ . 25392)]) #@69 In FOLDER, translate the string EXPR to a list of messages numbers. (defalias 'mh-translate-range #[(folder expr) "\212\305\306\307\310\"\"\311\31216 \313\314\311\315 \n%\210\fq\210eb\210\316\317\311\320#\2030 \321\322\323!! B\202 \2370\2028 \210\311+\207" [expr result strings folder mh-temp-buffer delete "" split-string "[ \n]" nil (error) apply mh-exec-cmd-quiet "mhpath" re-search-forward "/\\([0-9]*\\)$" t string-to-number match-string 1] 6 (#$ . 26286)]) #@217 Programmable completion of message ranges. STRING is the user input that is to be completed. PREDICATE if non-nil is a function used to filter the possible choices and FLAG determines whether the completion is over. (defalias 'mh-range-completion-function #[(string predicate flag) "\n\306\232?\205 \n\211GSH\211\204 \306\202( \307>\203! \306\202( \310\311\n\312\"!@ \313\n\314\nG\fGZ# \315\267\202\246 \316\f #\211 \204J \317\202Y \320=\203U \320\202Y P)\202\247 \321\f #\202\247 \317 \320 \317 :\203\232 @\211\f\232\203\215 \320\317\211\202\216 \320\203\232 A\211\202t ?\205\242 ,\202\247 \317,\207" [mh-range-seq-names candidates string last-char last-word prefix "" (32 45 58) last split-string "[ -:]+" substring 0 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 58 t 93 lambda 102)) try-completion nil t all-completions flag predicate res #1=#:--cl-var-- x #2=#:--cl-var-- #3=#:--cl-var--] 6 (#$ . 26763)]) #@55 Return an alist containing the names of the SEQ-LIST. (defalias 'mh-seq-names #[(seq-list) "\301\302\"\207" [seq-list mapcar #[(entry) "\302\211@)!C\207" [entry sequence symbol-name] 3]] 3 (#$ . 27766)]) #@22 Find size of FOLDER. (defalias 'mh-folder-size #[(folder) "\203 \302 !\207\303 !\207" [mh-flists-present-flag folder mh-folder-size-flist mh-folder-size-folder] 2 (#$ . 27979)]) #@36 Find size of FOLDER using "flist". (defalias 'mh-folder-size-flist #[(folder) "\306\307!rq\210\310\216\311\312\313 \"\314\315\314\316\317\n\320\321 !& \210eb\210\322\323`\324 {!!\211 @\fA@ \325\f8\211 \nE.\207" [#1=#:temp-buffer mh-progs folder mh-unseen-seq #2=#:--cl-var-- unseen generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] call-process expand-file-name "flist" nil t "-showzero" "-norecurse" "-sequence" symbol-name cl-values-list mh-parse-flist-output-line mh-line-end-position 2 total] 12 (#$ . 28165)]) #@37 Find size of FOLDER using "folder". (defalias 'mh-folder-size-folder #[(folder) "\305\306!rq\210\307\216\310 \311\n\312\"\"AG\313\314\315\f\"\312\316\312\317\n&\210eb\210\320\321\312\316#\2037 \322\323\324!! \nE\202; \325 \nE,\207" [#1=#:temp-buffer mh-unseen-seq folder u mh-progs generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] assoc mh-read-folder-sequences nil call-process expand-file-name "folder" t "-norecurse" re-search-forward " has \\([0-9]+\\) " string-to-number match-string 1 0] 7 (#$ . 28736)]) #@248 Parse LINE to generate folder name, unseen messages and total messages. If CURRENT-FOLDER is non-nil then it contains the current folder name and it is used to avoid problems in corner cases involving folders whose names end with a `+' character. (defalias 'mh-parse-flist-output-line #[(line &optional current-folder) "\306\307!rq\210\310\216 c\210db\210\311\211\211\211 \312\313e\314#\205v \315\316\317\225\320 \"!\312\321e\314#\205v `\312\322e\314#\205v \315\316\317\225\n\"!\311f\323=\203P \324u\210\202C \316e`T\"\211\211GSH\325\232\203o \232\203o \326 \317 GS#\327\330 \"\f E.\207" [#1=#:temp-buffer line p total unseen folder generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil search-backward " out of " t string-to-number buffer-substring-no-properties 0 mh-line-end-position " in sequence " " has " 32 -1 43 substring format "+%s" current-folder] 5 (#$ . 29303)]) #@142 Read and return the predefined sequences for a FOLDER. If SAVE-REFILES is non-nil, then keep the sequences that note messages to be refiled. (defalias 'mh-read-folder-sequences #[(folder save-refiles) "\306 \203 \307\310\n\"\210\212\311\306\312 \313$\314=\2038 \315\316\306\317#\2034 \320\314\224\314\225{!\321 \211 \f*BB\202 e`|\210))\207" [seqs save-refiles mh-seq-list folder msgs name nil mh-mapc #[(seq) "\303\211@)!\205 \nB\211\207" [seq sequence seqs mh-folder-name-p] 3] mh-exec-cmd-quiet "mark" "-list" 0 re-search-forward "^[^: ]+" t intern mh-read-msg-list] 6 (#$ . 30244)]) #@116 Return a list of message numbers from point to the end of the line. Expands ranges into set of individual numbers. (defalias 'mh-read-msg-list #[nil "\304\305 \304\306\307 \310#\203\\ \311\312\224\312\225{!\313\314!\203O \315u\210\306\307 \310#\210\311\312\224\312\225{!\211W\203: \316\317 #\210 X\203K \nBT\211\202; )\202 \312U\204 \nB\202 \n+\207" [num end-of-line msgs num2 nil point-at-eol re-search-forward "[0-9]+" t string-to-number 0 looking-at "-" 1 error "Bad message range: %d-%d"] 5 (#$ . 30849)]) #@152 Mark MSG with the character NOTATION at position OFFSET. Null MSG means the message at cursor. If NOTATION is nil then no change in the buffer occurs. (defalias 'mh-notate #[(msg notation offset) "\212\203 \306\307\211#\205\205 \310 \311\211\312 \210\fu\210\f \\\232\205) =?\211 \2056 \2066 \313\311!\211\205@ \314\" \206I \311f \203l \315\316\316!AB!#\210*\202t \317\320!\210c\210\205 \321\f#,\322 !\210+)\207" [msg buffer-file-name buffer-read-only mh-folder-updating-mod-flag offset mh-cmd-note mh-goto-msg t buffer-modified-p nil beginning-of-line mh-get-msg-num gethash puthash reverse delete-char 1 mh-thread-update-scan-line-map mh-set-folder-modified-p mh-scan-field-destination-offset notation mh-note-seq change-stack-flag mh-sequence-notation-history stack #1=#:v #2=#:v] 7 (#$ . 31384)]) #@164 Mark the MH sequence cur. In addition to notating the current message with `mh-note-cur' the function uses `overlay-arrow-position' to put a marker in the fringe. (defalias 'mh-notate-cur #[nil "\306\300!@\211\205( \307\310\211#\205( \311 \210\312 !\203 \313\314\n #\210\f`\314\223\211\211)\207" [cur mh-scan-good-msg-regexp mh-note-cur mh-cmd-note mh-arrow-marker overlay-arrow-position mh-seq-to-msgs mh-goto-msg t beginning-of-line looking-at mh-notate nil] 5 (#$ . 32238)]) #@26 Remove old cur notation. (defalias 'mh-remove-cur-notation #[nil "\304\305!@\212\205! \306\307\211#\205! \310 !\205! \311\312\313\n#\210\312\211*\207" [cur-msg mh-scan-cur-msg-number-regexp mh-cmd-note overlay-arrow-position mh-seq-to-msgs cur mh-goto-msg t looking-at mh-notate nil 32] 4 (#$ . 32727)]) #@165 Notate messages marked for deletion or refiling. Messages to be deleted are given by `mh-delete-list' while messages to be refiled are present in `mh-refile-list'. (defalias 'mh-notate-deleted-and-refiled #[nil "\306 \306 \n\307\211 \203% \f@\211 \310 \311#\210*\fA\211\204 *\307 \211 \203^ \f@\211A\307\211 \203V \f@\211 \310\311#\210*\fA\211\204= *\fA\211\2040 *\212eb\210\312 \210`dX\205\244 m?\205\244 \313!\203\236 \314\311!\315 \"\203\216 \316\307#\210\202\235 \315 \"\203\235 \316\307#\210)\317y\210\202f +\207" [deleted-hash refiled-hash mh-delete-list msg --dolist-tail-- #1=#:v make-hash-table nil puthash t beginning-of-line looking-at mh-get-msg-num gethash mh-notate 1 #2=#:v mh-refile-list dest-msg-list #3=#:v #4=#:v mh-scan-valid-regexp mh-note-refiled mh-cmd-note mh-note-deleted] 5 (#$ . 33042)]) #@168 Mark user-defined sequences in RANGE. Check the documentation of `mh-interactive-range' to see how RANGE is read in interactive use; if nil all messages are notated. (defalias 'mh-notate-user-sequences #[(&optional range) "\204 edB \306 \211\307 \211 \203U @\211\211 A)\307 \211 \203M @\f@ \n \310\311\"B#\210+ A\211\204& * A\211\204 *\247\203\217 \312\313\211#\205\217 \311\n\" \307 :\203\212 @\314\315\f!\"\210A\211\202q +\307\202\217:\203\357 @\247\203\357 A\247\203\357 \212@b\210\316 \210`AX\205\353 m?\205\353 \317!\203\345 \320\313! \311\n\" \307 :\203\344 @\314\315\f!\"\210A\211\202\313 +\321y\210\202\250 )\202\217\203\376 9\203\376 \322!\202\f;\203 \323 \"\202\f\306 \211 \307 \211 \2036 @\211 \310 \313 #\210* A\211\204*\212eb\210\316 \210`dX\205\216m?\205\216\317!\203\210\320\313! !\311! \"\203\207! \311\n\" \"\307 \":\203\206\"@\314\315\f!\"\210\"A\211\"\202m+)\321y\210\202>+*\207" [range mh-seq-list msg-hash seqs seq --dolist-tail-- make-hash-table nil puthash gethash mh-goto-msg t mh-add-sequence-notation mh-internal-seq beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range sequence msg #1=#:v #2=#:v #3=#:v #4=#:--cl-var-- mh-scan-valid-regexp #5=#:--cl-var-- mh-current-folder #6=#:seq-hash-table #7=#:msgs #8=#:v #9=#:v v #10=#:--cl-var--] 7 (#$ . 33905)]) #@144 Add sequence notation to the MSG on the current line. If INTERNAL-SEQ-FLAG is non-nil, then refontify the scan line if font-lock is turned on. (defalias 'mh-add-sequence-notation #[(msg internal-seq-flag) "\306 \307\211\212\310 \210 \203! \311\307\211\f#\210 \205M \312`\313 \"\202M \f\\u\210\314\" \315\307fB#\210+\311\307\f\\#)\316\n!\210+\207" [buffer-file-name buffer-read-only mh-folder-updating-mod-flag internal-seq-flag mh-cmd-note font-lock-mode buffer-modified-p nil beginning-of-line mh-notate font-lock-fontify-region mh-line-end-position gethash puthash mh-set-folder-modified-p mh-scan-field-destination-offset msg mh-sequence-notation-history stack #1=#:v #2=#:v mh-note-seq] 5 (#$ . 35345)]) #@336 Remove sequence notation from the MSG on the current line. If INTERNAL-SEQ-FLAG is non-nil, then `font-lock' was used to highlight the sequence. In that case, no notation needs to be removed. Otherwise the effect of inserting `mh-note-seq' needs to be reversed. If ALL is non-nil, then all sequence marks on the scan line are removed. (defalias 'mh-remove-sequence-notation #[(msg internal-seq-flag &optional all) "\306 \307\211\310\307\211 #\210\f?\205V \311 \" \203, A\203, A\202 \203E \212\312 \210 \\u\210\313\314!\210@c\210) \315A#+\316\n!\210+\207" [buffer-file-name buffer-read-only mh-folder-updating-mod-flag mh-cmd-note internal-seq-flag msg buffer-modified-p nil mh-notate gethash beginning-of-line delete-char 1 puthash mh-set-folder-modified-p mh-sequence-notation-history stack all mh-scan-field-destination-offset #1=#:v #2=#:v] 4 (#$ . 36088)]) #@62 Remove all notations on all scan lines that MH-E introduces. (defalias 'mh-remove-all-notation #[nil "\212\306eb\210edB\247\203+ \307edB\310\211#\203 edB\311\306\312\n#\210\313 \306\310#\210)\202 edB:\203z edB@\247\203z edBA\247\203z \212edB@b\210\314 \210`edBAX\203v m\204v \315 !\203p \316\310!\311\306\312\n#\210\313 \306\310#\210)\317y\210\202L )\202 edB\203\217 edB9\203\217 \320edB!\202\242 edB;\203\237 \321\fedB\"\202\242 edB\322 \211 \306\211 \203\314 @\211 \323\310#\210*A\211\204\260 *\212eb\210\314 \210`dX\203m\204\315 !\203\316\310! \324 \"\203\311\306\312\n#\210\313 \306\310#\210))\317y\210\202\324 +\325!)\207" [overlay-arrow-position msg mh-cmd-note mh-scan-valid-regexp mh-current-folder #1=#:seq-hash-table nil mh-goto-msg t mh-notate 32 mh-remove-sequence-notation beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash gethash clrhash #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v mh-sequence-notation-history] 5 (#$ . 36988)]) #@35 Rename SEQUENCE to have NEW-NAME. (defalias 'mh-rename-seq #[(sequence new-name) "\303!\211\204 \304\305\"\210\306\n \211A)\"\210\307 \211A)\"\210 \n\240)\207" [sequence old-seq new-name mh-find-seq error "Sequence %s does not exist" mh-define-sequence mh-undefine-sequence] 4 (#$ . 38030) (list (mh-read-seq "Old" t) (intern (read-string "New sequence name: ")))]) (provide 'mh-seq)
Close
