From 7df06421357a9b5acb7169ed77827c9303ba98d5 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Sun, 21 Jul 2013 01:35:38 +0200 Subject: wl: more minor improvements --- wl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'wl') diff --git a/wl b/wl index fc66dfe..23b2ff5 100644 --- a/wl +++ b/wl @@ -29,7 +29,8 @@ new unread answered - forwarded)) + forwarded) + wl-message-window-size '(1 . 2)) (setq elmo-folder-update-threshold nil) @@ -62,7 +63,7 @@ Return non-nil if the mark is updated" (let ((status (wl-summary-message-status number))) (prog1 (save-excursion - (move-to-column 9) + (move-to-column (+ wl-summary-buffer-number-column 4)) (let ((inhibit-read-only t) (buffer-read-only nil) (mark (buffer-substring (- (point) 3) (point))) @@ -80,7 +81,8 @@ Return non-nil if the mark is updated" (set-buffer-modified-p nil)))) (add-to-list 'wl-summary-line-format-spec-alist '(?X (extended-persistent-mark))) -(setq wl-summary-line-format "%n%T%X %Y/%M/%D (%W) %h:%m %t%[%25(%c %f%) %] %s") +(setq wl-summary-line-format "%n%T%X %Y/%M/%D (%W) %h:%m %t%[%25(%c %f%) %] %s" + wl-summary-default-number-column 6) (defadvice wl-message-buffer-display (before wl-message-buffer-display-unread activate) (setq unread t)) -- cgit v1.2.3