diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-07-21 01:35:38 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-07-21 01:35:38 +0200 |
| commit | 7df06421357a9b5acb7169ed77827c9303ba98d5 (patch) | |
| tree | 50f1fb40b38786adf5d86579c8475d2269e48c11 | |
| parent | 67028f21be4c382e263f96d4a8c24702fd27c061 (diff) | |
| download | conf-misc-7df06421357a9b5acb7169ed77827c9303ba98d5.tar conf-misc-7df06421357a9b5acb7169ed77827c9303ba98d5.zip | |
wl: more minor improvements
| -rw-r--r-- | wl | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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)) |