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

emacs: Stop the `truncate-string-to-width' madness.

Browse source 
There's no need to call `truncate-string-to-width' twice in this code
path.
This commit is contained in:
David Edmondson 2012-01-30 10:16:00 +00:00 committed by David Bremner
parent c32116d048
commit e516a712bb
1 changed files with 10 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
emacs/notmuch.el
View file

@ -469,18 +469,16 @@ Complete list of currently available key bindings:
(let ((thread-id (notmuch-search-find-thread-id))
(subject (notmuch-search-find-subject)))
(if (> (length thread-id) 0)
(notmuch-show thread-id
(current-buffer)
notmuch-search-query-string
;; name the buffer based on notmuch-search-find-subject
(if (string-match "^[ \t]*$" subject)
"[No Subject]"
(truncate-string-to-width
(concat "*"
(truncate-string-to-width subject 32 nil nil t)
"*")
32 nil nil t))
crypto-switch)
(progn
(if (string-match "^[ \t]*$" subject)
(setq subject "[No Subject]"))
(notmuch-show thread-id
(current-buffer)
notmuch-search-query-string
;; Name the buffer based on the subject.
(concat "*" (truncate-string-to-width subject 30 nil nil t) "*")
crypto-switch))
(message "End of search results."))))
(defun notmuch-search-reply-to-thread (&optional prompt-for-sender)