;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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 #[0 "\300\301!\211\204
\302\303\304!!\207\211\305U\203\306\307!\210\302\303\304!!\207\306\310\"\210\302\311!\207" [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 (#$ . 208) 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 #[0 "\301>\203	\302 \207\303 \207" [mh-view-ops unthread mh-thread-delete mh-delete-subject] 2 (#$ . 908) nil])
#@172 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.

(fn &optional PICK-EXPR)
(defalias 'mh-narrow-to-cc #[256 "\300\301\"\207" [mh-narrow-to-header-field cc] 4 (#$ . 1556) (byte-code "\300\301\302\303!!!C\207" [mh-edit-pick-expr mh-quote-pick-expr mh-current-message-header-field cc] 4)])
#@174 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.

(fn &optional PICK-EXPR)
(defalias 'mh-narrow-to-from #[256 "\300\301\"\207" [mh-narrow-to-header-field from] 4 (#$ . 1947) (byte-code "\300\301\302\303!!!C\207" [mh-edit-pick-expr mh-quote-pick-expr mh-current-message-header-field from] 4)])
#@185 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.

(fn RANGE)
(defalias 'mh-narrow-to-range #[257 "\301\236\203\n\302\301!\210\303\304!\301\"\210\305\301!\207" [mh-seq-list range mh-delete-seq mh-add-msgs-to-seq mh-range-to-msg-list mh-narrow-to-seq] 4 (#$ . 2346) (byte-code "\300\301!C\207" [mh-interactive-range "Narrow to"] 2)])
#@207 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.

(fn &optional PICK-EXPR)
(defalias 'mh-narrow-to-subject #[256 "\301\211\302\211:\203@\262\303\304\305#
B\262
A\262\202\211\237\266\203)\262
\306\307\"\207" [case-fold-search t nil mh-replace-regexp-in-string "re: *" "" mh-narrow-to-header-field subject] 8 (#$ . 2811) (byte-code "\300\301\302\303!!!C\207" [mh-edit-pick-expr mh-quote-pick-expr mh-current-message-header-field subject] 4)])
#@172 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.

(fn &optional PICK-EXPR)
(defalias 'mh-narrow-to-to #[256 "\300\301\"\207" [mh-narrow-to-header-field to] 4 (#$ . 3402) (byte-code "\300\301\302\303!!!C\207" [mh-edit-pick-expr mh-quote-pick-expr mh-current-message-header-field to] 4)])
#@458 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 from 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.

(fn ALL)
(defalias 'mh-subject-to-sequence #[257 "\301>\203\n\302
!\207\303
!\207" [mh-view-ops unthread mh-subject-to-sequence-threaded mh-subject-to-sequence-unthreaded] 3 (#$ . 3793)])
#@373 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.

(fn ALL)
(defalias 'mh-subject-to-sequence-threaded #[257 "\303\304!\305
!\304\211\204\306\307!\210\304\207\203e\202`dB\262
\247\203;\310\311\211#\203\354\305!=\203\354
C\262
\202\354
:\203\200
@\247\203\200
A\247\203\200\212
@b\210\312 \210`AX\203|m\204|\313!\203v\303\311!\305
!=\203u\211B\262\210\314y\210\202T)\202\354
\203\217
9\203\217\315!\202\234
;\203\233\316	\"\202\234
\317 
\211\203\262\211@\320
\311#\210
A\266\202\202\237\210\212eb\210\312 \210`dX\203\351m\204\351\313!\203\343\303\311!\321
\"\203\342\305
!=\203\342\211B\262\210\314y\210\202\272)\266\322
\323\"\262
\211\204\370\324\207\325\n\236\203
\326\325!\210\327
\325\"\210\211G\207" [mh-scan-valid-regexp mh-current-folder mh-seq-list 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 subject mh-delete-seq mh-add-msgs-to-seq] 13 (#$ . 4438)])
#@84 Maximum size of the subject part.
It would be desirable to avoid hard-coding this.
(defvar mh-limit-max-subject-size 41 (#$ . 5827))
#@509 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 from 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.

(fn ALL)
(defalias 'mh-subject-to-sequence-unthreaded #[257 "\304=\204\n\305\306!\210\212\307 \210\310	!\203\"\311\312!\203\"\311\312!\313\230\203*\314\315!\210\316\202\257\317\312!\316
G\nV\203;
\320\nO\262\212\203Ceb\210\321	\316\322#\203l\317\312!\211G\nV\203[\211\320\nO\262
\211\230\203h\323\322!B\262\210\202C)\211\203\254\323\322!
\235\204\200\323\322!
B\262
\324\236\203\212\325\324!\210\326\327!\330\"\211\203\242\331
@\324\316#\210\211A\262
\202\220\332!\262
\266\202\202\257\266\320)\207" [major-mode mh-scan-subject-regexp mh-limit-max-subject-size mh-seq-list 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 0 re-search-forward t mh-get-msg-num subject mh-delete-seq sort copy-sequence mh-lessp mh-add-msgs-to-seq safe-length] 8 (#$ . 5967)])
#@103 With prefix arg edit a pick expression.
If no prefix arg is given, then return DEFAULT.

(fn DEFAULT)
(defalias 'mh-edit-pick-expr #[257 "\211\301\302:\203@\262\211\303\304\"P\262
A\262\202\266\202\204'\211\302\232\203.\305\306\307\"!\207
\207" [current-prefix-arg nil "" format " %s" mh-pick-args-list read-string "Pick expression: "] 8 (#$ . 7361)])
#@228 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>"

(fn S)
(defalias 'mh-pick-args-list #[257 "\300
!\301\211\211\203C@\262\302\303\"\204'
\204\202\"\304\305#\262\202<
\2035\306
C\"\262
\301\262\306
C\"\262
A\262\202
\203N\306
C\"\262
\207" [split-string nil string-match "^-" format "%s %s" append] 9 (#$ . 7734)])
#@88 Return a pick regexp to match HEADER-FIELD of the message at point.

(fn HEADER-FIELD)
(defalias 'mh-current-message-header-field #[257 "\301\302!\211\205\234\303\304\305\"r\211q\210\306\307\"\216\310\311\"!\210eb\210\312\313\302\305#\203+e`}\210\314\315\316\"!\2066\317\315\320\"\321\322\"\302\211:\203j@\262
\317\232\204c\323\324\"\203^\325\326\"\202_

B\262
A\262\202A\211\237\266\203\211\205\225

@D
A\302
:\203\222
@\262

\327BBB\262
A\262\202y\266\203\266\203*\262
\262
\207" [mh-current-folder mh-get-msg-num nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally mh-msg-filename search-forward "\n\n" message-fetch-field format "%s" "" "-%s" split-string "[ ]*,[ ]*" string-match "<\\(.*@.*\\)>" match-string 1 "-or"] 14 (#$ . 8248)])
#@129 Limit to messages whose HEADER-FIELD match PICK-EXPR.
The MH command pick is used to do the match.

(fn HEADER-FIELD PICK-EXPR)
(defalias 'mh-narrow-to-header-field #[514 "\302\303edB!!\304\305\306\307\"r\211q\210\310\311\"\216\312\313\314\304\315\316C\f#%\210eb\210m\204M\3171;\320`\321 {!0\202=\210\304\211\203F\211B\262\304y\266\202)*\210\211\204W\322\323!\207\324	\236\203a\325\324!\210\326
\324\"\210\327\324!\207" [mh-current-folder mh-seq-list mh-coalesce-msg-list mh-range-to-msg-list nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] apply mh-exec-cmd-output "pick" append "-list" (error) string-to-number mh-line-end-position message "No matches" header mh-delete-seq mh-add-msgs-to-seq mh-narrow-to-seq] 15 (#$ . 9122)])
(provide 'mh-limit)