HOME


sh-3ll 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/gnus/
Upload File :
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/gnus/mm-partial.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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!\207" [require gnus-sum mm-util mm-decode] 2)
(defalias 'mm-partial-find-parts #[(id &optional art) "rq\210	)\306\211\f\211A\242\211\203y\n\307H
=\204\310\311!rq\210\312\216\313 \210\314\n\307H\"\210\315\306\316#\203u\317\306\"\306\211@:\203U\320!\210\202t\321A@A\236A\232\204o\320!\210\202tB*+\202+\207" [gnus-summary-buffer gnus-newsgroup-headers header phandles headers art nil 0 generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] mm-disable-multibyte gnus-request-article-this-buffer search-forward t mm-dissect-buffer mm-destroy-parts id #1# gnus-newsgroup-name gnus-article-loose-mime nid nhandles] 5])
#@194 Show the partial part of HANDLE.
This function replaces the buffer of HANDLE with a buffer contains
the entire message.
If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing.
(defalias 'mm-inline-partial #[(handle &optional no-display) "\306A@A\236A\307`\310\307\211\211\211\211\211\2113456\3118\204*\2041\312\313!\210\314\315r7q\210\316`\317\"\2118\203J\3208!\210)\316`\321\"\206T\322 )\"B\323\"6\32496\"9r\325\326!q\2106\211A6\242\2113\203\340\327\3303A@A\236A!\327\3313A@A\236A!\211\203\246\203\243\f=\204\246\312\332!\210\202\246\f
4W\204i
4=\204\272\312\3334\"\210\3343!\210db\210\335\307x\336=\204\330\337\340!\203\324\336\225b\210`d|\2104T4\202i\204\351\312\341!\2104X\203\367\312\3334\"\210\342@!\210eb\210\343\344\307\345#\203\f`S\202
d:eb\210\346\347:\345#\204\350c\210)p\240\210\311\233\345\240\210);?\205e\212\2145\211}\210\334!\210\3079\351\352!\210\353 \2109)\n\203T\3249\n\"9\354\233\355\307\356\357\360\361 \362 EEE\240*.\207" [handle buffer handles gnus-displaying-mime ntotal nn id nil 1 6 error "Can not find message/partial id" sort mm-partial-find-parts get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject #[(a b) "\304\305A@A\236A!\304\305	A@A\236A!\211\nW*\207" [a b bnumber anumber string-to-number number] 5] mm-merge-handles generate-new-buffer " *mm*" string-to-number number total "The numbers of total are different" "Missing part %d" mm-insert-part "
\n" 0 looking-at "
?\n" "Don't known the total number of" kill-buffer search-forward "\n\n" t re-search-forward "^mime-version:" "MIME-Version: 1.0\n" run-hooks gnus-article-decode-hook gnus-article-prepare-display 3 lambda let (buffer-read-only) delete-region point-min-marker point-max-marker phandle n b phandles gnus-summary-buffer to gnus-article-mime-handles point no-display] 12 (#$ . 1168)])
(provide 'mm-partial)