[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el

[Richard M. Stallman]

Index: emacs/lisp/mail/rmail.el
diff -c emacs/lisp/mail/rmail.el:1.358 emacs/lisp/mail/rmail.el:1.359
*** emacs/lisp/mail/rmail.el:1.358      Mon May  6 03:52:30 2002
--- emacs/lisp/mail/rmail.el    Thu May  9 21:02:26 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)