;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\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 ?\205Gdb\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\202c\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\202Jeb\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)