115 |
`lynx' : use lynx; |
`lynx' : use lynx; |
116 |
`html2text' : use html2text; |
`html2text' : use html2text; |
117 |
nil : use external viewer." |
nil : use external viewer." |
118 |
|
:version "21.4" |
119 |
:type '(choice (const w3) |
:type '(choice (const w3) |
120 |
(const w3m) |
(const w3m) |
121 |
(const w3m-standalone) |
(const w3m-standalone) |
124 |
(const html2text) |
(const html2text) |
125 |
(const nil) |
(const nil) |
126 |
(function)) |
(function)) |
|
:version "21.3" |
|
127 |
:group 'mime-display) |
:group 'mime-display) |
128 |
|
|
129 |
(defvar mm-inline-text-html-renderer nil |
(defvar mm-inline-text-html-renderer nil |
134 |
"If non-nil, Gnus will allow retrieving images in HTML contents with |
"If non-nil, Gnus will allow retrieving images in HTML contents with |
135 |
the <img> tags. It has no effect on Emacs/w3. See also the |
the <img> tags. It has no effect on Emacs/w3. See also the |
136 |
documentation for the `mm-w3m-safe-url-regexp' variable." |
documentation for the `mm-w3m-safe-url-regexp' variable." |
137 |
|
:version "21.4" |
138 |
:type 'boolean |
:type 'boolean |
139 |
:group 'mime-display) |
:group 'mime-display) |
140 |
|
|
281 |
"application/pdf" "application/x-dvi") |
"application/pdf" "application/x-dvi") |
282 |
"List of media types for which the external viewer will not be killed |
"List of media types for which the external viewer will not be killed |
283 |
when selecting a different article." |
when selecting a different article." |
284 |
|
:version "21.4" |
285 |
:type '(repeat string) |
:type '(repeat string) |
286 |
:group 'mime-display) |
:group 'mime-display) |
287 |
|
|
383 |
|
|
384 |
(defcustom mm-external-terminal-program "xterm" |
(defcustom mm-external-terminal-program "xterm" |
385 |
"The program to start an external terminal." |
"The program to start an external terminal." |
386 |
|
:version "21.4" |
387 |
:type 'string |
:type 'string |
388 |
:group 'mime-display) |
:group 'mime-display) |
389 |
|
|
416 |
"Option of verifying signed parts. |
"Option of verifying signed parts. |
417 |
`never', not verify; `always', always verify; |
`never', not verify; `always', always verify; |
418 |
`known', only verify known protocols. Otherwise, ask user." |
`known', only verify known protocols. Otherwise, ask user." |
419 |
|
:version "21.4" |
420 |
:type '(choice (item always) |
:type '(choice (item always) |
421 |
(item never) |
(item never) |
422 |
(item :tag "only known protocols" known) |
(item :tag "only known protocols" known) |
623 |
"Copy the contents of the current buffer to a fresh buffer." |
"Copy the contents of the current buffer to a fresh buffer." |
624 |
(save-excursion |
(save-excursion |
625 |
(let ((obuf (current-buffer)) |
(let ((obuf (current-buffer)) |
626 |
|
(multibyte enable-multibyte-characters) |
627 |
beg) |
beg) |
628 |
(goto-char (point-min)) |
(goto-char (point-min)) |
629 |
(search-forward-regexp "^\n" nil t) |
(search-forward-regexp "^\n" nil t) |
630 |
(setq beg (point)) |
(setq beg (point)) |
631 |
(set-buffer (generate-new-buffer " *mm*")) |
(set-buffer (generate-new-buffer " *mm*")) |
632 |
|
;; Preserve the data's unibyteness (for url-insert-file-contents). |
633 |
|
(set-buffer-multibyte multibyte) |
634 |
(insert-buffer-substring obuf beg) |
(insert-buffer-substring obuf beg) |
635 |
(current-buffer)))) |
(current-buffer)))) |
636 |
|
|
1489 |
|
|
1490 |
(provide 'mm-decode) |
(provide 'mm-decode) |
1491 |
|
|
1492 |
;;; arch-tag: 4f35d360-56b8-4030-9388-3ed82d359b9b |
;; arch-tag: 4f35d360-56b8-4030-9388-3ed82d359b9b |
1493 |
;;; mm-decode.el ends here |
;;; mm-decode.el ends here |