From 67028f21be4c382e263f96d4a8c24702fd27c061 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Sun, 21 Jul 2013 01:15:58 +0200 Subject: wl: minor cleanups --- wl | 6 +++--- 1 file 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)) -- cgit v1.2.3