comparison lisp/mail/rmail.el @ 88235:07d147da81f8

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

88234:76be5e1eba7d

	       (setq n rmail-total-messages
		     rmail-current-message rmail-total-messages
		     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
                  (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, 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)
	    (funcall rmail-show-mime-function)
	;; Deal with the message headers and URLs..

88235:07d147da81f8

	       (setq n rmail-total-messages
		     rmail-current-message rmail-total-messages
		     blurb "No following message"))
	      (t
	       (setq rmail-current-message n))))
      (let ((beg (rmail-desc-get-start n))
	    (end (rmail-desc-get-end n)))
        (rmail-header-show-headers)
        (widen)
	(narrow-to-region beg end)
        (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, 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))
	(rmail-display-labels)
	;; Deal with MIME
	(if (eq rmail-enable-mime t)
	    (funcall rmail-show-mime-function)
	;; Deal with the message headers and URLs..