diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-11-18 21:22:28 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-11-18 21:22:28 +0000 |
| commit | 4877ba13d7971e10bf8b35e6c675f06bd9c46d2a (patch) | |
| tree | f06779809a4d19395949e54a9c69047395284294 | |
| parent | ae9f695f42e7a283b59f5c045425497b7e053316 (diff) | |
| download | emacs-4877ba13d7971e10bf8b35e6c675f06bd9c46d2a.tar.gz emacs-4877ba13d7971e10bf8b35e6c675f06bd9c46d2a.tar.bz2 emacs-4877ba13d7971e10bf8b35e6c675f06bd9c46d2a.zip | |
Improve previous change.
| -rw-r--r-- | lisp/mail/rmail.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 4bad2115fb3..4ca92b13275 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1433,11 +1433,8 @@ Optional DEFAULT is password to start with." (case-fold-search t) (quoted-printable-header-field-end (save-excursion - ;; Back up to end of previous line, in case the - ;; Content-Transfer-Encoding field comes first. - (forward-char -1) (re-search-forward - "\ncontent-transfer-encoding\\(\n?[\t ]\\)*:\\(\n?[\t ]\\)*quoted-printable\\(\n?[\t ]\\)*" + "^content-transfer-encoding:\\(\n?[\t ]\\)*quoted-printable\\(\n?[\t ]\\)*" header-end t))) (size ;; Get the numeric value from the Content-Length field. @@ -1488,7 +1485,7 @@ Optional DEFAULT is password to start with." ;; Change "quoted-printable" to "8bit", ;; to reflect the decoding we just did. (goto-char quoted-printable-header-field-end) - (zap-to-char -1 ?:) + (delete-region (point) (search-backward ":")) (insert ": 8bit")))) (save-excursion |