/[emacs]/emacs/lisp/gnus/mml.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mml.el

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

revision 1.21 by miles, Mon Oct 18 22:23:43 2004 UTC revision 1.22 by miles, Fri Jan 28 23:52:19 2005 UTC
# Line 1  Line 1 
1  ;;; mml.el --- A package for parsing and validating MML documents  ;;; mml.el --- A package for parsing and validating MML documents
2  ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003  ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
3  ;;        Free Software Foundation, Inc.  ;;        Free Software Foundation, Inc.
4    
5  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
# Line 472  If MML is non-nil, return the buffer up Line 472  If MML is non-nil, return the buffer up
472              (mm-with-unibyte-buffer              (mm-with-unibyte-buffer
473                (cond                (cond
474                 ((cdr (assq 'buffer cont))                 ((cdr (assq 'buffer cont))
475                  (insert-buffer-substring (cdr (assq 'buffer cont))))                  (insert (with-current-buffer (cdr (assq 'buffer cont))
476                              (mm-with-unibyte-current-buffer
477                                (buffer-string)))))
478                 ((and (setq filename (cdr (assq 'filename cont)))                 ((and (setq filename (cdr (assq 'filename cont)))
479                       (not (equal (cdr (assq 'nofile cont)) "yes")))                       (not (equal (cdr (assq 'nofile cont)) "yes")))
480                  (let ((coding-system-for-read mm-binary-coding-system))                  (let ((coding-system-for-read mm-binary-coding-system))

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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