Current File : //usr/local/share/emacs/27.2/lisp/mh-e/mh-limit.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\303\304\305\"\207" [require mh-e mh-scan autoload message-fetch-field "message"] 3)
#@359 Delete messages with same subject\<mh-folder-mode-map>.
To delete messages faster, you can use this command to delete all
the messages with the same subject as the current message. This
command puts these messages in a sequence named "subject". You
can undo this action by using \[mh-undo] with a prefix argument
and then specifying the "subject" sequence.
(defalias 'mh-delete-subject #[nil "\301\302!\211\204 \303\304\305!!\202* \306U\203\" \307\310!\210\303\304\305!!\202* \307\311\"\210\303\312!)\207" [count mh-subject-to-sequence nil mh-delete-msg mh-get-msg-num t 0 message "No other messages with same Subject following this one" "Marked %d messages for deletion" subject] 4 (#$ . 532) nil])
#@489 Delete messages with same subject or thread\<mh-folder-mode-map>.
To delete messages faster, you can use this command to delete all
the messages with the same subject as the current message. This
command puts these messages in a sequence named "subject". You
can undo this action by using \[mh-undo] with a prefix argument
and then specifying the "subject" sequence.
However, if the buffer is displaying a threaded view of the
folder then this command behaves like \[mh-thread-delete].
(defalias 'mh-delete-subject-or-thread #[nil "\301>\203 \302 \207\303 \207" [mh-view-ops unthread mh-thread-delete mh-delete-subject] 2 (#$ . 1244) nil])
#@146 Limit to messages with the same "Cc:" field.
With a prefix argument, edit PICK-EXPR.
Use \<mh-folder-mode-map>\[mh-widen] to undo this command.
(defalias 'mh-narrow-to-cc #[(&optional pick-expr) "\301\302\"\207" [pick-expr mh-narrow-to-header-field cc] 3 (#$ . 1895) (list (mh-edit-pick-expr (mh-quote-pick-expr (mh-current-message-header-field 'cc))))])
#@148 Limit to messages with the same "From:" field.
With a prefix argument, edit PICK-EXPR.
Use \<mh-folder-mode-map>\[mh-widen] to undo this command.
(defalias 'mh-narrow-to-from #[(&optional pick-expr) "\301\302\"\207" [pick-expr mh-narrow-to-header-field from] 3 (#$ . 2259) (list (mh-edit-pick-expr (mh-quote-pick-expr (mh-current-message-header-field 'from))))])
#@173 Limit to RANGE.
Check the documentation of `mh-interactive-range' to see how
RANGE is read in interactive use.
Use \<mh-folder-mode-map>\[mh-widen] to undo this command.
(defalias 'mh-narrow-to-range #[(range) "\302\301\"\203 \303\301!\210\304\305 !\301\"\210\306\301!\207" [mh-seq-list range assoc mh-delete-seq mh-add-msgs-to-seq mh-range-to-msg-list mh-narrow-to-seq] 3 (#$ . 2631) (list (mh-interactive-range "Narrow to"))])
#@181 Limit to messages with same subject.
With a prefix argument, edit PICK-EXPR.
The string Re: is removed from the search.
Use \<mh-folder-mode-map>\[mh-widen] to undo this command.
(defalias 'mh-narrow-to-subject #[(&optional pick-expr) "\305 \306\211 \n:\203 \n@\307\310\311 #\fB\nA\211\202 \f\237,\312\313 \"\207" [case-fold-search pick-expr #1=#:--cl-var-- s #2=#:--cl-var-- t nil mh-replace-regexp-in-string "re: *" "" mh-narrow-to-header-field subject] 5 (#$ . 3071) (list (mh-edit-pick-expr (mh-quote-pick-expr (mh-current-message-header-field 'subject))))])
#@146 Limit to messages with the same "To:" field.
With a prefix argument, edit PICK-EXPR.
Use \<mh-folder-mode-map>\[mh-widen] to undo this command.
(defalias 'mh-narrow-to-to #[(&optional pick-expr) "\301\302\"\207" [pick-expr mh-narrow-to-header-field to] 3 (#$ . 3651) (list (mh-edit-pick-expr (mh-quote-pick-expr (mh-current-message-header-field 'to))))])
#@448 Put all following messages with same subject in sequence 'subject.
If arg ALL is t, move to beginning of folder buffer to collect all
messages.
If arg ALL is nil, collect only messages fron current one on forward.
Return number of messages put in the sequence:
nil -> there was no subject line.
0 -> there were no later messages with the same
subject (sequence not made)
>1 -> the total number of messages including current one.
(defalias 'mh-subject-to-sequence #[(all) "\302>\203\n \303 !\207\304 !\207" [mh-view-ops all unthread mh-subject-to-sequence-threaded mh-subject-to-sequence-unthreaded] 2 (#$ . 4015)])
#@363 Put all messages with the same subject in the 'subject sequence.
This function works when the folder is threaded. In this
situation the subject could get truncated and so the normal
matching doesn't work.
The parameter ALL is non-nil then all the messages in the buffer
are considered, otherwise only the messages after the current one
are taken into account.
(defalias 'mh-subject-to-sequence-threaded #[(all) "\306\307!\310!\307\211 \204 \311\312!\210\307\2021\f\203 e\202! `dB\211\247\203C \313\n\314\211#\203\n \310
! =\203?
B)\202\n:\203\211 \n@\247\203\211 \nA\247\203\211 \212\n@b\210\315 \210`\nAX\203\205 m\204\205 \316!\203 \306\314! \310
! =\203~
B)\317y\210\202\\ )\202\n\203\230 \n9\203\230 \320\n!\202\246 \n;\203\245 \321 \n\"\202\246 \n\322 \211 \307 \211 \203\322 @\211 !\323 \314!#\210* A\211 \204\265 *\212eb\210\315 \210`dX\203m\204\316!\203\n\306\314! \"\324\" \"\203 \" \310
! =\203
B))\317y\210\202\332 +\325 \326\"\211\204 \327\2021\330\301#\"\203*\331\301!\210\332 \301\"\210 G,\207" [cur subject region msgs all msg mh-get-msg-num nil mh-thread-find-msg-subject message "No subject line" mh-goto-msg t beginning-of-line looking-at 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash gethash sort mh-lessp 0 assoc mh-delete-seq mh-add-msgs-to-seq mh-scan-valid-regexp mh-current-folder #1=#:seq-hash-table #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v mh-seq-list] 5 (#$ . 4656)])
#@84 Maximum size of the subject part.
It would be desirable to avoid hard-coding this.
(defvar mh-limit-max-subject-size 41 (#$ . 6134))
#@499 Put all following messages with same subject in sequence 'subject.
This function only works with an unthreaded folder. If arg ALL is
t, move to beginning of folder buffer to collect all messages. If
arg ALL is nil, collect only messages fron current one on
forward.
Return number of messages put in the sequence:
nil -> there was no subject line.
0 -> there were no later messages with the same
subject (sequence not made)
>1 -> the total number of messages including current one.
(defalias 'mh-subject-to-sequence-unthreaded #[(all) "\306=\204\n \307\310!\210\212\311 \210\312 !\203\" \313\314!\203\" \313\314!\315\230\203* \316\317!\210\320\202\267 \321\314!\320\211G\fV\203= \322 \323\f#\212
\203E eb\210\324 \320\325#\203r \321\314!\211 G\fV\203a \322 \323\f# \230\203n \326\325!\nB)\202E )\n\203\265 \326\325!\n\235\204\205 \326\325!\nB\327\303 \"\203\221 \330\303!\210\331\332\n!\333\"\211 \203\256 \334 @\303\320#\210 A\211 \204\235 \335\n!)\202\266 \323*)\207" [major-mode mh-scan-subject-regexp list subject mh-limit-max-subject-size all mh-folder-mode error "Not in a folder buffer" beginning-of-line looking-at match-string 3 "" message "No subject line" nil mh-match-string-no-properties substring 0 re-search-forward t mh-get-msg-num assoc mh-delete-seq sort copy-sequence mh-lessp mh-add-msgs-to-seq safe-length this-subject mh-seq-list sorted-list] 5 (#$ . 6274)])
#@89 With prefix arg edit a pick expression.
If no prefix arg is given, then return DEFAULT.
(defalias 'mh-edit-pick-expr #[(default) "\306\307 :\203 @ \310\311\n\"P A\211\202 +
\204) \f\307\232\2032 \312\313\314\f\"!\2023 )\207" [default #1=#:--cl-var-- x #2=#:--cl-var-- default-string current-prefix-arg nil "" format " %s" mh-pick-args-list read-string "Pick expression: "] 5 (#$ . 7694)])
#@220 Form list by grouping elements in string S suitable for pick arguments.
For example, the string "-subject a b c -from Joe User
<user@domain.com>" is converted to ("-subject" "a b c"
"-from" "Joe User <user@domain.com>"
(defalias 'mh-pick-args-list #[(s) "\305!\306\211\211\211 \203B \f@\307\310 \"\204) \n\204 \202% \311\312\n #\202; \n\2035 \313 \nC\"\306\313 C\"\fA\211\204 \n\203L \313 \nC\" ,\207" [s arg-list collection current-arg full-list split-string nil string-match "^-" format "%s %s" append] 5 (#$ . 8103)])
#@69 Return a pick regexp to match HEADER-FIELD of the message at point.
(defalias 'mh-current-message-header-field #[(header-field) "\306\307!\211\205\267 \310\311!r q\210\312\216\313\314\n\"!\210eb\210\315\316\307\317#\203* e`}\210\320\321\322\f\"!\2064 \323 \321\324\f\" \325
\326\" \307\211 :\203x @\211 \323\232\204o \327\330 \"\203h \331\332 \"\202j B A\211 \202I \237+\211 \205\265 @D ! A \"\307 #\":\203\262 \"@# #\333!BBB!\"A\211\"\202\224 !+.)\207" [num mh-current-folder folder #1=#:temp-buffer header-field field mh-get-msg-num nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents-literally mh-msg-filename search-forward "\n\n" t message-fetch-field format "%s" "" "-%s" split-string "[ ]*,[ ]*" string-match "<\\(.*@.*\\)>" match-string 1 "-or" field-option #2=#:--cl-var-- x #3=#:--cl-var-- patterns accum #4=#:--cl-var-- e] 5 (#$ . 8645)])
#@100 Limit to messages whose HEADER-FIELD match PICK-EXPR.
The MH command pick is used to do the match.
(defalias 'mh-narrow-to-header-field #[(_header-field pick-expr) "\306\307edB!!\310\311\312! r\fq\210\313\216\314\315\316\310 \317\n\320C
#%\210eb\210m\204L \32118 \322`\323 {!0\202: \210\310\211 \203E B\310y\210)\202& + \204W \324\325!\202k \326\327 \"\203c \330\327!\210\331 \327\"\210\332\327!+\207" [mh-current-folder msg-list original folder #1=#:temp-buffer pick-expr mh-coalesce-msg-list mh-range-to-msg-list nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] apply mh-exec-cmd-output "pick" append "-list" (error) string-to-number mh-line-end-position message "No matches" assoc header mh-delete-seq mh-add-msgs-to-seq mh-narrow-to-seq num mh-seq-list] 10 (#$ . 9613)])
(provide 'mh-limit)
Mini Shell