emacs: Fix coding system in `notmuch-show-view-raw-message'

This fixes the known-broken test of viewing 8bit messages added by the
previous commit.
This commit is contained in:
Austin Clements 2014-04-21 14:37:40 -04:00 committed by David Bremner
parent f4cdabccd0
commit 5673fdbdfa
2 changed files with 3 additions and 3 deletions

View file

@ -1792,11 +1792,12 @@ to show, nil otherwise."
(notmuch-show-message-adjust)) (notmuch-show-message-adjust))
(defun notmuch-show-view-raw-message () (defun notmuch-show-view-raw-message ()
"View the file holding the current message." "View the original source of the current message."
(interactive) (interactive)
(let* ((id (notmuch-show-get-message-id)) (let* ((id (notmuch-show-get-message-id))
(buf (get-buffer-create (concat "*notmuch-raw-" 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) (switch-to-buffer buf)
(goto-char (point-min)) (goto-char (point-min))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)

View file

@ -128,7 +128,6 @@ EOF
test_expect_equal_file OUTPUT EXPECTED test_expect_equal_file OUTPUT EXPECTED
test_begin_subtest "8bit text message are not decoded when viewing" 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") test_emacs '(notmuch-show "id:test-plain-8bit@example.com")
(notmuch-show-view-raw-message) (notmuch-show-view-raw-message)
(test-visible-output "OUTPUT.raw")' (test-visible-output "OUTPUT.raw")'