# HG changeset patch
# User Alex Schroeder <alex@gnu.org>
# Date 1137774374 0
# Node ID 07d147da81f89b29347b90df9b02af5607d56e3b
# Parent  76be5e1eba7d59dbbb1c60e8a5ae81c51b6baca8
(rmail-show-message): Minor changes: comments.

diff -r 76be5e1eba7d -r 07d147da81f8 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Jan 20 16:23:51 2006 +0000
+++ b/lisp/mail/rmail.el	Fri Jan 20 16:26:14 2006 +0000
@@ -2135,19 +2135,12 @@
 		     blurb "No following message"))
 	      (t
 	       (setq rmail-current-message n))))
-
-      ;; Index into the Rmail message vector.
       (let ((beg (rmail-desc-get-start n))
 	    (end (rmail-desc-get-end n)))
-
-	;; Narrow the region to message N and display the headers
-	;; appropriately.
         (rmail-header-show-headers)
         (widen)
 	(narrow-to-region beg end)
         (goto-char (point-min))
-
-        ;; Do something here with the coding system, I'm not sure what. -pmr
         (if (re-search-forward "^X-Coding-System: *\\(.*\\)$" nil t)
             (let ((coding-system (intern (match-string 1))))
               (condition-case nil
@@ -2157,19 +2150,10 @@
                 (error
                  (setq buffer-file-coding-system nil))))
           (setq buffer-file-coding-system nil))
-
         ;; Clear the "unseen" attribute when we show a message, unless
 	;; it is already cleared.
 	(when (rmail-desc-attr-p rmail-desc-unseen-index n)
 	  (rmail-desc-set-attribute rmail-desc-unseen-index nil n))
-
-;; More code that has been added that I ill understand.
-;;	(walk-windows
-;;	 (function (lambda (window)
-;;		     (if (eq (window-buffer window) (current-buffer))
-;;			 (set-window-point window (point)))))
-;;	 nil t)
-
 	(rmail-display-labels)
 	;; Deal with MIME
 	(if (eq rmail-enable-mime t)