1687 |
(delete-region (point) (search-backward ":")) |
(delete-region (point) (search-backward ":")) |
1688 |
(insert ": 8bit"))) |
(insert ": 8bit"))) |
1689 |
(if base64-header-field-end |
(if base64-header-field-end |
1690 |
(save-excursion |
(condition-case nil |
1691 |
(base64-decode-region (1+ header-end) |
(save-excursion |
1692 |
(- (point) 2)) |
(base64-decode-region (1+ header-end) |
1693 |
;; Change "base64" to "8bit", to reflect the |
(- (point) 2)) |
1694 |
;; decoding we just did. |
;; Change "base64" to "8bit", to reflect the |
1695 |
(goto-char (1+ header-end)) |
;; decoding we just did. |
1696 |
(while (search-forward "\r\n" (point-max) t) |
(goto-char (1+ header-end)) |
1697 |
(replace-match "\n")) |
(while (search-forward "\r\n" (point-max) t) |
1698 |
(goto-char base64-header-field-end) |
(replace-match "\n")) |
1699 |
(delete-region (point) (search-backward ":")) |
(goto-char base64-header-field-end) |
1700 |
(insert ": 8bit"))) |
(delete-region (point) (search-backward ":")) |
1701 |
|
(insert ": 8bit")) |
1702 |
|
(error nil))) |
1703 |
(setq last-coding-system-used nil) |
(setq last-coding-system-used nil) |
1704 |
(or rmail-enable-mime |
(or rmail-enable-mime |
1705 |
(not rmail-enable-multibyte) |
(not rmail-enable-multibyte) |
1829 |
(delete-region (point) (search-backward ":")) |
(delete-region (point) (search-backward ":")) |
1830 |
(insert ": 8bit"))) |
(insert ": 8bit"))) |
1831 |
(if base64-header-field-end |
(if base64-header-field-end |
1832 |
(save-excursion |
(condition-case nil |
1833 |
(base64-decode-region header-end (point)) |
(save-excursion |
1834 |
;; Change "base64" to "8bit", to reflect the |
(base64-decode-region header-end (point)) |
1835 |
;; decoding we just did. |
;; Change "base64" to "8bit", to reflect the |
1836 |
(goto-char base64-header-field-end) |
;; decoding we just did. |
1837 |
(delete-region (point) (search-backward ":")) |
(goto-char base64-header-field-end) |
1838 |
(insert ": 8bit")))) |
(delete-region (point) (search-backward ":")) |
1839 |
|
(insert ": 8bit")) |
1840 |
|
(error nil)))) |
1841 |
|
|
1842 |
(save-excursion |
(save-excursion |
1843 |
(save-restriction |
(save-restriction |