aboutsummaryrefslogtreecommitdiffhomepage
path: root/emacs/notmuch.el
diff options
context:
space:
mode:
authorGravatar David Edmondson <dme@dme.org>2012-01-30 10:16:01 +0000
committerGravatar David Bremner <bremner@debian.org>2012-02-03 21:20:15 -0400
commit6bd3d8af5431542f352f084b6366e88b98b019a1 (patch)
treefe878194e965a5708e090bcd9759fe32cb2841db /emacs/notmuch.el
parente516a712bb79e523629012ee6a8325f5166b4ee5 (diff)
emacs: Prefer '[No Subject]' to blank subjects.
Diffstat (limited to 'emacs/notmuch.el')
-rw-r--r--emacs/notmuch.el21
1 files changed, 9 insertions, 12 deletions
diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 05c2ff7a..cd04ffda 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -467,18 +467,14 @@ Complete list of currently available key bindings:
"Display the currently selected thread."
(interactive "P")
(let ((thread-id (notmuch-search-find-thread-id))
- (subject (notmuch-search-find-subject)))
+ (subject (notmuch-prettify-subject (notmuch-search-find-subject))))
(if (> (length thread-id) 0)
- (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))
+ (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)
@@ -853,7 +849,8 @@ non-authors is found, assume that all of the authors match."
(if (/= (match-beginning 1) line)
(insert (concat "Error: Unexpected output from notmuch search:\n" (substring string line (match-beginning 1)) "\n")))
(let ((beg (point)))
- (notmuch-search-show-result date count authors subject tags)
+ (notmuch-search-show-result date count authors
+ (notmuch-prettify-subject subject) tags)
(notmuch-search-color-line beg (point) tag-list)
(put-text-property beg (point) 'notmuch-search-thread-id thread-id)
(put-text-property beg (point) 'notmuch-search-authors authors)