/[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.16 by miles, Mon Sep 20 12:03:04 2004 UTC revision 1.17 by monnier, Mon Sep 20 21: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))
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    
# Line 1486  If RECURSIVE, search recursively." Line 1489  If RECURSIVE, search recursively."
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

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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