Filter out carriage-returns in show and reply output.

[notmuch] / notmuch.el

diff --git a/notmuch.el b/notmuch.el
index 59a5851bbcc4a95228b79340db78248ae4712ece..296f5d663b8ee6b22fbb57cdd5da8ff18972c7be 100644 (file)
--- a/notmuch.el
+++ b/notmuch.el
@@ -651,6 +651,14 @@ view, (remove the \"inbox\" tag from each), with
   :options '(goto-address)
   :group 'notmuch)
 
+; Make show mode a bit prettier, highlighting URLs and using word wrap
+
+(defun notmuch-show-pretty-hook ()
+  (goto-address-mode 1)
+  (visual-line-mode))
+
+(add-hook 'notmuch-show-hook 'notmuch-show-pretty-hook)
+
 (defun notmuch-show (thread-id &optional parent-buffer)
   "Run \"notmuch show\" with the given thread ID and display results.
 
@@ -954,4 +962,6 @@ current search results AND that are tagged with the given tag."
   (interactive)
   (notmuch-search "tag:inbox" t))
 
+(setq mail-user-agent 'message-user-agent)
+
 (provide 'notmuch)