/[emacs]/emacs/lisp/mail/rmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.360.2.2 by miles, Tue Oct 14 23:39:25 2003 UTC revision 1.360.2.3 by miles, Fri Nov 21 00:36:08 2003 UTC
# Line 1687  It returns t if it got any new messages. Line 1687  It returns t if it got any new messages.
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)
# Line 1727  It returns t if it got any new messages. Line 1729  It returns t if it got any new messages.
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))
# Line 1752  It returns t if it got any new messages. Line 1756  It returns t if it got any new messages.
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")
# Line 1823  It returns t if it got any new messages. Line 1829  It returns t if it got any new messages.
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
# Line 1858  It returns t if it got any new messages. Line 1866  It returns t if it got any new messages.
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

Legend:
Removed from v.1.360.2.2  
changed lines
  Added in v.1.360.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26