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



(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 (#$ . 178))
(make-variable-buffer-local 'mh-identity-pgg-default-user-id)
#@20 The Identity menu.
(defvar mh-identity-menu nil (#$ . 412))
(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 #[0 "\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 #[257 "\300
\301D\302\303\304\305\306E&\207" [vector mh-insert-identity :style radio :selected equal mh-identity-local] 10 "\n\n(fn ARG)"] 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 (#$ . 548)])
#@61 Add the current Identity menu.
See `mh-identity-make-menu'.
(defalias 'mh-identity-add-menu #[0 "\210\301\207" [mh-identity-menu nil] 1 (#$ . 1547)])
#@65 Buffer-local variable that holds the identity currently in use.
(defvar mh-identity-local nil (#$ . 1704))
(make-variable-buffer-local 'mh-identity-local)
#@116 Delete header FIELD, or only its value if VALUE-ONLY is t.
Return t if anything is deleted.

(fn FIELD VALUE-ONLY)
(defalias 'mh-header-field-delete #[514 "\300\301\"\203
\202
\302P\303
!\2050
\204\304 \210\202!\305u\210`\306 \210\204,\307u\210`|\210\310\207" [string-match "^.*:$" ":" mh-goto-header-field beginning-of-line nil mh-header-field-end 1 t] 5 (#$ . 1866)])
#@75 Marker for the beginning of a signature inserted by `mh-insert-identity'.
(defvar mh-identity-signature-start nil (#$ . 2253))
#@69 Marker for the end of a signature inserted by `mh-insert-identity'.
(defvar mh-identity-signature-end nil (#$ . 2386))
#@272 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.

(fn FIELD)
(defalias 'mh-identity-field-handler #[257 "\301
\302#A\206!\211\303H\304=\203\305\306\"\206!\307\310\"A\206!\311\207" [mh-identity-handlers mh-assoc-string t 0 58 error "Field %s not found in `mh-identity-handlers'" assoc ":default" mh-identity-handler-default] 5 (#$ . 2512)])
#@162 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'.

(fn DEFAULT)
(defalias 'mh-select-identity #[257 "\301\302\303\304\305\306\305\307\"\"B\301\310\301&\262
\211\311=?\205\211\207" [mh-identity-list nil completing-read "Identity: " ("None") mapcar list car t "None"] 10 (#$ . 3077)])
#@97 Return the specified FIELD of the given IDENTITY.

See `mh-identity-list'.

(fn IDENTITY FIELD)
(defalias 'mh-identity-field #[514 "\301\"A@\301\"A\207" [mh-identity-list assoc] 6 (#$ . 3471)])
#@244 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'.

(fn IDENTITY &optional MAYBE-INSERT)
(defalias 'mh-insert-identity #[513 "\211\203\303\300!\205l\205l	?\205l\212	\2036\304	\n\"A@\211\2035\211@@\305
!\211\306\"\266\211A\262
\202\210
\307\232\204^\304\n\"A@\211\203]\211@@
@A\305!\211\310#\266\211A\262
\202B\210)
\307\232\203i\311\211\207
\211\207" [mh-identity-default mh-identity-local mh-identity-list boundp assoc mh-identity-field-handler remove "None" add nil] 10 (#$ . 3676) (byte-code "\302\303\203\304\305\306\305\307	\"\"B\202\305\306\305\307	\"\"\310\311$\310D\207" [mh-identity-local mh-identity-list completing-read "Identity: " ("None") mapcar list car nil t] 8)])
#@258 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.

(fn FIELD ACTION &optional VALUE)
(defalias 'mh-identity-handler-gpg-identity #[770 "
\301=\204\211\203\211\302\230\203\303\211\207
\304=\205\211\211\207" [mh-identity-pgg-default-user-id remove "" nil add] 5 (#$ . 4546)])
#@141 Process header FIELD ":signature".
The ACTION is one of `remove' or `add'. If `add', the VALUE is
added.

(fn FIELD ACTION &optional VALUE)
(defalias 'mh-identity-handler-signature #[770 "
\302=\203\303!\205\303	!\205G	|\207\304 ?\205Gdb\210\214``}\210\211\204.\305 \210\2022\305
!\210\306\300!\210\307 \310\311\"\210\306\301!\210\312 \211)\207" [mh-identity-signature-start mh-identity-signature-end remove markerp mh-signature-separator-p mh-insert-signature make-local-variable point-min-marker set-marker-insertion-type t point-max-marker] 6 (#$ . 5009)])
#@51 Marker for the beginning of the attribution verb.
(defvar mh-identity-attribution-verb-start nil (#$ . 5588))
#@45 Marker for the end of the attribution verb.
(defvar mh-identity-attribution-verb-end nil (#$ . 5704))
#@149 Process header FIELD ":attribution-verb".
The ACTION is one of `remove' or `add'.  If `add', the VALUE is
added.

(fn FIELD ACTION &optional VALUE)
(defalias 'mh-identity-handler-attribution-verb #[770 "\302!\205 \302	!\205 	|\210b\210
\303=\203\304\305!\207\304
!\207" [mh-identity-attribution-verb-start mh-identity-attribution-verb-end markerp remove mh-identity-insert-attribution-verb nil] 5 (#$ . 5813)])
#@135 Insert VALUE as attribution verb, setting up delimiting markers.
If VALUE is nil, use `mh-extract-from-attribution-verb'.

(fn VALUE)
(defalias 'mh-identity-insert-attribution-verb #[257 "\214``}\210\211\204c\210\202\211c\210\303\301!\210\304 \305	\306\"\210\303\302!\210\307 \211)\207" [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] 4 (#$ . 6238)])
#@256 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.

(fn FIELD ACTION TOP &optional VALUE)
(defalias 'mh-identity-handler-default #[1027 "\300\301\"\203\202\302P\303=\203\304
\305\"\207
\203#
\306\230\203(\304
\305\"\207\304
\307\"\2032
c\207eb\210\204=\310\311!\210\211\312\313\261\207" [string-match "^.*:$" ":" remove mh-header-field-delete nil "" t mh-goto-header-end 0 " " "\n"] 9 (#$ . 6740)])
#@195 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.

(fn FIELD ACTION &optional VALUE)
(defalias 'mh-identity-handler-top #[770 "\300\301$\207" [mh-identity-handler-default t] 8 (#$ . 7328)])
#@198 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.

(fn FIELD ACTION &optional VALUE)
(defalias 'mh-identity-handler-bottom #[770 "\300\301$\207" [mh-identity-handler-default nil] 8 (#$ . 7637)])
(provide 'mh-identity)