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 |