| Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/mh-e/mh-identity.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\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)