[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el [lexbind]

[Miles Bader]

Index: emacs/lisp/gnus/mm-decode.el
diff -c emacs/lisp/gnus/mm-decode.el:1.12.2.3 
emacs/lisp/gnus/mm-decode.el:1.12.2.4
*** emacs/lisp/gnus/mm-decode.el:1.12.2.3       Thu Sep 16 00:12:16 2004
--- emacs/lisp/gnus/mm-decode.el        Wed Oct  6 05:21:53 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