diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-07-21 01:15:58 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-07-21 01:15:58 +0200 |
| commit | 67028f21be4c382e263f96d4a8c24702fd27c061 (patch) | |
| tree | e4e2cde0f39cbfbdf66c49db6bac9c7d2bbcec51 | |
| parent | 4fd1058baf2f44f302bb60503d1bce6b72b5c1e9 (diff) | |
| download | conf-misc-67028f21be4c382e263f96d4a8c24702fd27c061.tar conf-misc-67028f21be4c382e263f96d4a8c24702fd27c061.zip | |
wl: minor cleanups
| -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)) |