2391 |
(goto-char (point-min)) |
(goto-char (point-min)) |
2392 |
(if (re-search-forward "^X-Coding-System: *\\(.*\\)$" nil t) |
(if (re-search-forward "^X-Coding-System: *\\(.*\\)$" nil t) |
2393 |
(let ((coding-system (intern (match-string 1)))) |
(let ((coding-system (intern (match-string 1)))) |
2394 |
(check-coding-system coding-system) |
(condition-case nil |
2395 |
(setq buffer-file-coding-system coding-system)) |
(progn |
2396 |
|
(check-coding-system coding-system) |
2397 |
|
(setq buffer-file-coding-system coding-system)) |
2398 |
|
(error |
2399 |
|
(setq buffer-file-coding-system nil)))) |
2400 |
(setq buffer-file-coding-system nil))))) |
(setq buffer-file-coding-system nil))))) |
2401 |
;; Clear the "unseen" attribute when we show a message. |
;; Clear the "unseen" attribute when we show a message. |
2402 |
(rmail-set-attribute "unseen" nil) |
(rmail-set-attribute "unseen" nil) |