X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch.el;h=439303a77d3a6d3b7de679f2facb7c9b97aefe59;hp=117a365803ff76f423dc869afb9b612bb9f9798f;hb=bf159bd829efb6aa73c68542949eb11d9a44d93c;hpb=bb61755afe0deddbb146222a4e42547b00a7fd76

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 117a3658..439303a7 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -1213,7 +1213,7 @@ matching this search term are shown if non-nil. "
 	  (notmuch-show-next-open-message))
       )))
 
-(defvar notmuch-search-authors-width 40
+(defvar notmuch-search-authors-width 20
   "Number of columns to use to display authors in a notmuch-search buffer.")
 
 (defvar notmuch-search-mode-map
@@ -1507,11 +1507,12 @@ This function advances the next thread when finished."
 			   (authors-length (length authors))
 			   (subject (match-string 5 string))
 			   (tags (match-string 6 string)))
-		      (if (> authors-length 40)
-			  (set 'authors (concat (substring authors 0 (- 40 3)) "...")))
+		      (if (> authors-length notmuch-search-authors-width)
+			  (set 'authors (concat (substring authors 0 (- notmuch-search-authors-width 3)) "...")))
 		      (goto-char (point-max))
-		      (let ((beg (point-marker)))
-			(insert (format "%s %-7s %-40s %s (%s)\n" date count authors subject tags))
+		      (let ((beg (point-marker))
+			    (format-string (format "%%s %%-7s %%-%ds %%s (%%s)\n" notmuch-search-authors-width)))
+			(insert (format format-string date count authors subject tags))
 			(put-text-property beg (point-marker) 'notmuch-search-thread-id thread-id)
 			(put-text-property beg (point-marker) 'notmuch-search-authors authors)
 			(put-text-property beg (point-marker) 'notmuch-search-subject subject)