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

diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog
index 40cbef3b2f95c9c0ff6ab3c7b27a36304546b88a..d86bd4ce860672a616e31c77f7cbcf440477a567 100644 (file)
--- 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 35722edc18244142c2670487690731c26dfb019f..b1d5cee830ea64ab7e3199918d618ee1075d8b96 100644 (file)
--- 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)