(notmuch-show-message-adjust))
(defun notmuch-show-view-raw-message ()
- "View the file holding the current message."
+ "View the original source of the current message."
(interactive)
(let* ((id (notmuch-show-get-message-id))
(buf (get-buffer-create (concat "*notmuch-raw-" id "*"))))
- (call-process notmuch-command nil buf nil "show" "--format=raw" id)
+ (let ((coding-system-for-read 'no-conversion))
+ (call-process notmuch-command nil buf nil "show" "--format=raw" id))
(switch-to-buffer buf)
(goto-char (point-min))
(set-buffer-modified-p nil)
test_expect_equal_file OUTPUT EXPECTED
test_begin_subtest "8bit text message are not decoded when viewing"
-test_subtest_known_broken
test_emacs '(notmuch-show "id:test-plain-8bit@example.com")
(notmuch-show-view-raw-message)
(test-visible-output "OUTPUT.raw")'