1 |
;;; mm-bodies.el --- Functions for decoding MIME things |
;;; mm-bodies.el --- Functions for decoding MIME things |
2 |
|
|
3 |
;; Copyright (C) 1998, 1999, 2000, 2001, 2003 |
;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
91 |
(mm-encode-coding-region (point-min) (point-max) charset) |
(mm-encode-coding-region (point-min) (point-max) charset) |
92 |
charset) |
charset) |
93 |
(goto-char (point-min)) |
(goto-char (point-min)) |
94 |
(let ((charsets (mm-find-mime-charset-region (point-min) (point-max) |
(let ((charsets (mm-find-mime-charset-region (point-min) (point-max)))) |
|
mm-hack-charsets))) |
|
95 |
(cond |
(cond |
96 |
;; No encoding. |
;; No encoding. |
97 |
((null charsets) |
((null charsets) |