Mercurial > emacs
changeset 88235:07d147da81f8
(rmail-show-message): Minor changes: comments.
| author | Alex Schroeder <alex@gnu.org> |
|---|---|
| date | Fri, 20 Jan 2006 16:26:14 +0000 |
| parents | 76be5e1eba7d |
| children | c4d7d203421c |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 0 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- 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)