# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1233975777 0
# Node ID 2790fb0a92458942a2e80ea2f906387fb1e1642e
# Parent  0d6b005df47553bef44b3c53d5f085b77cc1c593
(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.

diff -r 0d6b005df475 -r 2790fb0a9245 lisp/mail/rmailsum.el
--- 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'.