/[emacs]/emacs/lisp/mail/rmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.358 by pot, Mon May 6 07:52:30 2002 UTC revision 1.359 by rms, Fri May 10 01:02:26 2002 UTC
# Line 2391  If summary buffer is currently displayed Line 2391  If summary buffer is currently displayed
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)

Legend:
Removed from v.1.358  
changed lines
  Added in v.1.359

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26