Re: RMAIL bails out with coding-system-error

[Richard Stallman]

Does this make it work right?

*** rmail.el.~1.357.~   Fri Mar 22 22:21:53 2002
--- rmail.el    Sat May  4 20:40:00 2002
***************
*** 2391,2398 ****
              (goto-char (point-min))
              (if (re-search-forward "^X-Coding-System: *\\(.*\\)$" nil t)
                  (let ((coding-system (intern (match-string 1))))
!                   (check-coding-system coding-system)
!                   (setq buffer-file-coding-system coding-system))
                (setq buffer-file-coding-system nil)))))
        ;; Clear the "unseen" attribute when we show a message.
        (rmail-set-attribute "unseen" nil)
--- 2391,2402 ----
              (goto-char (point-min))
              (if (re-search-forward "^X-Coding-System: *\\(.*\\)$" nil t)
                  (let ((coding-system (intern (match-string 1))))
!                   (condition-case nil
!                       (progn
!                         (check-coding-system coding-system)
!                         (setq buffer-file-coding-system coding-system))
!                     (error 
!                      (setq buffer-file-coding-system nil))))
                (setq buffer-file-coding-system nil)))))
        ;; Clear the "unseen" attribute when we show a message.
        (rmail-set-attribute "unseen" nil)