diff options
author | David Edmondson <dme@dme.org> | 2010-04-26 13:16:07 +0100 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-04-26 08:23:48 -0700 |
commit | 6afa0b16a3bcf2a2bfd176e0f14ca0fcced649b5 (patch) | |
tree | c31a68aad4ea8b12e918224f850dcf8626cbd27b | |
parent | e2516a343b26737b53efdfbadc6ad01ab62975f7 (diff) |
emacs: Fix `notmuch-search-insert-field'
Compare the formatted version of the authors with the formatted sample
string rather than the un-formatted authors with the formatted sample
string.
-rw-r--r-- | emacs/notmuch.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/emacs/notmuch.el b/emacs/notmuch.el index 378c004..eecff23 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -582,11 +582,13 @@ matching will be applied." ((string-equal field "count") (insert (format (cdr (assoc field notmuch-search-result-format)) count))) ((string-equal field "authors") - (insert (let ((sample (format (cdr (assoc field notmuch-search-result-format)) ""))) - (if (> (length authors) - (length sample)) - (concat (substring authors 0 (- (length sample) 4)) "... ") - (format (cdr (assoc field notmuch-search-result-format)) authors))))) + (insert (let* ((format-string (cdr (assoc field notmuch-search-result-format))) + (formatted-sample (format format-string "")) + (formatted-authors (format format-string authors))) + (if (> (length formatted-authors) + (length formatted-sample)) + (concat (substring authors 0 (- (length formatted-sample) 4)) "... ") + formatted-authors)))) ((string-equal field "subject") (insert (format (cdr (assoc field notmuch-search-result-format)) subject))) ((string-equal field "tags") |