/[emacs]/emacs/lisp/gnus/mm-decode.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-decode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13.6.3 by miles, Tue Sep 21 09:34:08 2004 UTC revision 1.13.6.4 by miles, Wed Sep 29 07:22:15 2004 UTC
# Line 623  Postpone undisplaying of viewers for typ Line 623  Postpone undisplaying of viewers for typ
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))
           (multibyte enable-multibyte-characters)  
626            beg)            beg)
627        (goto-char (point-min))        (goto-char (point-min))
628        (search-forward-regexp "^\n" nil t)        (search-forward-regexp "^\n" nil t)
629        (setq beg (point))        (setq beg (point))
630        (set-buffer (generate-new-buffer " *mm*"))        (set-buffer
631        ;; Preserve the data's unibyteness (for url-insert-file-contents).         ;; Preserve the data's unibyteness (for url-insert-file-contents).
632        (set-buffer-multibyte multibyte)         (let ((default-enable-multibyte-characters (mm-multibyte-p)))
633             (generate-new-buffer " *mm*")))
634        (insert-buffer-substring obuf beg)        (insert-buffer-substring obuf beg)
635        (current-buffer))))        (current-buffer))))
636    

Legend:
Removed from v.1.13.6.3  
changed lines
  Added in v.1.13.6.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26