Commit 6231483b authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

Use bound-and-true-p rather than requiring `message` to get
message-posting-charset (since it defaults to nil anyway).
parent 74b097b6
Pipeline #2772 failed with stage
in 74 minutes and 55 seconds
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment