diff options
| author | Lars Magne Ingebrigtsen | 2016-05-29 19:42:36 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2016-05-29 19:42:36 +0200 |
| commit | 190942baeff3f541abf2a937e0fb4d3f9ea104be (patch) | |
| tree | 494859558738c259d9dd482b208a121c01a2128e | |
| parent | b7735ab0419de3eb16560bdbab01edadecfc353e (diff) | |
| download | emacs-190942baeff3f541abf2a937e0fb4d3f9ea104be.tar.gz emacs-190942baeff3f541abf2a937e0fb4d3f9ea104be.zip | |
Fix up remainder of the mml property change
* lisp/gnus/message.el (message-send-mail): Use the renamed
mml-buffer-substring-no-properties-except-some function.
(message-send-news): Ditto.
| -rw-r--r-- | lisp/gnus/message.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index a998687ccb3..03ce789e9eb 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -4545,7 +4545,7 @@ This function could be useful in `message-setup-hook'." | |||
| 4545 | (setq message-options options) | 4545 | (setq message-options options) |
| 4546 | ;; Avoid copying text props (except hard newlines). | 4546 | ;; Avoid copying text props (except hard newlines). |
| 4547 | (insert (with-current-buffer mailbuf | 4547 | (insert (with-current-buffer mailbuf |
| 4548 | (mml-buffer-substring-no-properties-except-hard-newlines | 4548 | (mml-buffer-substring-no-properties-except-some |
| 4549 | (point-min) (point-max)))) | 4549 | (point-min) (point-max)))) |
| 4550 | ;; Remove some headers. | 4550 | ;; Remove some headers. |
| 4551 | (message-encode-message-body) | 4551 | (message-encode-message-body) |
| @@ -4909,7 +4909,7 @@ Otherwise, generate and save a value for `canlock-password' first." | |||
| 4909 | ;; Avoid copying text props (except hard newlines). | 4909 | ;; Avoid copying text props (except hard newlines). |
| 4910 | (insert | 4910 | (insert |
| 4911 | (with-current-buffer messbuf | 4911 | (with-current-buffer messbuf |
| 4912 | (mml-buffer-substring-no-properties-except-hard-newlines | 4912 | (mml-buffer-substring-no-properties-except-some |
| 4913 | (point-min) (point-max)))) | 4913 | (point-min) (point-max)))) |
| 4914 | (message-encode-message-body) | 4914 | (message-encode-message-body) |
| 4915 | ;; Remove some headers. | 4915 | ;; Remove some headers. |