Mercurial > emacs

changeset 78395:08bc2cd75b7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-make-summary-line): Find end of msg number to update deleted flag.
author Richard M. Stallman <rms@gnu.org>
date Thu, 02 Aug 2007 17:56:10 +0000
parents ec3c22479e73
children 8669997a4162
files lisp/mail/rmailsum.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el	Thu Aug 02 17:53:19 2007 +0000
+++ b/lisp/mail/rmailsum.el	Thu Aug 02 17:56:10 2007 +0000
@@ -288,12 +288,14 @@
 		    (if (zerop (% rmail-new-summary-line-count 10))
 			(message "Computing summary lines...%d"
 				 rmail-new-summary-line-count))
-		    (rmail-make-summary-line-1 msg)))))
+		    (rmail-make-summary-line-1 msg))))
+	delpos)
     ;; Fix up the part of the summary that says "deleted" or "unseen".
-    (aset line 5
-	  (if (rmail-message-deleted-p msg) ?\D
+    (string-match "[0-9]+" line)
+    (aset line (match-end 0)
+	  (if (rmail-message-deleted-p msg) ?D
 	    (if (= ?0 (char-after (+ 3 (rmail-msgbeg msg))))
-		?\- ?\ )))
+		?- ?\s)))
     line))
 
 ;;;###autoload