mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-26 00:01:47 -07:00
Code Issues Projects Releases Wiki Activity

Fix problem with non-ASCII MML description strings

Browse source 
* lisp/gnus/mml.el (mml-insert-tag): Quote non-ASCII parameters.
(mml-insert-mime-headers): Make it possible to have non-ASCII
descriptions (bug#37555).
This commit is contained in:
Lars Ingebrigtsen 2019-09-30 17:13:10 +02:00
parent ab980bd7f5
commit e7ee756f54
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/gnus/mml.el
View file

@ -923,11 +923,13 @@ type detected."
(unless (eq encoding '7bit)
(insert (format "Content-Transfer-Encoding: %s\n" encoding)))
(when (setq description (cdr (assq 'description cont)))
(insert "Content-Description: ")
(setq description (prog1
(point)
(insert description "\n")))
(mail-encode-encoded-word-region description (point)))))
(insert "Content-Description: "
;; The current buffer is unibyte, so do the description
;; encoding in a temporary buffer.
(with-temp-buffer
(insert description "\n")
(mail-encode-encoded-word-region (point-min) (point-max))
(buffer-string))))))
(defun mml-parameter-string (cont types)
(let ((string "")
@ -1339,7 +1341,7 @@ If not set, `default-directory' will be used."
(value (pop plist)))
(when value
;; Quote VALUE if it contains suspicious characters.
(when (string-match "[\"'\\~/*;() \t\n]" value)
(when (string-match "[\"'\\~/*;() \t\n[:multibyte:]]" value)
(setq value (with-output-to-string
(let (print-escape-nonascii)
(prin1 value)))))