[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail rmailsum.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/mail rmailsum.el |
Date: |
Sat, 07 Feb 2009 03:02:57 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/02/07 03:02:57
Modified files:
lisp/mail : rmailsum.el
Log message:
(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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailsum.el?cvsroot=emacs&r1=1.165&r2=1.166
Patches:
Index: rmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailsum.el,v
retrieving revision 1.165
retrieving revision 1.166
diff -u -b -r1.165 -r1.166
--- rmailsum.el 3 Feb 2009 04:07:55 -0000 1.165
+++ rmailsum.el 7 Feb 2009 03:02:57 -0000 1.166
@@ -374,12 +374,13 @@
;; 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
+ (save-restriction
+ (widen)
(goto-char beg)
(if (search-forward "\n\n" end t)
- (save-restriction
+ (progn
(narrow-to-region beg (point))
;; Replace rmail-message-unseen-p from above.
(goto-char beg)
@@ -388,7 +389,7 @@
(looking-at "......U")))
;; Generate a status line from the message.
(rmail-create-summary msgnum deleted unseen lines))
- (rmail-error-bad-format msgnum))))))
+ (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'.