procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/mail/rfc2047.el (rfc2047-encodable-p): Don't require message.

Browse source 
Use bound-and-true-p rather than requiring `message` to get
message-posting-charset (since it defaults to nil anyway).
This commit is contained in:
Stefan Monnier 2019-08-06 03:58:50 -04:00
parent 74b097b61c
commit 6231483b7e
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/mail/rfc2047.el
View file

@ -325,7 +325,6 @@ Should be called narrowed to the head of the message."
(defun rfc2047-encodable-p ()
"Return non-nil if any characters in current buffer need encoding in headers.
The buffer may be narrowed."
(require 'message) ; for message-posting-charset
(let ((charsets
(mm-find-mime-charset-region (point-min) (point-max))))
(goto-char (point-min))
@ -334,7 +333,7 @@ The buffer may be narrowed."
(re-search-forward rfc2047-encoded-word-regexp nil t)
(goto-char (point-min))))
(and charsets
(not (equal charsets (list (car message-posting-charset))))))))
(not (equal charsets (list (car (bound-and-true-p message-posting-charset)))))))))
;; Use this syntax table when parsing into regions that may need
;; encoding. Double quotes are string delimiters, backslash is