Mercurial > emacs
changeset 101841:2790fb0a9245
(rmail-create-summary-line): Widen the view buffer
before trying to move to the start of the message.
(rmail-summary-undelete-many, rmail-summary-rmail-update):
Fix rmail-set-attribute calls.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 07 Feb 2009 03:02:57 +0000 |
| parents | 0d6b005df475 |
| children | 3459df385d69 |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 16 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Sat Feb 07 03:02:39 2009 +0000 +++ b/lisp/mail/rmailsum.el Sat Feb 07 03:02:57 2009 +0000 @@ -374,21 +374,22 @@ ;; Now we can compute the line count. (if rmail-summary-line-count-flag (setq lines (count-lines beg end))) - ;; Narrow to the message header. (save-excursion - (goto-char beg) - (if (search-forward "\n\n" end t) - (save-restriction - (narrow-to-region beg (point)) - ;; Replace rmail-message-unseen-p from above. - (goto-char beg) - (setq unseen (and (search-forward - (concat rmail-attribute-header ": ") nil t) - (looking-at "......U"))) - ;; Generate a status line from the message. - (rmail-create-summary msgnum deleted unseen lines)) - (rmail-error-bad-format msgnum)))))) + (save-restriction + (widen) + (goto-char beg) + (if (search-forward "\n\n" end t) + (progn + (narrow-to-region beg (point)) + ;; Replace rmail-message-unseen-p from above. + (goto-char beg) + (setq unseen (and (search-forward + (concat rmail-attribute-header ": ") nil t) + (looking-at "......U"))) + ;; Generate a status line from the message. + (rmail-create-summary msgnum deleted unseen lines)) + (rmail-error-bad-format msgnum))))))) ;; FIXME this is now unused. ;; The intention was to display in the summary something like {E} @@ -810,7 +811,7 @@ (while (and (> rmail-current-message 0) (< msgs-undeled n)) (if (rmail-message-deleted-p rmail-current-message) - (progn (rmail-set-attribute "deleted" nil) + (progn (rmail-set-attribute rmail-deleted-attr-index nil) (setq msgs-undeled (1+ msgs-undeled)))) (setq rmail-current-message (1- rmail-current-message))) (set-buffer rmail-summary-buffer) @@ -917,7 +918,7 @@ ;; and we have gone to a different message while searching, ;; put back `unseen' on the former one. (if rmail-summary-put-back-unseen - (rmail-set-attribute "unseen" t + (rmail-set-attribute rmail-unseen-attr-index t rmail-current-message)) ;; Arrange to do that later, for the new current message, ;; if it still has `unseen'.