Mercurial > emacs
comparison lisp/mail/rmail.el @ 101552:095c55c0882d
(rmail-get-coding-system): Fix previous change.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 27 Jan 2009 04:49:33 +0000 |
parents | 28b036b7fc1c |
children | fe1cbb7012eb |
comparison
equal
deleted
inserted
replaced
101551:75d377a936d1 | 101552:095c55c0882d |
---|---|
940 (defun rmail-get-coding-system () | 940 (defun rmail-get-coding-system () |
941 "Return a suitable coding system to use for the current mail message. | 941 "Return a suitable coding system to use for the current mail message. |
942 The buffer is expected to be narrowed to just the header of the message." | 942 The buffer is expected to be narrowed to just the header of the message." |
943 (save-excursion | 943 (save-excursion |
944 (goto-char (point-min)) | 944 (goto-char (point-min)) |
945 (if (re-search-forward rmail-mime-charset-pattern) | 945 (if (re-search-forward rmail-mime-charset-pattern nil t) |
946 (coding-system-from-name (match-string 1)) | 946 (coding-system-from-name (match-string 1)) |
947 'undecided))) | 947 'undecided))) |
948 | 948 |
949 ;;; Set up Rmail mode keymaps | 949 ;;; Set up Rmail mode keymaps |
950 | 950 |