From: Alex Schroeder <alex@gnu.org>
Date: Fri, 20 Jan 2006 16:26:28 +0000 (+0000)
Subject: (rmail-show-message): Minor changes: comments.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35c47a74b63302b92da8d9d55885b4741a5a613e;p=emacs.git

(rmail-show-message): Minor changes: comments.
---

diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog
index 40cbef3b2f9..d86bd4ce860 100644
--- a/lisp/mail/ChangeLog
+++ b/lisp/mail/ChangeLog
@@ -1,3 +1,12 @@
+2006-01-20  Alex Schroeder  <alex@gnu.org>
+
+	* rmail.el (rmail-show-message): Minor changes: comments.
+
+	* rmailsum.el (rmail-summary-get-summary): Fix display of
+	keywords.
+	(rmail-summary-rmail-update): Minor changes: If to when, comments,
+	doc string.
+
 2006-01-20  Henrik Enberg  <enberg@printf.se>
 
 	* rmail.el: (rmail-inbox-alist): New variable.
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 35722edc182..b1d5cee830e 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2135,19 +2135,12 @@ If NO-SUMMARY is non-nil, then do not update the summary buffer."
 		     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 @@ If NO-SUMMARY is non-nil, then do not update the summary buffer."
                 (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)