[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el [emacs-unicode-2] |
Date: |
Tue, 21 Sep 2004 06:13:17 -0400 |
Index: emacs/lisp/gnus/mm-decode.el
diff -c emacs/lisp/gnus/mm-decode.el:1.13.6.2
emacs/lisp/gnus/mm-decode.el:1.13.6.3
*** emacs/lisp/gnus/mm-decode.el:1.13.6.2 Thu Sep 9 09:36:26 2004
--- emacs/lisp/gnus/mm-decode.el Tue Sep 21 09:34:08 2004
***************
*** 115,120 ****
--- 115,121 ----
`lynx' : use lynx;
`html2text' : use html2text;
nil : use external viewer."
+ :version "21.4"
:type '(choice (const w3)
(const w3m)
(const w3m-standalone)
***************
*** 123,129 ****
(const html2text)
(const nil)
(function))
- :version "21.3"
:group 'mime-display)
(defvar mm-inline-text-html-renderer nil
--- 124,129 ----
***************
*** 134,139 ****
--- 134,140 ----
"If non-nil, Gnus will allow retrieving images in HTML contents with
the <img> tags. It has no effect on Emacs/w3. See also the
documentation for the `mm-w3m-safe-url-regexp' variable."
+ :version "21.4"
:type 'boolean
:group 'mime-display)
***************
*** 280,285 ****
--- 281,287 ----
"application/pdf" "application/x-dvi")
"List of media types for which the external viewer will not be killed
when selecting a different article."
+ :version "21.4"
:type '(repeat string)
:group 'mime-display)
***************
*** 381,386 ****
--- 383,389 ----
(defcustom mm-external-terminal-program "xterm"
"The program to start an external terminal."
+ :version "21.4"
:type 'string
:group 'mime-display)
***************
*** 413,418 ****
--- 416,422 ----
"Option of verifying signed parts.
`never', not verify; `always', always verify;
`known', only verify known protocols. Otherwise, ask user."
+ :version "21.4"
:type '(choice (item always)
(item never)
(item :tag "only known protocols" known)
***************
*** 619,629 ****
--- 623,636 ----
"Copy the contents of the current buffer to a fresh buffer."
(save-excursion
(let ((obuf (current-buffer))
+ (multibyte enable-multibyte-characters)
beg)
(goto-char (point-min))
(search-forward-regexp "^\n" nil t)
(setq beg (point))
(set-buffer (generate-new-buffer " *mm*"))
+ ;; Preserve the data's unibyteness (for url-insert-file-contents).
+ (set-buffer-multibyte multibyte)
(insert-buffer-substring obuf beg)
(current-buffer))))
***************
*** 1482,1486 ****
(provide 'mm-decode)
! ;;; arch-tag: 4f35d360-56b8-4030-9388-3ed82d359b9b
;;; mm-decode.el ends here
--- 1489,1493 ----
(provide 'mm-decode)
! ;; arch-tag: 4f35d360-56b8-4030-9388-3ed82d359b9b
;;; mm-decode.el ends here