/[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.375 by eliz, Thu Oct 16 16:54:48 2003 UTC revision 1.376 by eliz, Mon Nov 3 19:20:23 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 1827  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

Legend:
Removed from v.1.375  
changed lines
  Added in v.1.376

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