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> |
139 |
(cond |
(cond |
140 |
((and (not longp) |
((and (not longp) |
141 |
(not (and mm-use-ultra-safe-encoding |
(not (and mm-use-ultra-safe-encoding |
142 |
(save-excursion (re-search-forward "^From " nil t)))) |
(or (save-excursion (re-search-forward " $" nil t)) |
143 |
|
(save-excursion (re-search-forward "^From " nil t))))) |
144 |
(eq bits '7bit)) |
(eq bits '7bit)) |
145 |
bits) |
bits) |
146 |
((and (not mm-use-ultra-safe-encoding) |
((and (not mm-use-ultra-safe-encoding) |