diff options
| author |  David Edmondson <dme@dme.org> | 2012-01-13 09:44:46 +0000 |
|---|---|---|
| committer |  David Bremner <bremner@debian.org> | 2012-01-13 21:45:21 -0400 |
| commit | 647c2509897e8a7cf12dba1a6ee81f8bb6e53b4d (patch) | |
| tree | 1e082f1c8a9a9a59ffac577283e88f5e250c035c /emacs/notmuch-show.el | |
| parent | e40c01bb14e0b3ee0d699c697f3800a092e6bb6c (diff) | |
notmuch/emacs: Observe the charset of text/html parts, where known.
Add the charset of text/html parts to the JSON output of 'notmuch
-show' when it is known. Observe the encoding when rendering such
parts in emacs.
Diffstat (limited to 'emacs/notmuch-show.el')
| -rw-r--r-- | emacs/notmuch-show.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 2806879e..034db87e 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -328,7 +328,8 @@ message at DEPTH in the current thread." current buffer, if possible." (let ((display-buffer (current-buffer))) (with-temp-buffer - (let ((handle (mm-make-handle (current-buffer) (list content-type)))) + (let* ((charset (plist-get part :content-charset)) + (handle (mm-make-handle (current-buffer) `(,content-type (charset . ,charset))))) (if (and (mm-inlinable-p handle) (mm-inlined-p handle)) (let ((content (notmuch-show-get-bodypart-content msg part nth))) |