From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 2 Aug 2007 17:56:38 +0000 (+0000)
Subject: (rmail-make-summary-line): Find end of msg number to update deleted flag.
X-Git-Tag: emacs-pretest-22.1.90~1117
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d7d10b874929e0e46a96c870017db26c59b44c8;p=emacs.git

(rmail-make-summary-line): Find end of msg number to update deleted flag.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cdb89b36942..1fd9ad36d9c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,19 @@
 2007-08-02  Richard Stallman  <rms@gnu.org>
 
+	* mail/rmailsum.el (rmail-make-summary-line): Find end of msg number
+	to update deleted flag.
+
+	* cus-edit.el (customize-apropos, customize-apropos-options)
+	(customize-apropos-faces, customize-apropos-groups): Improve prompt.
+
+	* menu-bar.el (menu-bar-help-menu): Add "About GNU" menu item.
+
+	* startup.el (fancy-splash-head, startup-echo-area-message): 
+	Change message text.
+
+	* emulation/tpu-edt.el (next-line-internal): Setting deleted.
+	All callers use line-move.
+
 	* progmodes/compile.el (compilation-find-buffer): Return current
 	buffer immediately if suitable.
 	(compile, compilation-buffer-name, compilation-start): Doc fixes.
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 85527e59f67..fd5931fdef9 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -288,12 +288,14 @@ nil for FUNCTION means all messages."
 		    (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