* mu4e-hdrs: make field header position depend on fringe size

2011-12-31 16:06:05 +02:00 · 2011-12-31 16:06:05 +02:00 · 5bfc5b0efe
parent 4ea353d6da
commit 5bfc5b0efe
1 changed files with 4 additions and 3 deletions
--- a/emacs/mu4e-hdrs.el
+++ b/emacs/mu4e-hdrs.el
@ -356,11 +356,12 @@ after the end of the search results."
    buffer-undo-list t ;; don't record undo information
    buffer-read-only t
    overwrite-mode 'overwrite-mode-binary)
-
+  
   (setq header-line-format
-     (cons "*  "
+     (cons
+       (make-string (floor (fringe-columns 'left t)) ?\s)
       (map 'list
-	 (lambda (item) ;; FIXME
+	 (lambda (item)
 	   (let ((field (cdr (assoc (car item) mu4e-header-names)))
 		  (width (cdr item)))
 	     (concat