diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-08-06 03:58:50 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-08-06 03:58:50 -0400 |
| commit | 6231483b7e13f1ad34b8aec560e7cc640059d6f9 (patch) | |
| tree | c80fb7358133905e8cb69487417133df7df44863 /lisp/mail | |
| parent | 74b097b61c5201405ad7bc5bb76f1ca0e794184b (diff) | |
| download | emacs-6231483b7e13f1ad34b8aec560e7cc640059d6f9.tar.gz | |
* 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).
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rfc2047.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mail/rfc2047.el b/lisp/mail/rfc2047.el index a02201ec323..188e5dc3969 100644 --- a/lisp/mail/rfc2047.el +++ b/lisp/mail/rfc2047.el @@ -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 |