diff options
| author | Glenn Morris | 2018-03-01 13:07:42 -0500 |
|---|---|---|
| committer | Glenn Morris | 2018-03-01 13:07:42 -0500 |
| commit | 02a71e6c2f2e0e17756ef4d040453d96637d76c7 (patch) | |
| tree | 5c47c38d741e694895737487098c1602260e6bca | |
| parent | 8643de540efcd993381e672808e4cb785ed7dcc2 (diff) | |
| download | emacs-02a71e6c2f2e0e17756ef4d040453d96637d76c7.tar.gz emacs-02a71e6c2f2e0e17756ef4d040453d96637d76c7.zip | |
Use select-message-coding-system in mh-comp
* lisp/mh-e/mh-comp.el (mh-send-letter):
Use select-message-coding-system. (Bug#30060)
| -rw-r--r-- | lisp/mh-e/mh-comp.el | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el index a9f809cfa13..cfdd2ae5abf 100644 --- a/lisp/mh-e/mh-comp.el +++ b/lisp/mh-e/mh-comp.el | |||
| @@ -305,17 +305,19 @@ message and scan line." | |||
| 305 | (file-name buffer-file-name) | 305 | (file-name buffer-file-name) |
| 306 | (config mh-previous-window-config) | 306 | (config mh-previous-window-config) |
| 307 | (coding-system-for-write | 307 | (coding-system-for-write |
| 308 | (if (and (local-variable-p 'buffer-file-coding-system | 308 | (if (fboundp 'select-message-coding-system) |
| 309 | (current-buffer)) ;XEmacs needs two args | 309 | (select-message-coding-system) ; Emacs has this since at least 21.1 |
| 310 | ;; We're not sure why, but buffer-file-coding-system | 310 | (if (and (local-variable-p 'buffer-file-coding-system |
| 311 | ;; tends to get set to undecided-unix. | 311 | (current-buffer)) ;XEmacs needs two args |
| 312 | (not (memq buffer-file-coding-system | 312 | ;; We're not sure why, but buffer-file-coding-system |
| 313 | '(undecided undecided-unix undecided-dos)))) | 313 | ;; tends to get set to undecided-unix. |
| 314 | buffer-file-coding-system | 314 | (not (memq buffer-file-coding-system |
| 315 | (or (and (boundp 'sendmail-coding-system) sendmail-coding-system) | 315 | '(undecided undecided-unix undecided-dos)))) |
| 316 | (and (default-boundp 'buffer-file-coding-system) | 316 | buffer-file-coding-system |
| 317 | (default-value 'buffer-file-coding-system)) | 317 | (or (and (boundp 'sendmail-coding-system) sendmail-coding-system) |
| 318 | 'iso-latin-1)))) | 318 | (and (default-boundp 'buffer-file-coding-system) |
| 319 | (default-value 'buffer-file-coding-system)) | ||
| 320 | 'iso-latin-1))))) | ||
| 319 | ;; Older versions of spost do not support -msgid and -mime. | 321 | ;; Older versions of spost do not support -msgid and -mime. |
| 320 | (unless mh-send-uses-spost-flag | 322 | (unless mh-send-uses-spost-flag |
| 321 | ;; Adding a Message-ID field looks good, makes it easier to search for | 323 | ;; Adding a Message-ID field looks good, makes it easier to search for |