diff options
| author | Miles Bader <miles@gnu.org> | 2007-08-03 05:58:06 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-08-03 05:58:06 +0000 |
| commit | 2ca773ca40d2c1896757e6382aefff6d9de1c5cc (patch) | |
| tree | 846419ece5e5d8bc8f11e9786598678af9c78f00 /lisp/mail/rmailsum.el | |
| parent | 49b23c2a404cf31fb1aeecc7932a7304aaf16a67 (diff) | |
| parent | 0896d93184a719bc994a3e699de27190aac0acb1 (diff) | |
| download | emacs-2ca773ca40d2c1896757e6382aefff6d9de1c5cc.tar.gz emacs-2ca773ca40d2c1896757e6382aefff6d9de1c5cc.tar.bz2 emacs-2ca773ca40d2c1896757e6382aefff6d9de1c5cc.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 843-845)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 84-87)
- Update from CVS
- Change capitalization of VC backend names for new backends
Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-30
Diffstat (limited to 'lisp/mail/rmailsum.el')
| -rw-r--r-- | lisp/mail/rmailsum.el | 10 |
1 files changed, 6 insertions, 4 deletions
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 |