debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Fix `notmuch-search-insert-field'

Browse source 
Compare the formatted version of the authors with the formatted sample
string rather than the un-formatted authors with the formatted sample
string.
This commit is contained in:
David Edmondson 2010-04-26 13:16:07 +01:00 committed by Carl Worth
parent e2516a343b
commit 6afa0b16a3
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
emacs/notmuch.el
View file

@ -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")