Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
.dir-locals.el	105 B	-rw-r--r--
canlock.elc	5.71 KB	-rw-r--r--
deuglify.elc	7.85 KB	-rw-r--r--
gmm-utils.elc	5.79 KB	-rw-r--r--
gnus-agent.elc	119.17 KB	-rw-r--r--
gnus-art.elc	262.11 KB	-rw-r--r--
gnus-async.elc	11.71 KB	-rw-r--r--
gnus-bcklg.elc	2.85 KB	-rw-r--r--
gnus-bookmark.elc	25.33 KB	-rw-r--r--
gnus-cache.elc	24.08 KB	-rw-r--r--
gnus-cite.elc	26.28 KB	-rw-r--r--
gnus-cloud.elc	18.45 KB	-rw-r--r--
gnus-cus.elc	39.5 KB	-rw-r--r--
gnus-delay.elc	4.61 KB	-rw-r--r--
gnus-demon.elc	7.52 KB	-rw-r--r--
gnus-diary.elc	8.41 KB	-rw-r--r--
gnus-dired.elc	8.03 KB	-rw-r--r--
gnus-draft.elc	12.03 KB	-rw-r--r--
gnus-dup.elc	4.59 KB	-rw-r--r--
gnus-eform.elc	4.76 KB	-rw-r--r--
gnus-fun.elc	9.93 KB	-rw-r--r--
gnus-gravatar.elc	4.15 KB	-rw-r--r--
gnus-group.elc	154.92 KB	-rw-r--r--
gnus-html.elc	13.41 KB	-rw-r--r--
gnus-icalendar.elc	40.93 KB	-rw-r--r--
gnus-int.elc	58.83 KB	-rw-r--r--
gnus-kill.elc	19.24 KB	-rw-r--r--
gnus-logic.elc	5.15 KB	-rw-r--r--
gnus-mh.elc	2.96 KB	-rw-r--r--
gnus-ml.elc	6.08 KB	-rw-r--r--
gnus-mlspl.elc	6.48 KB	-rw-r--r--
gnus-msg.elc	84.49 KB	-rw-r--r--
gnus-notifications.elc	5.38 KB	-rw-r--r--
gnus-picon.elc	8.06 KB	-rw-r--r--
gnus-range.elc	11.97 KB	-rw-r--r--
gnus-registry.elc	34.53 KB	-rw-r--r--
gnus-rfc1843.elc	1.59 KB	-rw-r--r--
gnus-salt.elc	27.54 KB	-rw-r--r--
gnus-score.elc	74.27 KB	-rw-r--r--
gnus-sieve.elc	8.14 KB	-rw-r--r--
gnus-spec.elc	12.88 KB	-rw-r--r--
gnus-srvr.elc	50.09 KB	-rw-r--r--
gnus-start.elc	138.21 KB	-rw-r--r--
gnus-sum.elc	431.26 KB	-rw-r--r--
gnus-topic.elc	46.53 KB	-rw-r--r--
gnus-undo.elc	4.69 KB	-rw-r--r--
gnus-util.elc	49.29 KB	-rw-r--r--
gnus-uu.elc	55.9 KB	-rw-r--r--
gnus-vm.elc	2.42 KB	-rw-r--r--
gnus-win.elc	10.95 KB	-rw-r--r--
gnus.elc	158.84 KB	-rw-r--r--
gssapi.elc	2.27 KB	-rw-r--r--
legacy-gnus-agent.elc	6.35 KB	-rw-r--r--
mail-source.elc	28.21 KB	-rw-r--r--
message.elc	237.92 KB	-rw-r--r--
mm-archive.elc	2.95 KB	-rw-r--r--
mm-bodies.elc	5.84 KB	-rw-r--r--
mm-decode.elc	55.66 KB	-rw-r--r--
mm-encode.elc	6.13 KB	-rw-r--r--
mm-extern.elc	4.25 KB	-rw-r--r--
mm-partial.elc	3.05 KB	-rw-r--r--
mm-url.elc	9.75 KB	-rw-r--r--
mm-util.elc	24.33 KB	-rw-r--r--
mm-uu.elc	21.99 KB	-rw-r--r--
mm-view.elc	16.82 KB	-rw-r--r--
mml-sec.elc	35.2 KB	-rw-r--r--
mml-smime.elc	10.44 KB	-rw-r--r--
mml.elc	44.72 KB	-rw-r--r--
mml1991.elc	7.59 KB	-rw-r--r--
mml2015.elc	25.61 KB	-rw-r--r--
nnagent.elc	10.44 KB	-rw-r--r--
nnbabyl.elc	16.84 KB	-rw-r--r--
nndiary.elc	38.56 KB	-rw-r--r--
nndir.elc	2.67 KB	-rw-r--r--
nndoc.elc	30.1 KB	-rw-r--r--
nndraft.elc	10.55 KB	-rw-r--r--
nneething.elc	11.45 KB	-rw-r--r--
nnfolder.elc	32.39 KB	-rw-r--r--
nngateway.elc	2.88 KB	-rw-r--r--
nnheader.elc	34.72 KB	-rw-r--r--
nnimap.elc	73.06 KB	-rw-r--r--
nnir.elc	62.86 KB	-rw-r--r--
nnmail.elc	52.09 KB	-rw-r--r--
nnmaildir.elc	90.83 KB	-rw-r--r--
nnmairix.elc	72.33 KB	-rw-r--r--
nnmbox.elc	18.57 KB	-rw-r--r--
nnmh.elc	15.14 KB	-rw-r--r--
nnml.elc	33.63 KB	-rw-r--r--
nnnil.elc	1.63 KB	-rw-r--r--
nnoo.elc	8.63 KB	-rw-r--r--
nnregistry.elc	1.72 KB	-rw-r--r--
nnrss.elc	29.02 KB	-rw-r--r--
nnspool.elc	15.72 KB	-rw-r--r--
nntp.elc	111.69 KB	-rw-r--r--
nnvirtual.elc	18.31 KB	-rw-r--r--
nnweb.elc	16.67 KB	-rw-r--r--
score-mode.elc	4.93 KB	-rw-r--r--
smiley.elc	5.31 KB	-rw-r--r--
smime.elc	18.76 KB	-rw-r--r--
spam-report.elc	11.41 KB	-rw-r--r--
spam-stat.elc	19.39 KB	-rw-r--r--
spam-wash.elc	1.23 KB	-rw-r--r--
spam.elc	80.84 KB	-rw-r--r--

Code Editor : mm-view.elc

;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\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\310\317\316\"\210\310\320\321\"\210\310\322\323\324\325$\207" [require cl-lib mail-parse mailcap mm-bodies mm-decode smime mml-smime autoload gnus-completing-read "gnus-util" gnus-article-prepare-display "gnus-art" vcard-parse-string "vcard" vcard-format-string fill-flowed "flow-fill" html2text "html2text" nil t] 5)
#@49 The attributes of renderer types for text/html.
(defvar mm-text-html-renderer-alist '((shr . mm-shr) (w3m . mm-inline-text-html-render-with-w3m) (w3m-standalone . mm-inline-text-html-render-with-w3m-standalone) (gnus-w3m . gnus-article-html) (links mm-inline-render-with-file mm-links-remove-leading-blank "links" "-dump" file) (lynx mm-inline-render-with-stdin nil "lynx" "-dump" "-force_html" "-stdin" "-nolist") (html2text mm-inline-render-with-function html2text)) (#$ . 884))
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\315\306\316\310\311&	\210\317\320\321\"\207" [custom-declare-variable mm-fill-flowed t "If non-nil a format=flowed article will be displayed flowed." :type boolean :version "22.1" :group mime-display mm-inline-large-images-proportion 0.9 "Maximum proportion large images can occupy in the buffer.\nThis is only used if `mm-inline-large-images' is set to\n`resize'." float "24.1" autoload gnus-rescale-image "gnus-util"] 10)
(defalias 'mm-inline-image #[(handle) "\306 \307\310\311\n!\f\312=\2035�\313\314\315p!!\316\317
8
@Z_!\316\320
8
A@Z_!)B\"\2026�)	\"\210\321c\210\320\n\233\322\323\324\301	D\325B\326BBE\240*\207" [inhibit-read-only b handle image mm-inline-large-images edges point-marker t put-image mm-get-image resize gnus-rescale-image window-inside-pixel-edges get-buffer-window truncate 2 3 "\n" lambda nil let ((inhibit-read-only t)) ((remove-images b b) (delete-region b (1+ b))) mm-inline-large-images-proportion] 8])
#@60 Whether gnus-article-mode has been setup to use emacs-w3m.
(defvar mm-w3m-setup nil (#$ . 2394))
#@43 Setup gnus-article-mode to use emacs-w3m.
(defalias 'mm-setup-w3m #[nil "\204�\304\305!\210\306	\236\204�\306\307B	B\310\n?\211\207" [mm-w3m-setup w3m-cid-retrieve-function-alist mm-html-inhibit-images w3m-display-inline-images require w3m gnus-article-mode mm-w3m-cid-retrieve t] 2 (#$ . 2497)])
(defalias 'mm-w3m-cid-retrieve-1 #[(url handle) "\304\211\205g�\n@\211:\203_�\305	8\232\2034�\306	!\210\307\310	\211@;\203,�\211@\262\2022�\211A@@\262\"\210	@;\203_�	\311\211@;\203J�\211@\262\202P�\211A@@\262\312\"@\262\313\232\203_�\314	\"\210\nA\211\204�\304*\207" [handle elem --dolist-tail-- url nil 7 mm-insert-part throw found-handle split-string "/" "multipart" mm-w3m-cid-retrieve-1] 5])
#@60 Insert a content pointed by URL if it has the cid: scheme.
(defalias 'mm-w3m-cid-retrieve #[(url &rest args) "\303\304\"\205'�\3052�\306\307\310\311\225\"\312Q\211r	q\210\n)\"0\206'�\313\314\315\"\210\207" [url w3m-current-buffer gnus-article-mime-handles string-match "\\`cid:" found-handle mm-w3m-cid-retrieve-1 "<" substring 0 ">" nil message "Failed to find \"Content-ID: %s\""] 5 (#$ . 3216)])
#@42 Render a text/html part using emacs-w3m.
(defalias 'mm-inline-text-html-render-with-w3m #[(handle) "\306 \210\307!`\310A@\302\"\206�	\212\n\203 �\311\f\n\"\202!�\fc\210\214`}\210\n\204@�eb\210\312 \211\203@�ed|\210\311\f\n\"c\210
\313!\"\314ed\313\n$\210*\315ed\316\317$\210#\203\347�\320\321!\203\347�\203\347�\320\322!\203\337�\203\337�e$d%\323$\324\"&\325!'\313(\326'\"\210$%W\203\333�&\203\266�\327$%\324\313$\206\247�%(\315$(\330'$\210\202\317�\331$%\324\313$\206\303�%(\315$(\330$\210($&?&\202\215�-\202\347�\315ed\330$\210\332\233\333\313\334\335\336\337 \340 EEE\240-\207" [handle mail-parse-charset charset b text mm-w3m-safe-url-regexp mm-setup-w3m mm-get-part mail-content-type-get mm-decode-string w3m-detect-meta-charset nil w3m-region put-text-property mm-inline-text-html-with-w3m t boundp w3m-minor-mode-map w3m-link-map get-text-property w3m-href-anchor copy-keymap set-keymap-parent text-property-any keymap text-property-not-all 3 lambda let ((inhibit-read-only t)) delete-region point-min-marker point-max-marker w3m-force-redisplay w3m-safe-url-regexp mm-inline-text-html-with-w3m-keymap start end on map next] 8 (#$ . 3626)])
#@52 T means the w3m command supports the m17n feature.
(custom-declare-variable 'mm-w3m-standalone-supports-m17n-p ''undecided '(#$ . 4831) :type '(choice (const nil) (const t) (other :tag "detect" undecided)) :group 'mime-display)
#@56 Say whether the w3m command supports the m17n feature.
(defalias 'mm-w3m-standalone-supports-m17n-p #[nil "\305\267\202\n�\306\207\307\207\3101F�\311\211\312\313\311\"\314\315!r\fq\210\316\216\317 \210	c\210\320ed\321\306\211\307\322\323\324\325\326\327\326&
\210eb\210\330	\307\306#.0\202J�\210\202Q�\203Q�\306\211\207\307\211\207" [mm-w3m-standalone-supports-m17n-p str coding-system-for-read coding-system-for-write #1=#:temp-buffer #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 6 nil 8)) t nil (error) iso-2022-jp decode-coding-string "$B#D#o#e#s!!#w#3#m!!#s#u#p#p#o#r#t!!#m#1#7#n!)(B" generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] mm-enable-multibyte call-process-region "w3m" "-dump" "-T" "text/html" "-I" "iso-2022-jp" "-O" search-forward] 14 (#$ . 5065)])
#@36 Render a text/html part using w3m.
(defalias 'mm-inline-text-html-render-with-w3m-standalone #[(handle) "\306 \203m�\307!\310A@\303\"\206�\311	!\312\2036�\313\312\314#\211\2036�\n\315=\2046�\316\317\320\n!\"\202:�\321\322\323\324\325!r
q\210\326\216\327 \210\fc\210\330 \210\331\n#$\332ed\333\314\211\312\334\335\336\337\340&
\210*\341 +\"+\207\342\312\333\334\335\336&\207" [handle mail-parse-charset cs charset source #1=#:temp-buffer mm-w3m-standalone-supports-m17n-p mm-get-part mail-content-type-get symbol-name nil mm-charset-to-coding-system t ascii format "%s" mm-coding-system-to-mime-charset "iso-8859-1" iso-8859-1 mm-insert-inline generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte mm-enable-multibyte binary call-process-region "w3m" "-dump" "-T" "text/html" "-I" "-O" buffer-string mm-inline-render-with-stdin coding-system-for-read coding-system-for-write] 16 (#$ . 5935)])
(defalias 'mm-links-remove-leading-blank #[nil "eb\210\300\301\302\303#\205�\304\224\304\225|\210\202�\207" [re-search-forward "^   " nil t 0] 4])
(defalias 'mm-inline-wash-with-file #[(post-func cmd &rest args) "\306\307\310\"!\311\312ed	\313\314%\210)ed|\210\315\216\316\317\313\320\313\321\322\f\"&\210)
\205,�
 )\207" [mm-tmp-directory file coding-system-for-write cmd args post-func make-temp-file expand-file-name "mm" binary write-region nil silent #[nil "\301!\207" [file delete-file] 2] apply call-process t mapcar eval] 9])
(defalias 'mm-inline-wash-with-stdin #[(post-func cmd &rest args) "\304\305\306ed	\307\211\310\n&\210)\205� \207" [coding-system-for-write cmd args post-func binary apply call-process-region t nil] 9])
(defalias 'mm-inline-render-with-file #[(handle post-func cmd &rest args) "\306!\307\310\311!r\nq\210\312\216\313 \210	c\210\314\315\f
$\210\316 +\")\207" [handle source #1=#:temp-buffer post-func cmd args mm-get-part mm-insert-inline generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte apply mm-inline-wash-with-file buffer-string] 7])
(defalias 'mm-inline-render-with-stdin #[(handle post-func cmd &rest args) "\306!\307\310\311!r\nq\210\312\216\313 \210	c\210\314\315\f
$\210\316 +\")\207" [handle source #1=#:temp-buffer post-func cmd args mm-get-part mm-insert-inline generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte apply mm-inline-wash-with-stdin buffer-string] 7])
(defalias 'mm-inline-render-with-function #[(handle func &rest args) "\306!\307A@\302\"\206
�	\310\311\312!r\fq\210\313\216\314 \210\n\203)�\315\n\"\202*�c\210\316
\"\210\317 +\"*\207" [handle mail-parse-charset charset source #1=#:temp-buffer func mm-get-part mail-content-type-get mm-insert-inline generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] mm-enable-multibyte mm-decode-string apply buffer-string args] 5])
(defalias 'mm-inline-text-html #[(handle) "@;\203\f�\306\307A\"\207	\211\236\310\f\203�\fA\n\204(�\311\312!\"\202;�\313\n!\2034�\n!\202;�\314\n@\nA#+\207" [handle mm-text-html-renderer func mm-text-html-renderer-alist entry inhibit-read-only mapcar mm-inline-text-html t mm-insert-inline mm-get-part functionp apply] 5])
(defalias 'mm-inline-text-vcard #[(handle) "\302\303	\304\3051#�\306\307!\203�\307\310	!!\202�\311\312\310	!\313\"!0\202%�\210\314P\")\207" [inhibit-read-only handle t mm-insert-inline "\n-- \n" (error) fboundp vcard-pretty-print mm-get-part vcard-format-string vcard-parse-string vcard-standard-filter nil] 7])
(defalias 'mm-inline-text #[(handle) "`\306\211@;\203�\211@\262\202�\211A@@\262\307\"A@\262\310A@\302\"\311\n\312=\2044�
\312=\203D�\214``}\210\313!\210db\210)\202H�\314!\210\"\203y�\315\232\203y�\316\317A@\"A\320\232\203y�\214\f`}\210\fb\210\321\322\323\316\324A@\"A\325\"\"\210db\210)\214\f`}\210\326\235\203\233�\327ed\322#\210\3301\226�\331ed\"0\202\232�\210\202\233�\210\332\233edU\203\250�\333\202\266�\334\322\335\336\337\340e\311\"\341 EEE\240-\207" [handle inhibit-read-only charset type b mail-parse-charset split-string "/" mail-content-type-get t gnus-decoded mm-insert-part mm-display-inline-fontify "plain" assoc format "flowed" fill-flowed nil cl-equalp delsp "yes" ("enriched" "richtext") set-text-properties (error) enriched-decode 3 ignore lambda let ((inhibit-read-only t)) delete-region copy-marker point-max-marker mm-fill-flowed] 9])
#@33 Insert TEXT inline from HANDLE.
(defalias 'mm-insert-inline #[(handle text) "`	c\210n\204\f�\303c\210\304\n\233\305\306\307\310\311\312\313\"\314 EEE\240)\207" [b text handle "\n" 3 lambda nil let ((inhibit-read-only t)) delete-region copy-marker t point-marker] 9 (#$ . 10470)])
(defalias 'mm-inline-audio #[(handle) "\300\301!\207" [message "Not implemented"] 2])
(defalias 'mm-view-message #[nil "\302 \210\303\211\304\305!\210\306 \210	)\203�\307	\")\310 \210eb\207" [handles gnus-article-mime-handles mm-enable-multibyte nil run-hooks gnus-article-decode-hook gnus-article-prepare-display mm-merge-handles fundamental-mode] 4])
(defalias 'mm-inline-message #[(handle) "`n\306A@\303\"\307\211\203%�;\203%�\310\227!\211\311=\203%�\307\212\214
\211}\210\312!\210\307\211\313=?\205>�\206>�@\314\315!\210)\316 \210+eb\210\f\204^�\317c\210db\210n\204h�\317c\210\320c\210	\203v�\321	\"\322\233\323\307\324\325\326\327 \330 EEE\240.\207" [handle handles gnus-displaying-mime charset bolp b mail-content-type-get nil intern us-ascii mm-insert-part gnus-decoded run-hooks gnus-article-decode-hook gnus-article-prepare-display "\n" "----------\n\n" mm-merge-handles 3 lambda let ((inhibit-read-only t)) delete-region point-min-marker point-max-marker gnus-newsgroup-charset gnus-article-prepare-hook gnus-article-mime-handles gnus-original-article-buffer] 9])
#@96 Insert HANDLE inline fontifying with MODE.
If MODE is not set, try to find mode automatically.
(defalias 'mm-display-inline-fontify #[(handle &optional mode) "\306A@\304\"\307\211\211\211\310=\2047�\311\312!r
q\210\313\216\314 \210\315!\210\316\317!\320\211#\210\f\2043�\321 \322 +\311\312!0r0q\210\323\216\324 \210\325 \210\3201\f\310=\203]�r@q\210\322 )\202p�\n\203h�\326\n\"\202p�\327\f\206o�\330\"c\210\307\21123\331\332!\210\307\317!4\3331\306�5\203\233�\334 6\335\2165 \210*\202\270�\336\337\3407\"\3417!\"7\331\342!\210\320\"\343 \210)85)8\344=?\205\302�\345 0\202\316�9\346\3479\")\210*\322 5\350=\203\342�\351\352\353ed\"\"\354\307!\210+`\214~\210e)Z:\355\"\210	\307;\211<\205#<@;\356;@;A@:\\\357;8:\\p$\210<A\211<\204\377�\307.\207" [handle ovs coding-system text charset #1=#:temp-buffer mail-content-type-get nil gnus-decoded generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte mm-insert-part mm-decompress-buffer mm-handle-filename t mm-find-buffer-file-coding-system buffer-string #[nil "\301!\205	�\302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] buffer-disable-undo mm-enable-multibyte decode-coding-string mm-decode-string undecided make-local-variable font-lock-mode-hook (debug error) current-window-configuration #[nil "\301!\207" [#3=#:wconfig set-window-configuration] 2] delq rassq doc-view-mode-maybe copy-sequence delay-mode-hooks set-auto-mode fundamental-mode font-lock-ensure message "Error: %S" diff-mode mapcar #[(ov) "\301!\302!E\207" [ov overlay-start overlay-end] 4] overlays-in set-buffer-modified-p mm-insert-inline move-overlay 2 #2# untrusted-content enable-local-variables font-lock-verbose buffer-file-name mode #3# auto-mode-alist major-mode #4=#:err b ov --dolist-tail--] 6 (#$ . 11873)])
(defalias 'mm-display-patch-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify diff-mode] 3])
(defalias 'mm-display-elisp-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify emacs-lisp-mode] 3])
(defalias 'mm-display-dns-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify dns-mode] 3])
#@43 Show an Org mode text from HANDLE inline.
(defalias 'mm-display-org-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify org-mode] 3 (#$ . 14081)])
#@41 Show a shell script from HANDLE inline.
(defalias 'mm-display-shell-script-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify shell-script-mode] 3 (#$ . 14252)])
#@42 Show JavsScript code from HANDLE inline.
(defalias 'mm-display-javascript-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify javascript-mode] 3 (#$ . 14439)])
(defvar mm-pkcs7-signed-magic "0\$\\(\200\$\\|\$\201\\(.\\|\n\$\\{1\\}\\)\\|\$\202\\(.\\|\n\$\\{2\\}\\)\\|\$\203\\(.\\|\n\$\\{3\\}\\)\\)	\\*\206H\206\367
")
(defvar mm-pkcs7-enveloped-magic "0\$\\(\200\$\\|\$\201\\(.\\|\n\$\\{1\\}\\)\\|\$\202\\(.\\|\n\$\\{2\\}\\)\\|\$\203\\(.\\|\n\$\\{3\\}\\)\\)	\\*\206H\206\367
")
(defalias 'mm-view-pkcs7-get-type #[(handle) "\304\305!rq\210\306\216\307 \210\310	!\210\311\n!\203�\312\202(�\311!\203%�\313\202(�\314\315!+\207" [#1=#:temp-buffer handle mm-pkcs7-enveloped-magic mm-pkcs7-signed-magic generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte mm-insert-part looking-at enveloped signed error "Could not identify PKCS#7 type"] 2])
(defalias 'mm-view-pkcs7 #[(handle &optional from) "\303!\211\304\267\202�\305\n\"\202�\306!\202�\307\310!)\207" [handle #1=#:temp from mm-view-pkcs7-get-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (enveloped 10 signed 17)) mm-view-pkcs7-decrypt mm-view-pkcs7-verify error "Unknown or unimplemented PKCS#7 type"] 4])
(defalias 'mm-view-pkcs7-verify #[(handle) "\306	\307=\203+�\310\311!r\nq\210\312\216\313@!\210eb\210\314\315 !\316\317\320!\f\",c\210\202X�\310\311!r
q\210\321\216\322c\210\323\324\325\326#\210\313@!\210\327ed\"+\203S�c\210\202X�\313!\210)\330\207" [verified mml-smime-use #1=#:temp-buffer handle part #2=#:temp-buffer nil epg generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] insert-buffer-substring base64-decode-string buffer-string epg-verify-string epg-make-context CMS #[nil "\301!\205	�\302!\207" [#2# buffer-name kill-buffer] 2] "MIME-Version: 1.0\n" mm-insert-headers "application/pkcs7-mime" "base64" "smime.p7m" smime-verify-region t smime-details-buffer] 4])
(autoload 'epg-decrypt-string "epg")
(defalias 'mm-view-pkcs7-decrypt #[(handle &optional from) "\305@!\210eb\210	\306=\203\"�\307\310 !\311 \210\312\313\314!\n\"c\210)\202L�\315c\210\316\317\320\321#\210\322edG\323U\203<�@A@\202I�\324\325\326\327\211\211\242\242&!\f$\210eb\210\330\331\327\332#\203^�\333\334!\210\202O�eb\207" [handle mml-smime-use part smime-keys from insert-buffer-substring epg base64-decode-string buffer-string erase-buffer epg-decrypt-string epg-make-context CMS "MIME-Version: 1.0\n" mm-insert-headers "application/pkcs7-mime" "base64" "smime.p7m" smime-decrypt-region 1 smime-get-key-by-email gnus-completing-read "Decipher using key" nil search-forward "
\n" t replace-match "\n"] 11])
(provide 'mm-view)

${this.title}

Code Editor : mm-view.elc