debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-28 21:54: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)) (let ((thread-id (notmuch-search-find-thread-id))
(subject (notmuch-search-find-subject))) (subject (notmuch-search-find-subject)))
(if (> (length thread-id) 0) (if (> (length thread-id) 0)
(notmuch-show thread-id (progn
(current-buffer) (if (string-match "^[ \t]*$" subject)
notmuch-search-query-string (setq subject "[No Subject]"))
;; name the buffer based on notmuch-search-find-subject
(if (string-match "^[ \t]*$" subject) (notmuch-show thread-id
"[No Subject]" (current-buffer)
(truncate-string-to-width notmuch-search-query-string
(concat "*" ;; Name the buffer based on the subject.
(truncate-string-to-width subject 32 nil nil t) (concat "*" (truncate-string-to-width subject 30 nil nil t) "*")
"*") crypto-switch))
32 nil nil t))
crypto-switch)
(message "End of search results.")))) (message "End of search results."))))
(defun notmuch-search-reply-to-thread (&optional prompt-for-sender) (defun notmuch-search-reply-to-thread (&optional prompt-for-sender)