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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cdb89b36942e1013664f7f7b3832c05cc7494bb4..1fd9ad36d9c2d7277635f339efdb164723b7dc0f 100644 (file)
--- 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 85527e59f673dd121cd2e2501f7e668d90e07c37..fd5931fdef9ab6f84bb7db1196c892830756fd4c 100644 (file)
--- 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