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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\301&\210\314\315\316\317\320DD\321\322\323\324\325&\210\314\326\316\317\327DD\330\322\331\324\325&\210\314\332\316\317\333DD\334\322\335\324\336&\210\314\337\316\317\340DD\341\313\301\324\342\322\343&	\210\314\344\316\317\345DD\346\313\301\324\342\322\347&	\207" [require rmail mail-parse message cl-lib custom-declare-group rmail-mime nil "Rmail MIME handling options." :prefix "rmail-mime-" :group custom-declare-variable rmail-mime-media-type-handlers-alist funcall function #[0 "\300\207" [(("multipart/.*" rmail-mime-multipart-handler) ("text/.*" rmail-mime-text-handler) ("text/\\(x-\\)?patch" rmail-mime-bulk-handler) ("\\(image\\|audio\\|video\\|application\\)/.*" rmail-mime-bulk-handler))] 1 #1=""] "Functions to handle various content types.\nThis is an alist with elements of the form (REGEXP FUNCTION ...).\nThe first item is a regular expression matching a content-type.\nThe remaining elements are handler functions to run, in order of\ndecreasing preference.  These are called until one returns non-nil.\nNote that this only applies to items with an inline Content-Disposition,\nall others are handled by `rmail-mime-bulk-handler'.\nNote also that this alist is ignored when the variable\n`rmail-enable-mime' is non-nil." :type (alist :key-type regexp :value-type (repeat function)) :version "23.1" rmail-mime-attachment-dirs-alist #[0 "\301\302\303\304\305FE\207" [temporary-file-directory ("text/.*" "~/Documents") ("image/.*" "~/Pictures") ".*" "~/Desktop" "~"] 6 #1#] "Default directories to save attachments of various types into.\nThis is an alist with elements of the form (REGEXP DIR ...).\nThe first item is a regular expression matching a content-type.\nThe remaining elements are directories, in order of decreasing preference.\nThe first directory that exists is used." (alist :key-type regexp :value-type (repeat directory)) rmail-mime-show-images #[0 "\300\207" [button] 1 #1#] "What to do with image attachments that Emacs is capable of displaying.\nIf nil, do nothing special.  If `button', add an extra button\nthat when pushed displays the image in the buffer.  If a number,\nautomatically show images if they are smaller than that size (in\nbytes), otherwise add a display button.  Anything else means to\nautomatically display the image in the buffer." (choice (const :tag "Add button to view image" button) (const :tag "No special treatment" nil) (number :tag "Show if smaller than certain size") (other :tag "Always show" show)) "23.2" rmail-mime-render-html-function #[0 "\300\301!\203\302\207\303\304!\203\305\207\306\207" [fboundp libxml-parse-html-region rmail-mime-render-html-shr executable-find "lynx" rmail-mime-render-html-lynx nil] 2 #1#] "Function to convert HTML to text.\nCalled with buffer containing HTML extracted from message in a\ntemporary buffer.  Converts to text in current buffer.  If nil,\ndisplay HTML source." "25.1" (choice function (const nil)) rmail-mime-prefer-html #[0 "\205\301\207" [rmail-mime-render-html-function t] 1 #1#] "If non-nil, default to showing HTML part rather than text part\nwhen both are available." boolean] 10)
#@111 Buffer containing the mbox data.
The value is usually nil, and bound to a proper value while
processing MIME.
(defvar rmail-mime-mbox-buffer nil (#$ . 3290))
#@104 Buffer showing a message.
The value is usually nil, and bound to a proper value while
processing MIME.
(defvar rmail-mime-view-buffer nil (#$ . 3455))
#@136 The first coding-system used for decoding a MIME entity.
The value is usually nil, and bound to non-nil while inserting
MIME entities.
(defvar rmail-mime-coding-system nil (#$ . 3613))
#@102 Bound to T inside `rmail-search-mime-message' to suppress expensive
operations such as HTML decoding
(defvar rmail-mime-searching nil (#$ . 3805))
#@76 compiler-macro for inlining `rmail-mime-entity-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-entity-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-entity-p (and (memq (type-of cl-x) cl-struct-rmail-mime-entity-tags) t)) nil] 9 (#$ . 3958)])
(put 'rmail-mime-entity-p 'compiler-macro 'rmail-mime-entity-p--cmacro)
#@13 

(fn CL-X)
(defalias 'rmail-mime-entity-p #[257 "\301
!>\205	\302\207" [cl-struct-rmail-mime-entity-tags type-of t] 3 (#$ . 4334)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put rmail-mime-entity-p side-effect-free error-free put rmail-mime-entity cl-deftype-satisfies] 5)
#@79 compiler-macro for inlining `rmail-mime-entity-type'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-entity-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-entity-type (progn (or (rmail-mime-entity-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-entity cl-x))) (aref cl-x 1))) nil] 9 (#$ . 4636)])
(put 'rmail-mime-entity-type 'compiler-macro 'rmail-mime-entity-type--cmacro)
#@67 Access slot "type" of `rmail-mime-entity' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-entity-type #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-entity-tags type-of signal wrong-type-argument rmail-mime-entity 1] 5 (#$ . 5079)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-entity-type side-effect-free t] 4)
#@86 compiler-macro for inlining `rmail-mime-entity-disposition'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-entity-disposition--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-entity-disposition (progn (or (rmail-mime-entity-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-entity cl-x))) (aref cl-x 2))) nil] 9 (#$ . 5446)])
(put 'rmail-mime-entity-disposition 'compiler-macro 'rmail-mime-entity-disposition--cmacro)
#@74 Access slot "disposition" of `rmail-mime-entity' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-entity-disposition #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-entity-tags type-of signal wrong-type-argument rmail-mime-entity 2] 5 (#$ . 5924)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-entity-disposition side-effect-free t] 4)
#@92 compiler-macro for inlining `rmail-mime-entity-transfer-encoding'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-entity-transfer-encoding--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-entity-transfer-encoding (progn (or (rmail-mime-entity-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-entity cl-x))) (aref cl-x 3))) nil] 9 (#$ . 6312)])
(put 'rmail-mime-entity-transfer-encoding 'compiler-macro 'rmail-mime-entity-transfer-encoding--cmacro)
#@80 Access slot "transfer-encoding" of `rmail-mime-entity' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-entity-transfer-encoding #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-entity-tags type-of signal wrong-type-argument rmail-mime-entity 3] 5 (#$ . 6820)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-entity-transfer-encoding side-effect-free t] 4)
#@82 compiler-macro for inlining `rmail-mime-entity-display'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-entity-display--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-entity-display (progn (or (rmail-mime-entity-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-entity cl-x))) (aref cl-x 4))) nil] 9 (#$ . 7226)])
(put 'rmail-mime-entity-display 'compiler-macro 'rmail-mime-entity-display--cmacro)
#@70 Access slot "display" of `rmail-mime-entity' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-entity-display #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-entity-tags type-of signal wrong-type-argument rmail-mime-entity 4] 5 (#$ . 7684)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-entity-display side-effect-free t] 4)
#@81 compiler-macro for inlining `rmail-mime-entity-header'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-entity-header--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-entity-header (progn (or (rmail-mime-entity-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-entity cl-x))) (aref cl-x 5))) nil] 9 (#$ . 8060)])
(put 'rmail-mime-entity-header 'compiler-macro 'rmail-mime-entity-header--cmacro)
#@69 Access slot "header" of `rmail-mime-entity' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-entity-header #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-entity-tags type-of signal wrong-type-argument rmail-mime-entity 5] 5 (#$ . 8513)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-entity-header side-effect-free t] 4)
#@82 compiler-macro for inlining `rmail-mime-entity-tagline'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-entity-tagline--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-entity-tagline (progn (or (rmail-mime-entity-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-entity cl-x))) (aref cl-x 6))) nil] 9 (#$ . 8886)])
(put 'rmail-mime-entity-tagline 'compiler-macro 'rmail-mime-entity-tagline--cmacro)
#@70 Access slot "tagline" of `rmail-mime-entity' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-entity-tagline #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-entity-tags type-of signal wrong-type-argument rmail-mime-entity 6] 5 (#$ . 9344)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-entity-tagline side-effect-free t] 4)
#@79 compiler-macro for inlining `rmail-mime-entity-body'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-entity-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-entity-body (progn (or (rmail-mime-entity-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-entity cl-x))) (aref cl-x 7))) nil] 9 (#$ . 9720)])
(put 'rmail-mime-entity-body 'compiler-macro 'rmail-mime-entity-body--cmacro)
#@67 Access slot "body" of `rmail-mime-entity' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-entity-body #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-entity-tags type-of signal wrong-type-argument rmail-mime-entity 7] 5 (#$ . 10163)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-entity-body side-effect-free t] 4)
#@83 compiler-macro for inlining `rmail-mime-entity-children'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-entity-children--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-entity-children (progn (or (rmail-mime-entity-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-entity cl-x))) (aref cl-x 8))) nil] 9 (#$ . 10531)])
(put 'rmail-mime-entity-children 'compiler-macro 'rmail-mime-entity-children--cmacro)
#@71 Access slot "children" of `rmail-mime-entity' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-entity-children #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-entity-tags type-of signal wrong-type-argument rmail-mime-entity 8] 5 (#$ . 10995)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-entity-children side-effect-free t] 4)
#@82 compiler-macro for inlining `rmail-mime-entity-handler'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-entity-handler--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-entity-handler (progn (or (rmail-mime-entity-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-entity cl-x))) (aref cl-x 9))) nil] 9 (#$ . 11375)])
(put 'rmail-mime-entity-handler 'compiler-macro 'rmail-mime-entity-handler--cmacro)
#@70 Access slot "handler" of `rmail-mime-entity' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-entity-handler #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-entity-tags type-of signal wrong-type-argument rmail-mime-entity 9] 5 (#$ . 11834)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-entity-handler side-effect-free t] 4)
#@84 compiler-macro for inlining `rmail-mime-entity-truncated'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-entity-truncated--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-entity-truncated (progn (or (rmail-mime-entity-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-entity cl-x))) (aref cl-x 10))) nil] 9 (#$ . 12211)])
(put 'rmail-mime-entity-truncated 'compiler-macro 'rmail-mime-entity-truncated--cmacro)
#@72 Access slot "truncated" of `rmail-mime-entity' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-entity-truncated #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-entity-tags type-of signal wrong-type-argument rmail-mime-entity 10] 5 (#$ . 12681)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-entity-truncated side-effect-free t] 4)
#@169 compiler-macro for inlining `rmail-mime-entity'.

(fn CL-WHOLE-ARG TYPE DISPOSITION TRANSFER-ENCODING DISPLAY HEADER TAGLINE BODY CHILDREN HANDLER &optional TRUNCATED)
(defalias 'rmail-mime-entity--cmacro #[2826 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (type disposition transfer-encoding display header tagline body children handler truncated) (cl-block rmail-mime-entity (record 'rmail-mime-entity type disposition transfer-encoding display header tagline body children handler truncated)) nil] 27 (#$ . 13066)])
(put 'rmail-mime-entity 'compiler-macro 'rmail-mime-entity--cmacro)
#@2029 Return a newly created MIME-entity object from arguments.

A MIME-entity is a vector of 10 elements:

  [TYPE DISPOSITION TRANSFER-ENCODING DISPLAY HEADER TAGLINE BODY
   CHILDREN HANDLER TRUNCATED]

TYPE and DISPOSITION correspond to MIME headers Content-Type and
Content-Disposition respectively, and have this format:

  (VALUE (ATTRIBUTE . VALUE) (ATTRIBUTE . VALUE) ...)

Each VALUE is a string and each ATTRIBUTE is a string.

Consider the following header, for example:

Content-Type: multipart/mixed;
	boundary="----=_NextPart_000_0104_01C617E4.BDEC4C40"

The corresponding TYPE argument must be:

("multipart/mixed"
  ("boundary" . "----=_NextPart_000_0104_01C617E4.BDEC4C40"))

TRANSFER-ENCODING corresponds to MIME header
Content-Transfer-Encoding, and is a lower-case string.

DISPLAY is a vector [CURRENT NEW], where CURRENT indicates how
the header, tag line, and body of the entity are displayed now,
and NEW indicates how their display should be updated.
Both elements are `rmail-mime-display' objects.

HEADER and BODY are vectors [BEG END DISPLAY-FLAG], where BEG and
END are markers that specify the region of the header or body lines
in RMAIL's data (mbox) buffer, and DISPLAY-FLAG non-nil means that the
header or body is, by default, displayed by the decoded
presentation form.

TAGLINE is a vector [TAG BULK-DATA DISPLAY-FLAG], where TAG is a
string indicating the depth and index number of the entity,
BULK-DATA is a cons (SIZE . TYPE) indicating the size and type of
an attached data, DISPLAY-FLAG non-nil means that the tag line is
displayed by default.

CHILDREN is a list of child MIME-entities.  A "multipart/*"
entity has one or more children.  A "message/rfc822" entity
has just one child.  Any other entity has no child.

HANDLER is a function to insert the entity according to DISPLAY.
It is called with one argument ENTITY.

TRUNCATED is non-nil if the text of this entity was truncated.

(fn TYPE DISPOSITION TRANSFER-ENCODING DISPLAY HEADER TAGLINE BODY CHILDREN HANDLER &optional TRUNCATED)
(defalias 'rmail-mime-entity #[2569 "\300\301&\207" [record rmail-mime-entity] 22 (#$ . 13690)])
(byte-code "\300\301\302\303#\304\301\305\306\307\305\310\311\301\303&	\207" [function-put rmail-mime-entity side-effect-free t cl-struct-define nil cl-structure-object record ((cl-tag-slot) (type) (disposition) (transfer-encoding) (display) (header) (tagline) (body) (children) (handler) (truncated)) cl-struct-rmail-mime-entity-tags] 11)
#@25 

(fn ENTITY TRUNCATED)
(defalias 'rmail-mime-entity-set-truncated #[514 "\301!>\204\302\303\304D\"\210
\305I\207" [cl-struct-rmail-mime-entity-tags type-of signal wrong-type-argument rmail-mime-entity 10] 6 (#$ . 16182)])
(byte-code "\300\301\302\303#\210\304\301\305\306#\307\301\310\311#\207" [make-obsolete rmail-mime-entity-set-truncated (setf rmail-mime-entity-truncated) "28.1" function-put speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@60 Save the attachment using info in the BUTTON.

(fn BUTTON)
(defalias 'rmail-mime-save #[257 "\304
\305\"\304\306\"\304\307\"
;\2043\310!\n>\204#\311\312\313D\"\210
\314H\2033\315\316!\2043\317\320!\210\321\322\323\324\"\321\"#\"\262\325!\203W\321\326!\327!\"\262\330\331\332\"r\211q\210\333\334\"\216\335\336!\210\337\340!\210\332;\203yc\210\202\316\310!\n>\204\210\311\312\313D\"\210\341H\310!\n>\204\233\311\312\313D\"\210\342H\343	\344H\345H#\210
\346\230\203\301\3471\274\350ed\"0\266\202\316\266\202\316
\351\230\203\314\352ed\"\210\266\353\340\211\340\211\211\332&*\262
)\207" [rmail-view-buffer rmail-mime-mbox-buffer cl-struct-rmail-mime-entity-tags buffer-undo-list button-get filename directory data type-of signal wrong-type-argument rmail-mime-entity 10 y-or-n-p "This entity is truncated; save anyway? " error "Aborted" expand-file-name read-file-name format "Save as (default: %s): " file-directory-p file-name-nondirectory file-name-as-directory generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-file-coding-system no-conversion set-buffer-multibyte nil 3 7 insert-buffer-substring 0 1 "base64" (error) base64-decode-region "quoted-printable" quoted-printable-decode-region write-region] 14 (#$ . 16651)])
(define-button-type 'rmail-mime-save 'action 'rmail-mime-save)
#@77 compiler-macro for inlining `rmail-mime-display-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-display-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-display-p (and (memq (type-of cl-x) cl-struct-rmail-mime-display-tags) t)) nil] 9 (#$ . 18068)])
(put 'rmail-mime-display-p 'compiler-macro 'rmail-mime-display-p--cmacro)
#@13 

(fn CL-X)
(defalias 'rmail-mime-display-p #[257 "\301
!>\205	\302\207" [cl-struct-rmail-mime-display-tags type-of t] 3 (#$ . 18451)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put rmail-mime-display-p side-effect-free error-free put rmail-mime-display cl-deftype-satisfies] 5)
#@82 compiler-macro for inlining `rmail-mime-display-header'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-display-header--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-display-header (progn (or (rmail-mime-display-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-display cl-x))) (aref cl-x 1))) nil] 9 (#$ . 18758)])
(put 'rmail-mime-display-header 'compiler-macro 'rmail-mime-display-header--cmacro)
#@70 Access slot "header" of `rmail-mime-display' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-display-header #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-display-tags type-of signal wrong-type-argument rmail-mime-display 1] 5 (#$ . 19219)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-display-header side-effect-free t] 4)
#@83 compiler-macro for inlining `rmail-mime-display-tagline'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-display-tagline--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-display-tagline (progn (or (rmail-mime-display-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-display cl-x))) (aref cl-x 2))) nil] 9 (#$ . 19598)])
(put 'rmail-mime-display-tagline 'compiler-macro 'rmail-mime-display-tagline--cmacro)
#@71 Access slot "tagline" of `rmail-mime-display' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-display-tagline #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-display-tags type-of signal wrong-type-argument rmail-mime-display 2] 5 (#$ . 20064)])
(byte-code "\300\301\302\303#\300\207" [function-put rmail-mime-display-tagline side-effect-free t] 4)
#@80 compiler-macro for inlining `rmail-mime-display-body'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'rmail-mime-display-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block rmail-mime-display-body (progn (or (rmail-mime-display-p cl-x) (signal 'wrong-type-argument (list 'rmail-mime-display cl-x))) (aref cl-x 3))) nil] 9 (#$ . 20446)])
(put 'rmail-mime-display-body 'compiler-macro 'rmail-mime-display-body--cmacro)
#@68 Access slot "body" of `rmail-mime-display' struct CL-X.

(fn CL-X)
(defalias 'rmail-mime-display-body #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-rmail-mime-display-tags type-of signal wrong-type-argument rmail-mime-display 3] 5 (#$ . 20897)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put rmail-mime-display-body side-effect-free t defalias rmail-mime--copy-display copy-sequence] 4)
#@96 compiler-macro for inlining `rmail-mime--make-display'.

(fn CL-WHOLE-ARG HEADER TAGLINE BODY)
(defalias 'rmail-mime--make-display--cmacro #[1028 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (header tagline body) (cl-block rmail-mime--make-display (record 'rmail-mime-display header tagline body)) nil] 13 (#$ . 21328)])
(put 'rmail-mime--make-display 'compiler-macro 'rmail-mime--make-display--cmacro)
#@287 Make an object describing how to display.
Each field's value is a symbol for the corresponding
item with these values:
  nil: not displayed
  t:   displayed by the decoded presentation form
  raw: displayed by the raw MIME data (for the header and body only).

(fn HEADER TAGLINE BODY)
(defalias 'rmail-mime--make-display #[771 "\300\301$\207" [record rmail-mime-display] 8 (#$ . 21753)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put rmail-mime--make-display side-effect-free t cl-struct-define rmail-mime-display nil cl-structure-object record ((cl-tag-slot) (header) (tagline) (body)) cl-struct-rmail-mime-display-tags] 11)
#@541 Return a vector describing the displayed region of a MIME-entity at POS.
Optional 2nd argument ENTITY is the MIME-entity at POS.
The value is a vector [INDEX HEADER TAGLINE BODY END], where
  INDEX: index into the returned vector indicating where POS is (1..3)
  HEADER: the position of the beginning of a header
  TAGLINE: the position of the beginning of a tag line, including
           the newline that precedes it
  BODY: the position of the beginning of a body
  END: the position of the end of the entity.

(fn POS &optional ENTITY)
(defalias 'rmail-mime-entity-segment #[513 "\212\211\204\302\303\"\262
\211\204\304\305````%\202-
\306
!>\204(\307\310\303D\"\210\211\311H\312HeV\203F\302S\303\"=\203F\313\303\314e$\202G\305\314\211\211b\210\306!	>\204_\307\310\315D\"\210\305H\203k\316\317\314\320#\210`\262Y\203x\321\262\306!	>\204\211\307\310\315D\"\210\321H\203\222\322y\210`\262Y\203\237\322\262\306!	>\204\260\307\310\315D\"\210\322H\203 
\306!>\204\307\307\310\303	D\"\210\323H\312H\314\324\303\314d$\262dW\203
\302\303\"\262	\306	!>\204\364\307\310\303D\"\210\323H\312H\211\262\203
\211G\312V\203
\325\"\312=\203
\324\303\314d$\262\202\327\266\202#

\262
\304%\266\206)\207" [cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags get-text-property rmail-mime-entity vector 1 type-of signal wrong-type-argument 4 0 previous-single-property-change nil rmail-mime-display search-forward "\n\n" t 2 3 6 next-single-property-change string-match] 15 (#$ . 22435)])
#@66 Make MIME-entity ENTITY display in the default way.

(fn ENTITY)
(defalias 'rmail-mime-shown-mode #[257 "\302
!>\204\303\304\305D\"\210\211\306H\307H\302
!	>\204#\303\304\310D\"\210\211\307\302!>\2045\303\304\305D\"\210\311H\312HI\210\302
!	>\204K\303\304\310D\"\210\211\312\302!>\204]\303\304\305D\"\210\313H\312HI\210\302
!	>\204s\303\304\310D\"\210\211\314\302!>\204\205\303\304\305D\"\210\315H\312HI\266\302
!>\204\234\303\304\305D\"\210\211\316H\211\205\260\211@\317
!\210
A\266\202\202\237\207" [cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags type-of signal wrong-type-argument rmail-mime-entity 4 1 rmail-mime-display 5 2 6 3 7 8 rmail-mime-shown-mode] 8 (#$ . 24012)])
#@62 Make MIME-entity ENTITY display in hidden mode.

(fn ENTITY)
(defalias 'rmail-mime-hidden-mode #[257 "\302
!>\204\303\304\305D\"\210\211\306H\307H\302
!	>\204#\303\304\310D\"\210\211\307\311I\210\302
!	>\2047\303\304\310D\"\210\211\312\313I\210\302
!	>\204K\303\304\310D\"\210\211\314\311I\266\302
!>\204`\303\304\305D\"\210\211\315H\211\205t\211@\316
!\210
A\266\202\202c\207" [cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags type-of signal wrong-type-argument rmail-mime-entity 4 1 rmail-mime-display nil 2 t 3 8 rmail-mime-hidden-mode] 6 (#$ . 24749)])
#@59 Make MIME-entity ENTITY display in raw mode.

(fn ENTITY)
(defalias 'rmail-mime-raw-mode #[257 "\302
!>\204\303\304\305D\"\210\211\306H\307H\302
!	>\204#\303\304\310D\"\210\211\307\311I\210\302
!	>\2047\303\304\310D\"\210\211\312\313I\210\302
!	>\204K\303\304\310D\"\210\211\314\311I\266\302
!>\204`\303\304\305D\"\210\211\315H\211\205t\211@\316
!\210
A\266\202\202c\207" [cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags type-of signal wrong-type-argument rmail-mime-entity 4 1 rmail-mime-display raw 2 nil 3 8 rmail-mime-raw-mode] 6 (#$ . 25346)])
#@221 Toggle on and off the raw display mode of MIME-entity at point.
With optional argument STATE, force the specified display mode.
Use `raw' for raw mode, and any other non-nil value for decoded mode.

(fn &optional STATE)
(defalias 'rmail-mime-toggle-raw #[256 "m\203	dS\202\n`\303
\304\"\305
!>\204\306\307\304D\"\210\211\310H\311H\312\"\313=\204G\204K\305!	>\204?\306\307\314D\"\210
\315H\313=\204K\316!\207\317!\210\320\321 
\212\315Hb\210\322!\210\323
!*\207" [cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags inhibit-read-only get-text-property rmail-mime-entity type-of signal wrong-type-argument 4 0 rmail-mime-entity-segment raw rmail-mime-display 1 rmail-mime-raw-mode rmail-mime-shown-mode t buffer-modified-p rmail-mime-insert restore-buffer-modified-p] 9 (#$ . 25937)])
#@52 Hide or show the body of the MIME-entity at point.
(defalias 'rmail-mime-toggle-hidden #[0 "\306`\307\"\204\306e\307\"\205
pm\203dS\202`\306
\307\"\310
!>\204/\311\312\307D\"\210\211\313H\314H\315\"\310!\f>\204G\311\312\316D\"\210
\317H\203\226\211\314H\317U\203Z\211\320Hb\210\321!\210	\203\347\211\322HeU\203\347\310!>\204y\311\312\307D\"\210\313H\322H\310
!\f>\204\215\311\312\316D\"\210\211\322\323I\266\202\347;\204\272\310!>\204\252\311\312\307D\"\210\324H\203\272\325\326!\204\272\327\330!\210\331!\210\310!>\204\315\311\312\307D\"\210\313H\322H\310
!\f>\204\341\311\312\316D\"\210\211\317\323I\266\323\332 

\212\322Hb\210\333!\210\334
!,\266\202*\266\204\207" [rmail-view-buffer rmail-mime-mbox-buffer rmail-mime-view-buffer cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags rmail-buffer get-text-property rmail-mime-entity type-of signal wrong-type-argument 4 0 rmail-mime-entity-segment rmail-mime-display 3 2 rmail-mime-hidden-mode 1 t 10 y-or-n-p "This entity is truncated; show anyway? " error "Aborted" rmail-mime-shown-mode buffer-modified-p rmail-mime-insert restore-buffer-modified-p inhibit-read-only] 9 (#$ . 26762) nil])
(byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\207" [rmail-mode-map define-key "	" forward-button [backtab] backward-button "
" rmail-mime-toggle-hidden] 4)
#@153 Insert a tag line for MIME-entity ENTITY.
ITEM-LIST is a list of strings or button-elements (list) to add
to the tag line.

(fn ENTITY &rest ITEM-LIST)
(defalias 'rmail-mime-insert-tagline #[385 "\302c\210\303!>\204\304\305\306D\"\210
\307H\310H\211G\310V\203&\211\311\312O\313\261\210\210\303!>\2046\304\305\306D\"\210
\311H@\314\261\210\315\303!>\204N\304\305\306D\"\210\316H\311H\303
!	>\204b\304\305\317D\"\210\211\320H\203l\321\202m\322\262
\323\324\325\326%\210\211\211\203\227\211@\211\203\220\211;\203\213\211c\210\202\220\327\315\"\210
A\266\202\202v\210\330c\207" [cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags "\n[" type-of signal wrong-type-argument rmail-mime-entity 6 0 1 nil ":" " " insert-button 4 rmail-mime-display 3 "Hide" "Show" :type rmail-mime-toggle help-echo "mouse-2, RET: Toggle show/hide" apply "]\n\n"] 8 (#$ . 28158)])
#@66 Update the current tag line for MIME-entity ENTITY.

(fn ENTITY)
(defalias 'rmail-mime-update-tagline #[257 "\303\304 \305\211!>\204\306\307\310D\"\210\311H\312H!	>\204;\306\307\313\305!>\2043\306\307\310D\"\210\311H\312HD\"\210\305!>\204J\306\307\310D\"\210\311H\312H\314H\203X\315\202Y\316\317`!\320
!Tb\210\321`!\262
\212
c\210`\322!|\210)\320
!`|\210\323`\322!\310$\210\324!\210\325y)\207" [cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags inhibit-read-only t buffer-modified-p type-of signal wrong-type-argument rmail-mime-entity 4 1 rmail-mime-display 3 "Hide" "Show" next-button button-start button-at button-end put-text-property restore-buffer-modified-p 2] 10 (#$ . 29060)])
#@165 Decode and insert a MIME-entity header HEADER in the current buffer.
HEADER is a vector [BEG END DEFAULT-STATUS].
See `rmail-mime-entity' for details.

(fn HEADER)
(defalias 'rmail-mime-insert-header #[257 "`\306\214\211
}\210r	q\210	\n\212
\307Hb\210\310`\311H\"\210,\312
`\"\210\203.
\204.Ceb\210\313 \210db\210\314c*\207" [last-coding-system-used rmail-mime-mbox-buffer rmail-mime-view-buffer rmail-view-buffer rmail-buffer rmail-mime-coding-system nil 0 rmail-copy-headers 1 rfc2047-decode-region rmail-highlight-headers "\n"] 6 (#$ . 29799)])
#@147 Return the last coding system used to decode HEADER.
HEADER is a header component of a MIME-entity object (see
`rmail-mime-entity').

(fn HEADER)
(defalias 'rmail-mime-find-header-encoding #[257 "\304\305\306\"r\211q\210\307\310\"\216prq\210\311\212\312Hb\210\313`\314H\"\210-\315ed\"\210\262
*\207" [rmail-mime-mbox-buffer rmail-view-buffer rmail-buffer last-coding-system-used generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nil 0 rmail-copy-headers 1 rfc2047-decode-region] 7 (#$ . 30363)])
#@119 Handle the current buffer as a plain text MIME part.

(fn CONTENT-TYPE CONTENT-DISPOSITION CONTENT-TRANSFER-ENCODING)
(defalias 'rmail-mime-text-handler #[771 "\300\301\302\303\301\304\305\211\211$\301\304\305\211\306$\"\303\305\211\211#\303\307\305C\306#\303\305\211\211#\305\300\305&!\210\306\207" [rmail-mime-insert-text record rmail-mime-entity vector rmail-mime-display nil t ""] 16 (#$ . 30938)])
#@69 Decode and insert the text body of MIME-entity ENTITY.

(fn ENTITY)
(defalias 'rmail-mime-insert-decoded-text #[257 "\303
!>\204\304\305\306D\"\210\211\307H\310
A\236A\211\205\311
!\303!>\204.\304\305\306D\"\210\312H`\203<\313!\204?\314\262
\315H;\203N
\315Hc\210\202\221\303!>\204_\304\305\306D\"\210\316H\317	\315H\307H#\210\211\320\230\203\205\3211\200\322`\"0\266\202\221\266\202\221\211\323\230\203\220\324`\"\210\210\325
`#\210\n\203\240\n:\203\252\326!\327=\204\252n\206\260\330c\207" [cl-struct-rmail-mime-entity-tags rmail-mime-mbox-buffer rmail-mime-coding-system type-of signal wrong-type-argument rmail-mime-entity 1 charset coding-system-from-name 7 coding-system-p undecided 0 3 insert-buffer-substring "base64" (error) base64-decode-region "quoted-printable" quoted-printable-decode-region decode-coding-region coding-system-base us-ascii "\n"] 12 (#$ . 31351)])
#@65 Presentation handler for a plain text MIME entity.

(fn ENTITY)
(defalias 'rmail-mime-insert-text #[257 "\302
!>\204\303\304\305D\"\210\211\306H\307H\302!>\204#\303\304\305D\"\210
\306H\310H\302!>\2047\303\304\305D\"\210\311H\302!>\204J\303\304\305D\"\210\312H`\313`\"\307H\250\204n\314\307H!\204n\315 \307I\210ed|\266\302!	>\204\303\304\316D\"\210\310H\302!	>\204\223\303\304\316D\"\210\310H=\203\242\211\317Hb\210\202\335\302!	>\204\263\303\304\316D\"\210\310H\203\303\320
\317H\310HZ!\210\302!	>\204\323\303\304\316D\"\210\310H\203\335\321!\210\302!	>\204\356\303\304\316D\"\210\317H\302!	>\204
\303\304\316D\"\210\317H=\203`
\302!	>\204
\303\304\316D\"\210\317H\203L
\302!	>\2041
\303\304\316D\"\210\322H\302!	>\204E
\303\304\316D\"\210\322H=\203X
\211\322H
\317HZu\210\202\234
\323!\210\202\234
\302!	>\204q
\303\304\316D\"\210\317H\203\201
\320
\322H\317HZ!\210\302!	>\204\221
\303\304\316D\"\210\317H\203\234
\324!\210\302!	>\204\255
\303\304\316D\"\210\322H\302!	>\204\301
\303\304\316D\"\210\322H=\203\324
\211\306H
\322HZu\210\202\302!	>\204\345
\303\304\316D\"\210\322H\203\365
\320
\306H\322HZ!\210\302!	>\204\303\304\316D\"\210\322H\203\325!\210\326`\305\n$\207" [cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags type-of signal wrong-type-argument rmail-mime-entity 4 0 1 5 7 rmail-mime-entity-segment markerp buffer-string rmail-mime-display 2 delete-char rmail-mime-insert-header 3 rmail-mime-update-tagline rmail-mime-insert-tagline rmail-mime-insert-decoded-text put-text-property] 12 (#$ . 32280)])
#@70 Decode and insert the image body of MIME-entity ENTITY.

(fn ENTITY)
(defalias 'rmail-mime-insert-image #[257 "\304
!>\204\305\306\307D\"\210\211\310H\311H\304!>\204#\305\306\307D\"\210
\312H\313
\314H;\2036
\314H\262
\202\230	\304!>\204G\305\306\307D\"\210\315H
\316\317\320\"r\211q\210\321\322\"\216\323\313!\210\320\324\n\314H\311H#\210
\325\230\203\202\3261~\327ed\"0\210\202\215\210\202\215
\330\230\203\215\331ed\"\210\332ed\"\262*\210)\266\333\334A\320#!\210\335c\207" [cl-struct-rmail-mime-entity-tags rmail-view-buffer rmail-mime-mbox-buffer buffer-undo-list type-of signal wrong-type-argument rmail-mime-entity 6 1 7 nil 0 3 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte insert-buffer-substring "base64" (error) base64-decode-region "quoted-printable" quoted-printable-decode-region buffer-substring-no-properties insert-image create-image "\n"] 12 (#$ . 33951)])
#@71 Decode, render, and insert html from MIME-entity ENTITY.

(fn ENTITY)
(defalias 'rmail-mime-insert-html #[257 "\306
!>\204\307\310\311D\"\210\211\312H\306!>\204!\307\310\311D\"\210
\313H\314\306!>\2045\307\310\311D\"\210\315HA\236Ap\316\317
\203I\320!\262
\211\203S\321
!\204V\322\262
\323\324\316\"r\211q\210\325\326\"\216\327\317!\210\316\330\331H	\315H#\210\332\230\203\214\3331\210\334ed\"0\210\202\227\210\202\227\335\230\203\227\336ed\"\210
\322=\203\313\212eb\210\337\340\317\316#\203\275\320\341\315!!\262
\203\272\321!\204\275\322\262
\322=\203\312\f\203\312\f\262)\342e`#\210
\203\332
:\203\344\343!\344=\204\344
prq\210`&\203\367&!\210\202\373\330!\210\345
!\262
)\262
*\262
)\207" [cl-struct-rmail-mime-entity-tags case-fold-search buffer-undo-list rmail-mime-mbox-buffer coding-system-for-read rmail-mime-coding-system type-of signal wrong-type-argument rmail-mime-entity 7 3 charset 1 t nil coding-system-from-name coding-system-p undecided generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte insert-buffer-substring 0 "base64" (error) base64-decode-region "quoted-printable" quoted-printable-decode-region re-search-forward "^<html><head><meta[^;]*; charset=\\([-a-zA-Z0-9]+\\)" match-string decode-coding-region coding-system-base us-ascii rmail-mime-fix-inserted-faces rmail-mime-render-html-function] 13 (#$ . 34950)])
#@22 

(fn SOURCE-BUFFER)
(defalias 'rmail-mime-render-html-shr #[257 "r\211q\210\302ed\")\303\304\305
!*\207" [shr-width shr-inhibit-images libxml-parse-html-region t nil shr-insert-document] 4 (#$ . 36428)])
#@22 

(fn SOURCE-BUFFER)
(defalias 'rmail-mime-render-html-lynx #[257 "pr
q\210\300ed\301\302\302\303\304\305\306\307&)\207" [call-process-region "lynx" nil "-stdin" "-dump" "-force_html" "-dont_wrap_pre" "-width=70"] 14 (#$ . 36641)])
#@14 

(fn START)
(defalias 'rmail-mime-fix-inserted-faces #[257 "\211`W\205 \300
\301\"\302\301p`$
\203\303\304$\210\266\202\202\207" [get-text-property face next-single-property-change put-text-property font-lock-face] 8 (#$ . 36881)])
#@79 Hide or show the body of the MIME-entity associated with BUTTON.

(fn BUTTON)
(defalias 'rmail-mime-toggle-button #[257 "\212\300
!b\210\301 )\207" [button-start rmail-mime-toggle-hidden] 3 (#$ . 37129)])
(define-button-type 'rmail-mime-toggle 'action 'rmail-mime-toggle-button)
#@235 Handle the current buffer as an attachment to download.
For images that Emacs is capable of displaying, the behavior
depends upon the value of `rmail-mime-show-images'.

(fn CONTENT-TYPE CONTENT-DISPOSITION CONTENT-TRANSFER-ENCODING)
(defalias 'rmail-mime-bulk-handler #[771 "\300\301\302\303\301\304\305\211\211$\301\304\305\306\305$\"\303\305\211\211#\303\307\305C\306#\303\305\211\211#\305\300\305&!\207" [rmail-mime-insert-bulk record rmail-mime-entity vector rmail-mime-display nil t ""] 16 (#$ . 37415)])
#@172 Setup the information about the attachment object for MIME-entity ENTITY.
The value is non-nil if and only if the attachment object should be shown
directly.

(fn ENTITY)
(defalias 'rmail-mime-set-bulk-data #[257 "\303
!>\204\304\305\306D\"\210\211\307H@\310\303!>\204#\304\305\306D\"\210\311HA\236A\303!>\2048\304\305\306D\"\210\312H\307H\303!>\204M\304\305\306D\"\210\313H\314\211\203^\315!\262\202\251\316H;\203n\316HG\262\202\251\303!>\204\304\305\306	D\"\210\317H\307H\316HZ\262\211\320\230\203\233\321_\262\210\202\251\211\322\230\203\250\323_\313\245\262\210\324\325\"\203\267\326\262\202
\324\327\"\203\305\330\262\202
\324\331\"\203
\332\333\334\307	\"P!\262\335\301!\203

	>\203
\336!\203
\n\203
\n\337=\204
\n\247\203\377\nW\203
\340\262
\202
\314\262\240\210\241\210\207" [cl-struct-rmail-mime-entity-tags image-types rmail-mime-show-images type-of signal wrong-type-argument rmail-mime-entity 1 size 2 6 7 nil string-to-number 0 3 "base64" 0.73 "quoted-printable" 5 string-match "text/html" html "text/" text "image/\\(.*\\)" image-type-from-file-name "." match-string boundp image-type-available-p button t] 12 (#$ . 37937)])
#@66 Presentation handler for an attachment MIME entity.

(fn ENTITY)
(defalias 'rmail-mime-insert-bulk #[257 "\304
!>\204\305\306\307D\"\210\211\310H\304!>\204!\305\306\307D\"\210
\311H\304!>\2043\305\306\307D\"\210\312H\313H\304!>\204H\305\306\307D\"\210\312H\310H\304!>\204]\305\306\307D\"\210\314H\304!>\204q\305\306\307D\"\210\315H\211\310H\304!>\204\210\305\306\307\nD\"\210\316H\3172\306	\211\205\303\211@\320
@@\"\203\274\211A\211\203\273\211@\321
!\203\264\322\317\"\210
A\266\202\202\243\210
A\266\202\202\221\262
0\206\312\323\324	A\236A\206\335\325A\236A\206\335\326\327\330`
\"\331\211\211\313H\250\204\367\332\313H!\203
\262@\262
\2025
\313H;\203
\313H\262\2021
\333 \262\334!\203\"
\335\336!\210\313I\210\337!\210ed|\210
G\262
\211\340V\203L
A\203L
\211\340\245\262
A\262\2025
`\262\304
!\n>\204`
\305\306\341D\"\210\f\310H\304
!\n>\204u
\305\306\341D\"\210\f\310H=\203\205
\311Hb\210\202\304
\304
!\n>\204\226
\305\306\341D\"\210\f\310H\203\247
\342\311H\310HZ!\210\304\f!\n>\204\270
\305\306\341D\"\210\310H\203\304
\343!\210\304
!\n>\204\325
\305\306\341D\"\210\f\311H\304
!\n>\204\352
\305\306\341D\"\210\f\311H=\203L\304
!\n>\204\305\306\341D\"\210\f\311H\2038\304
!\n>\204\305\306\341D\"\210\f\344H\304
!\n>\2040\305\306\341D\"\210\f\344H=\203D\344H\311HZu\210\202\247\345!\210\202\247\304
!\n>\204]\305\306\341D\"\210\f\311H\203n\342\344H\311HZ!\210\304\f!\n>\204\305\306\341D\"\210\311H\203\247\346\347\350\351\352\353\325\317\354!\355\257\356\357@#$\210\304
!\n>\204\270\305\306\341D\"\210\f\344H\304
!\n>\204\315\305\306\341D\"\210\f\344H=\203\341\312H\344HZu\210\202Z\304
!\n>\204\362\305\306\341D\"\210\f\344H\203\342\312H\344HZ!\210\304\f!\n>\204\305\306\341D\"\210\344H\203ZA\360=\203+\361!\210\202ZA\362=\203G\203?\361!\210\202Z\363!\210\202ZA\203U\364!\210\202Z\361!\210\365`\307$\207" [cl-struct-rmail-mime-entity-tags rmail-mime-attachment-dirs-alist cl-struct-rmail-mime-display-tags rmail-mime-searching type-of signal wrong-type-argument rmail-mime-entity 1 2 4 0 5 6 7 directory string-match file-directory-p throw "~" name filename "noname" (B kB MB GB) rmail-mime-entity-segment nil markerp buffer-string multibyte-string-p cl--assertion-failed (not (multibyte-string-p data)) rmail-mime-set-bulk-data 1024.0 rmail-mime-display delete-char rmail-mime-insert-header 3 rmail-mime-update-tagline rmail-mime-insert-tagline " Save:" :type rmail-mime-save help-echo "mouse-2, RET: Save attachment" file-name-as-directory data format " (%.0f%s)" text rmail-mime-insert-decoded-text html rmail-mime-insert-html rmail-mime-insert-image put-text-property] 30 (#$ . 39161)])
#@327 Handle the current buffer as a multipart MIME body.
The current buffer should be narrowed to the body.  CONTENT-TYPE,
CONTENT-DISPOSITION, and CONTENT-TRANSFER-ENCODING are the values
of the respective parsed headers.  See `rmail-mime-handle' for their
format.

(fn CONTENT-TYPE CONTENT-DISPOSITION CONTENT-TRANSFER-ENCODING)
(defalias 'rmail-mime-multipart-handler #[771 "\300\301$\210\302\207" [rmail-mime-process-multipart nil t] 8 (#$ . 41996)])
#@466 Process the current buffer as a multipart MIME body.

If PARSE-TAG is nil, modify the current buffer directly for
showing the MIME body and return nil.

Otherwise, PARSE-TAG is a string indicating the depth and index
number of the entity.  In this case, parse the current buffer and
return a list of MIME-entity objects.

The other arguments are the same as `rmail-mime-multipart-handler'.

(fn CONTENT-TYPE CONTENT-DISPOSITION CONTENT-TRANSFER-ENCODING PARSE-TAG)
(defalias 'rmail-mime-process-multipart #[1028 "\303\236A\304@\305\"A@\306\307\211\211\211\211\211\204!\310\311$\210\312	P\262	eb\210\313	\307\314#\203K\315\316!\203K	\203F\306\225d}\210\202Ke\306\225|\210\317\320	\"\203Y\321\262
\202j\317\322	\"\203g\323\262
\202j\307\262
e\262\313	\307\314#\203\201\307\262\306\224\211\262\204\233\211\204\203
\212\324\307w\210d`V)\203\203
\314\262d\211\262\203\203
\315\325!\203\253\326 \262\314\262
\202\311\315\316!\203\273\327\306\225\314\"\262\202\311
\203\306\326 \262\202\311\307\262\203mT\262	\203m
\214}\210\330\307\331\332
#$\333\211!>\204\372\334\335\336D\"\210
\337H\340H!	>\204 
\334\335\341\333!>\204
\334\335\336D\"\210\337H\340HD\"\210\333
!>\204/
\334\335\336D\"\210\211\337H\340H\211\342\333!>\204F
\334\335\336D\"\210\343H\342\314II\266\333
!>\204^
\334\335\336D\"\210\211\344I\210\211B\262\210)\202z
|\210\214}\210\345 \210)\211\262b\210\202m	\205G\237\262\317\346	\"\203F\307\211\211\203\211@\333
!>\204\254
\334\335\336D\"\210\211\342H@\206\266
@\347\230\203\333
!>\204\312
\334\335\336D\"\210\211\340H@\317\350\"\203
\317\351\"\203\350
\n\203\344
\340\202\374
\342\202\374
\317\352\"\203\373
\n\203\367
\342\202\374
\340\202\374
\353\203\211X\203\f\262\211\262\210\210
A\266\202\202\227
\210\211\203D\211@
=\204=\333
!>\2042\334\335\336D\"\210\211\354H\342\307I\210\355
!\210
A\266\202\202\266\207" [cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags rmail-mime-prefer-html boundary split-string "/" 0 nil rmail-mm-get-boundary-error-message "No boundary defined" "\n--" search-forward t looking-at "[ 	]*\n" string-match "mixed" ("text/plain") "digest" ("message/rfc822") "\n" "--[ 	]*$" point-max-marker copy-marker rmail-mime-process format "%s/%d" type-of signal wrong-type-argument rmail-mime-entity 4 1 rmail-mime-display 2 6 10 rmail-mime-show "alternative" "inline" "text/" "text/html" "text/plain" 3 7 rmail-mime-hidden-mode] 21 (#$ . 42456)])
#@64 Presentation handler for a multipart MIME entity.

(fn ENTITY)
(defalias 'rmail-mime-insert-multipart #[257 "\302
!>\204\303\304\305D\"\210\211\306H\307H\302!>\204#\303\304\305D\"\210
\306H\310H\302!>\2047\303\304\305D\"\210\311H`\312`\"\302!	>\204P\303\304\313D\"\210\310H\302!	>\204c\303\304\313D\"\210\310H=\203r\211\314Hb\210\202\254\302!	>\204\202\303\304\313D\"\210\310H\203\222\315
\314H\310HZ!\210\302!	>\204\242\303\304\313D\"\210\310H\203\254\316!\210\302!	>\204\274\303\304\313D\"\210\314H\302!	>\204\317\303\304\313D\"\210\314H=\203*
\302!	>\204\346\303\304\313D\"\210\314H\203
\302!	>\204\374\303\304\313D\"\210\317H\302!	>\204
\303\304\313D\"\210\317H=\203\"
\211\317H
\314HZu\210\202e
\320!\210\202e
\302!	>\204:
\303\304\313D\"\210\314H\203J
\315
\317H\314HZ!\210\302!	>\204Z
\303\304\313D\"\210\314H\203e
\321!\210\322`\305	$\210\302!	>\204}
\303\304\313D\"\210\317H\302!	>\204\220
\303\304\313D\"\210\317H=\203\243
\211\306H
\317HZu\210\202\311
\302!>\204\264
\303\304\305D\"\210\323H\211\203\310
\211@\324
!\210
A\266\202\202\267
\210\207" [cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags type-of signal wrong-type-argument rmail-mime-entity 4 0 1 5 rmail-mime-entity-segment rmail-mime-display 2 delete-char rmail-mime-insert-header 3 rmail-mime-update-tagline rmail-mime-insert-tagline put-text-property 8 rmail-mime-insert] 11 (#$ . 44982)])
#@820 Handle the current buffer as a MIME part.
The current buffer should be narrowed to the respective body, and
point should be at the beginning of the body.

CONTENT-TYPE, CONTENT-DISPOSITION, and CONTENT-TRANSFER-ENCODING
are the values of the respective parsed headers.  The latter should
be lower-case.  The parsed headers for CONTENT-TYPE and CONTENT-DISPOSITION
have the form

  (VALUE . ALIST)

In other words:

  (VALUE (ATTRIBUTE . VALUE) (ATTRIBUTE . VALUE) ...)

VALUE is a string and ATTRIBUTE is a symbol.

Consider the following header, for example:

Content-Type: multipart/mixed;
	boundary="----=_NextPart_000_0104_01C617E4.BDEC4C40"

The parsed header value:

("multipart/mixed"
  ("boundary" . "----=_NextPart_000_0104_01C617E4.BDEC4C40"))

(fn CONTENT-TYPE CONTENT-DISPOSITION CONTENT-TRANSFER-ENCODING)
(defalias 'rmail-mime-handle #[771 "\211\302\230\203\3031\304`d\"0\202\210\2029\2039\305\262
\2029\211\306\230\2030\307`d\"\210\305\262
\2029\211\310\230\2039\305\262

@\311\230\203n\305\211\203i\211@\312
@@\"\203b\204b\211A@#\262
A\266\202\202B\266\202t\313#\210\214~\210\314`S\315\"\211\205\260\316
!	>\204\217\317\320\315D\"\210\211\321H\322H\316!	>\204\243\317\320\315D\"\210
\321H\211\323\324!I\262
\262
\262
)\207" [rmail-mime-media-type-handlers-alist cl-struct-rmail-mime-entity-tags "base64" (error) base64-decode-region nil "quoted-printable" quoted-printable-decode-region "8bit" "inline" string-match rmail-mime-bulk-handler get-text-property rmail-mime-entity type-of signal wrong-type-argument 4 1 0 rmail-mime--copy-display] 10 (#$ . 46469)])
#@393 Handle the current buffer as a MIME message.
If SHOW-HEADERS is non-nil, then the headers of the current part
will shown as usual for a MIME message.  The headers are also
shown for the content type message/rfc822.  This function will be
called recursively if multiple parts are available.

The current buffer must contain a single message.  It will be
modified.

(fn &optional SHOW-HEADERS)
(defalias 'rmail-mime-show #[256 "\300
\301\"\207" [rmail-mime-process nil] 4 (#$ . 48093)])
#@90 

(fn SHOW-HEADERS PARSE-TAG &optional DEFAULT-CONTENT-TYPE DEFAULT-CONTENT-DISPOSITION)
(defalias 'rmail-mime-process #[1026 "e\302\211\211eb\210\302f\303=\203`T\262\2026\304\305\302\306#\2036\307\225\262\214e}\210\310\311!\262\310\312!\262\310\313!\262
)
\203>
\227\262\203L\314!\206Q\315\202Q\206Q\316\262\211\203]\317
!\202b\206b\320\262
\211@\321\235\204n\322\262
\203[\211@\323\230\324!\325\326 \302#\325\n\302C\306#\325\327 #\330\331\332H\332H\332H$\302\211\211\333\334
@\"\203\341\214\fSd}\210G\307U\203\316\335!>\204\305\336\337\331D\"\210\332\332\302II\210\340\f
$\262\341\262)\202\333\342
@\"\203l
\214\fd}\210\343\306\344\345$\335
!	>\204
\336\337\346D\"\210\211\347H\350H\335
!>\204
\336\337\331D\"\210\211\350\306I\210\335!	>\204.
\336\337\346D\"\210
\351H\332\306I\210\335
!>\204D
\336\337\331D\"\210\211\332\302I\210\335!	>\204X
\336\337\346D\"\210
\352H\332\302I\210
C\262\341\262\266)\202\203\262
\333\353
@\"\203\262
\335!>\204\212
\336\337\331D\"\210\332\332\306II\210\335!>\204\243
\336\337\331D\"\210\354\332\306II\210\355\262\202\203\337
\333\356
@\"\203\337
\335!>\204\320
\336\337\331D\"\210\332\332\302II\210\357\262\202\335!>\204\357
\336\337\331D\"\210\332\332\306II\210\335!>\204\336\337\331D\"\210\354\332\302II\210\355\262\330\346
\f\325\330\331\302\211\211$\n\"\f\f\f\302&\262

\355=\203Z\360
!\203Z\335!>\204Q\336\337\331D\"\210\354\332\306II\210\207\361ed\346\330\346	\325\211\362\302\362#\325\362\302\362#\"\325\302\211\362#\325\363\302C\302#\325\302\211\362#\302\211\211&$\210\214@\342\230\203\231d}\210\202\242\204\242e|\210\364#)\207" [cl-struct-rmail-mime-display-tags cl-struct-rmail-mime-entity-tags nil 10 search-forward "\n\n" t 0 mail-fetch-field "Content-Type" "Content-Transfer-Encoding" "Content-Disposition" mail-header-parse-content-type ("text/plain") ("text/plain") mail-header-parse-content-disposition ("inline") ("inline" "attachment") ("attachment") "inline" copy-marker vector point-min-marker point-max-marker record rmail-mime-display 2 string-match "multipart/.*" type-of signal wrong-type-argument rmail-mime-process-multipart rmail-mime-insert-multipart "message/rfc822" rmail-mime-process ("text/plain") ("inline") rmail-mime-entity 4 1 5 6 "text/html" 3 rmail-mime-insert-bulk "text/" rmail-mime-insert-text rmail-mime-set-bulk-data put-text-property raw "" rmail-mime-handle] 29 (#$ . 48584)])
#@165 Parse the current Rmail message as a MIME message.
The value is a MIME-entity object (see `rmail-mime-entity').
If an error occurs, return an error message string.
(defalias 'rmail-mime-parse #[0 "\304 \203	\202\np\3051br	q\210\212eb\210\306\307\310\311\312$\313
!\n>\204,\314\315\316D\"\210\211\317H\320H\313
!>\204@\314\315\321D\"\210\211\320\313!\n>\204R\314\315\316D\"\210\322H\323\307II\210
\266\202*0\202h\324\325\"\262
)\207" [rmail-view-buffer rmail-mime-mbox-buffer cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags rmail-buffers-swapped-p (error) rmail-mime-process t "" ("text/plain") ("inline") type-of signal wrong-type-argument rmail-mime-entity 4 1 rmail-mime-display 5 2 format "%s"] 8 (#$ . 51119)])
#@140 Insert a MIME-entity ENTITY in the current buffer.

This function will be called recursively if multiple parts are
available.

(fn ENTITY)
(defalias 'rmail-mime-insert #[257 "\303
!>\204\304\305\306D\"\210\211\307H\310H\303!>\204#\304\305\306D\"\210
\307H\311H\303
!	>\2047\304\305\312D\"\210\211\311H\313=\204W\303!>\204N\304\305\306D\"\210\314H!\210\202\262
\303!>\204f\304\305\306D\"\210\315H\303!>\204y\304\305\306D\"\210\316H`\317`\"\303!	>\204\223\304\305\312D\"\210\311H\303!	>\204\247\304\305\312D\"\210\311H=\203\266\211\320Hb\210\202\342\303!	>\204\307\304\305\312D\"\210\311H\203\327\321
\320H\311HZ!\210\322\n\310H\311H#\210\303!	>\204\363\304\305\312D\"\210\320H\203
\321
\323H\320HZ!\210\303!>\204
\304\305\306	D\"\210\324H\211\203;
\325`\306$\210\211\211\2036
\211@\326
!\210
A\266\202\202%
\266\202\262
\303!	>\204L
\304\305\312	D\"\210\323H\303!	>\204a
\304\305\312	D\"\210\323H=\203u

\307H\323HZu\210\202\251
\303!	>\204\206
\304\305\312	D\"\210\323H\203\227
\321\307H\323HZ!\210\322\n\310H\311H#\210n\204\251
\327c\210\325`\306$\266\303!>\204\301
\304\305\306D\"\210\307H\211\310\330!I\207" [cl-struct-rmail-mime-entity-tags cl-struct-rmail-mime-display-tags rmail-mime-mbox-buffer type-of signal wrong-type-argument rmail-mime-entity 4 0 1 rmail-mime-display raw 9 5 7 rmail-mime-entity-segment 2 delete-char insert-buffer-substring 3 8 put-text-property rmail-mime-insert "\n" rmail-mime--copy-display] 13 (#$ . 51877)])
(defvar rmail-mime-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [rmail-mime-mode-hook variable-documentation put "Hook run after entering RMIME mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp rmail-mime-mode-map definition-name rmail-mime-mode] 4)
(defvar rmail-mime-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [rmail-mime-mode-abbrev-table rmail-mime-mode-map variable-documentation put purecopy "Keymap for `rmail-mime-mode'." boundp rmail-mime-mode-syntax-table definition-name rmail-mime-mode (lambda (#1=#:def-tmp-var) (defvar rmail-mime-mode-syntax-table #1#)) make-syntax-table "Syntax table for `rmail-mime-mode'." (lambda (#1#) (defvar rmail-mime-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `rmail-mime-mode'." derived-mode-parent] 5)
#@171 Major mode used in `rmail-mime' buffers.

This mode runs the hook `rmail-mime-mode-hook', as the final or
penultimate step during initialization.

\{rmail-mime-mode-map}
(defalias 'rmail-mime-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\315)\316\317!\207" [delay-mode-hooks major-mode mode-name rmail-mime-mode-map rmail-mime-mode-syntax-table rmail-mime-mode-abbrev-table make-local-variable t kill-all-local-variables rmail-mime-mode "RMIME" use-local-map set-syntax-table (rmail-font-lock-keywords t t nil nil) run-mode-hooks rmail-mime-mode-hook local-abbrev-table font-lock-defaults] 2 (#$ . 54614) nil])
#@943 Toggle the display of a MIME message.

The actual behavior depends on the value of `rmail-enable-mime'.

If `rmail-enable-mime' is non-nil (the default), this command toggles
the display of a MIME message between decoded presentation form and
raw data.  With optional prefix argument ARG, it toggles the display only
of the MIME entity at point, if there is one.  The optional argument
STATE forces a particular display state, rather than toggling.
`raw' forces raw mode, any other non-nil value forces decoded mode.

If `rmail-enable-mime' is nil, this creates a temporary "*RMAIL*"
buffer holding a decoded copy of the message.  Inline content-types
are handled according to `rmail-mime-media-type-handlers-alist'.
By default, this displays text and multipart messages, and offers to
download attachments as specified by `rmail-mime-attachment-dirs-alist'.
The arguments ARG and STATE have no effect in this case.

(fn &optional ARG STATE)
(defalias 'rmail-mime #[512 "\203[r	q\210\306`\307\"\204\306e\307\"\204\306e\310\"\203S\306e\310\"
\203+
\311=\202-\211?

=?\205N\211\204@\312\n!\266\202\202Y\313\314\312\n!\210\315ed\316#*\266\202\202Y\317\320!\210\321 )\207\322\n\323\"\324\325!\f\211\211q\210\314\211\326 \210\327 \210
c\210\330\314!\210\331 \210\332\313!\210)\333
!*\207" [rmail-enable-mime rmail-buffer rmail-current-message inhibit-read-only rmail-view-buffer rmail-mime-mbox-buffer get-text-property rmail-mime-entity rmail-mime-hidden raw rmail-show-message nil t add-text-properties (rmail-mime-hidden t) message "Not a MIME message, just toggling headers" rmail-toggle-header rmail-apply-in-message buffer-string get-buffer-create "*RMAIL*" fundamental-mode erase-buffer rmail-mime-show rmail-mime-mode set-buffer-modified-p view-buffer rmail-mime-view-buffer buffer-undo-list] 9 (#$ . 55260) nil])
#@107 Return MESSAGE with more information on the main MIME components.

(fn MESSAGE TYPE DISPOSITION ENCODING)
(defalias 'rmail-mm-get-boundary-error-message #[1028 "\300\301%\207" [error "%s; type: %s; disposition: %s; encoding: %s"] 10 (#$ . 57105)])
#@62 Function to use for the value of `rmail-show-mime-function'.
(defalias 'rmail-show-mime #[0 "\306 	\307\310
!
>\203Yrq\210\311 \210\3121Q\313
!\210\n:\203=\307!\314\310!
>\2047\315\316\317D\"\210
\320H!)\321\n\203H\322\n!\202I\323\324\211#0\210\202X\325\326\"\211\266\203)\211;\205\231r\fq\210eb\210\327\330\307\324#\210\331y\210\332e`d#)rq\210\324\"\311 \210\333
!\210\334\f\331H\335H#\210*\321\336\324\211#\210\337\340\"\262
+\207" [rmail-buffer rmail-view-buffer rmail-mime-coding-system rmail-mime-view-buffer rmail-mime-mbox-buffer cl-struct-rmail-mime-entity-tags rmail-mime-parse nil type-of erase-buffer (error) rmail-mime-insert rmail-mime-find-header-encoding signal wrong-type-argument rmail-mime-entity 5 set-buffer-file-coding-system coding-system-base undecided t format "%s" re-search-forward "^$" 1 vector rmail-mime-insert-header insert-buffer-substring 2 no-conversion message "MIME decoding failed: %s" mm-charset-override-alist inhibit-read-only] 7 (#$ . 57363)])
(byte-code "\301\211\207" [rmail-show-mime-function rmail-show-mime] 2)
#@158 Insert the message in FORWARD-BUFFER as a forwarded message.
This is the usual value of `rmail-insert-mime-forwarded-message-function'.

(fn FORWARD-BUFFER)
(defalias 'rmail-insert-mime-forwarded-message #[257 "\303\211\211rq\210\203	\202\262\304\n!\262\305\n!\262
)\306#\207" [rmail-buffer-swapped rmail-view-buffer rmail-current-message nil rmail-msgbeg rmail-msgend message-forward-make-body-mime] 8 (#$ . 58450)])
(byte-code "\301\211\207" [rmail-insert-mime-forwarded-message-function rmail-insert-mime-forwarded-message] 2)
#@98 Function to set in `rmail-insert-mime-resent-message-function' (which see).

(fn FORWARD-BUFFER)
(defalias 'rmail-insert-mime-resent-message #[257 "\301r
q\210)!\210eb\210\302\303!\205\304y\210e`|\207" [rmail-view-buffer insert-buffer-substring looking-at "From " 1] 3 (#$ . 58999)])
(byte-code "\301\211\207" [rmail-insert-mime-resent-message-function rmail-insert-mime-resent-message] 2)
#@87 Function to set in `rmail-search-mime-message-function' (which see).

(fn MSG REGEXP)
(defalias 'rmail-search-mime-message #[514 "\214\305!\306!}\210\307p\n\212\310\311\312\313#\210`)\314 \315\316\307\"r\211q\210\317\320\"\216\321	\312#\210\322e`\"\210eb\210\310\312\307#*\262
\206\236\211\203\226\211;\204\226\323
!\f>\204X\324\325\326D\"\210\211\327H\330
A\236A\331\332@\"?\206r\211\205r\211\227\333\230?\266\202\203\226\315\316\307\"r\211q\210\317\334\"\216\335!\210eb\210\310\312\307#*\262
\202\236
b\210\310\312\307#+\266\202)\207" [rmail-mime-searching rmail-mime-mbox-buffer rmail-view-buffer rmail-mime-view-buffer cl-struct-rmail-mime-entity-tags rmail-msgbeg rmail-msgend t re-search-forward "^$" nil move rmail-mime-parse generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring rfc2047-decode-region type-of signal wrong-type-argument rmail-mime-entity 1 charset string-match "text/.*" "us-ascii" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] rmail-mime-insert] 9 (#$ . 59399)])
(byte-code "\301\302\303!\207" [rmail-search-mime-message-function rmail-search-mime-message provide rmailmm] 2)