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> |
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)) |