[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el |
Date: |
Thu, 28 Aug 2003 11:11:15 -0400 |
Index: emacs/lisp/mail/rmail.el
diff -c emacs/lisp/mail/rmail.el:1.371 emacs/lisp/mail/rmail.el:1.372
*** emacs/lisp/mail/rmail.el:1.371 Wed May 14 20:01:00 2003
--- emacs/lisp/mail/rmail.el Thu Aug 28 11:11:15 2003
***************
*** 1652,1663 ****
(save-excursion
(skip-chars-forward " \t\n")
(point)))
! (setq last-coding-system-used nil)
! (or rmail-enable-mime
! (not rmail-enable-multibyte)
! (decode-coding-region start (point)
! (or rmail-file-coding-system
! 'undecided)))
;; Add an X-Coding-System: header if we don't have one.
(save-excursion
(goto-char start)
--- 1652,1717 ----
(save-excursion
(skip-chars-forward " \t\n")
(point)))
! (save-excursion
! (let* ((header-end
! (progn
! (save-excursion
! (goto-char start)
! (forward-line 1)
! (if (looking-at "0")
! (forward-line 1)
! (forward-line 2))
! (save-restriction
! (narrow-to-region (point) (point-max))
! (rfc822-goto-eoh)
! (point)))))
! (case-fold-search t)
! (quoted-printable-header-field-end
! (save-excursion
! (goto-char start)
! (re-search-forward
! "^content-transfer-encoding:\\(\n?[\t
]\\)*quoted-printable\\(\n?[\t ]\\)*"
! header-end t)))
! (base64-header-field-end
! (save-excursion
! (goto-char start)
! (re-search-forward
! "^content-transfer-encoding:\\(\n?[\t
]\\)*base64\\(\n?[\t ]\\)*"
! header-end t))))
! (if quoted-printable-header-field-end
! (save-excursion
! (rmail-decode-quoted-printable header-end (point))
! ;; Change "quoted-printable" to "8bit",
! ;; to reflect the decoding we just did.
! (goto-char quoted-printable-header-field-end)
! (delete-region (point) (search-backward ":"))
! (insert ": 8bit")))
! (if base64-header-field-end
! (save-excursion
! (base64-decode-region (1+ header-end)
! (- (point) 2))
! ;; Change "base64" to "8bit", to reflect the
! ;; decoding we just did.
! (goto-char (1+ header-end))
! (while (search-forward "\r\n" (point-max) t)
! (replace-match "\n"))
! (goto-char base64-header-field-end)
! (delete-region (point) (search-backward ":"))
! (insert ": 8bit")))
! (setq last-coding-system-used nil)
! (or rmail-enable-mime
! (not rmail-enable-multibyte)
! (let ((mime-charset
! (if (and rmail-decode-mime-charset
! (save-excursion
! (goto-char start)
! (search-forward "\n\n" nil t)
! (let ((case-fold-search t))
! (re-search-backward
! rmail-mime-charset-pattern
! start t))))
! (intern (downcase (match-string 1))))))
! (rmail-decode-region start (point) mime-charset)))))
;; Add an X-Coding-System: header if we don't have one.
(save-excursion
(goto-char start)
***************
*** 1714,1719 ****
--- 1768,1778 ----
(re-search-forward
"^content-transfer-encoding:\\(\n?[\t
]\\)*quoted-printable\\(\n?[\t ]\\)*"
header-end t)))
+ (base64-header-field-end
+ (save-excursion
+ (re-search-forward
+ "^content-transfer-encoding:\\(\n?[\t
]\\)*base64\\(\n?[\t ]\\)*"
+ header-end t)))
(size
;; Get the numeric value from the Content-Length field.
(save-excursion
***************
*** 1761,1766 ****
--- 1820,1833 ----
;; Change "quoted-printable" to "8bit",
;; to reflect the decoding we just did.
(goto-char quoted-printable-header-field-end)
+ (delete-region (point) (search-backward ":"))
+ (insert ": 8bit")))
+ (if base64-header-field-end
+ (save-excursion
+ (base64-decode-region header-end (point))
+ ;; Change "base64" to "8bit", to reflect the
+ ;; decoding we just did.
+ (goto-char base64-header-field-end)
(delete-region (point) (search-backward ":"))
(insert ": 8bit"))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/rmail.el,
Eli Zaretskii <=