summaryrefslogtreecommitdiffstats
path: root/wl
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2013-07-21 01:15:58 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2013-07-21 01:15:58 +0200
commit67028f21be4c382e263f96d4a8c24702fd27c061 (patch)
treee4e2cde0f39cbfbdf66c49db6bac9c7d2bbcec51 /wl
parent4fd1058baf2f44f302bb60503d1bce6b72b5c1e9 (diff)
downloadconf-misc-67028f21be4c382e263f96d4a8c24702fd27c061.tar
conf-misc-67028f21be4c382e263f96d4a8c24702fd27c061.zip
wl: minor cleanups
Diffstat (limited to 'wl')
-rw-r--r--wl6
1 files changed, 3 insertions, 3 deletions
diff --git a/wl b/wl
index 8db1e06..fc66dfe 100644
--- a/wl
+++ b/wl
@@ -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))