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) |
1729 |
(insert "X-Coding-System: " |
(insert "X-Coding-System: " |
1730 |
(symbol-name last-coding-system-used) |
(symbol-name last-coding-system-used) |
1731 |
"\n"))) |
"\n"))) |
1732 |
(narrow-to-region (point) (point-max))) |
(narrow-to-region (point) (point-max)) |
1733 |
|
(and (= 0 (% count 10)) |
1734 |
|
(message "Converting to Babyl format...%d" count))) |
1735 |
;;*** MMDF format |
;;*** MMDF format |
1736 |
((let ((case-fold-search t)) |
((let ((case-fold-search t)) |
1737 |
(looking-at rmail-mmdf-delim1)) |
(looking-at rmail-mmdf-delim1)) |
1756 |
(symbol-name last-coding-system-used) |
(symbol-name last-coding-system-used) |
1757 |
"\n")) |
"\n")) |
1758 |
(narrow-to-region (point) (point-max)) |
(narrow-to-region (point) (point-max)) |
1759 |
(setq count (1+ count))) |
(setq count (1+ count)) |
1760 |
|
(and (= 0 (% count 10)) |
1761 |
|
(message "Converting to Babyl format...%d" count))) |
1762 |
;;*** Mail format |
;;*** Mail format |
1763 |
((looking-at "^From ") |
((looking-at "^From ") |
1764 |
(insert "\^L\n0, unseen,,\n*** EOOH ***\n") |
(insert "\^L\n0, unseen,,\n*** EOOH ***\n") |
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 |
1866 |
(insert "X-Coding-System: " |
(insert "X-Coding-System: " |
1867 |
(symbol-name last-coding-system-used) |
(symbol-name last-coding-system-used) |
1868 |
"\n")) |
"\n")) |
1869 |
(narrow-to-region (point) (point-max))) |
(narrow-to-region (point) (point-max)) |
1870 |
|
(and (= 0 (% count 10)) |
1871 |
|
(message "Converting to Babyl format...%d" count))) |
1872 |
;; |
;; |
1873 |
;; This kludge is because some versions of sendmail.el |
;; This kludge is because some versions of sendmail.el |
1874 |
;; insert an extra newline at the beginning that shouldn't |
;; insert an extra newline at the beginning that shouldn't |