mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 2007-08-02 17:56:38 +00:00
parent bd18cd1928
commit 7d7d10b874
2 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ChangeLog
View File

@ -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.

10
lisp/mail/rmailsum.el
View File

@ -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