Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1f459fa4
Commit
1f459fa4
authored
Feb 22, 2011
by
Kenichi Handa
Browse files
Decode "encoded-words" of header components on replying.
parent
dbc05432
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
0 deletions
+15
-0
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/mail/rmail.el
lisp/mail/rmail.el
+10
-0
No files found.
lisp/ChangeLog
View file @
1f459fa4
2011-02-21 Kenichi Handa <handa@m17n.org>
* mail/rmail.el (rmail-start-mail): Decode "encoded-words" of
header components.
2011-02-14 Chong Yidong <cyd@stupidchicken.com>
* pgg-gpg.el (pgg-gpg-process-region): Bind
...
...
lisp/mail/rmail.el
View file @
1f459fa4
...
...
@@ -3449,6 +3449,16 @@ does not pop any summary buffer."
(setq yank-action (list 'insert-buffer replybuffer)))
(setq others (cons (cons "cc" cc) others))
(setq others (cons (cons "in-reply-to" in-reply-to) others))
(setq others
(mapcar #'(lambda (elt)
(cons (car elt) (if (stringp (cdr elt))
(rfc2047-decode-string (cdr elt)))))
others))
(if (stringp to) (setq to (rfc2047-decode-string to)))
(if (stringp in-reply-to)
(setq in-reply-to (rfc2047-decode-string in-reply-to)))
(if (stringp cc) (setq cc (rfc2047-decode-string cc)))
(if (stringp subject) (setq subject (rfc2047-decode-string subject)))
(if same-window
(compose-mail to subject others
noerase nil
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment