diff options
| -rw-r--r-- | wl | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -42,16 +42,16 @@ (defun extended-persistent-mark-string (status) - (let ((flags (elmo-message-status-flags status)) - (cached (elmo-message-status-cached-p status))) + (let ((flags (elmo-message-status-flags status))) (concat (cond ((memq 'killed flags) "X") ((memq 'flag flags) "$") ((memq 'new flags) "N") ((memq 'unread flags) "u") (t " ")) - (if (memq 'answered flags) wl-summary-answered-cached-mark " ") + (if (memq 'answered flags) "r" " ") (if (memq 'forwarded flags) "f" " ")))) + (defun extended-persistent-mark () (extended-persistent-mark-string wl-status)) |