diff options
| author | Dave Love <fx@gnu.org> | 2000-09-20 16:54:57 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-09-20 16:54:57 +0000 |
| commit | 8b93df0128d3c27cc67aa77885d925ca991c0215 (patch) | |
| tree | c075a34664f453e5da61d2aeebe4afc1141fe4ac /lisp/gnus/gnus-msg.el | |
| parent | 805b7fc07472cdd3d863b9ade9235d871c96d545 (diff) | |
| download | emacs-8b93df0128d3c27cc67aa77885d925ca991c0215.tar.gz emacs-8b93df0128d3c27cc67aa77885d925ca991c0215.tar.bz2 emacs-8b93df0128d3c27cc67aa77885d925ca991c0215.zip | |
Merge from Gnus trunk.
Diffstat (limited to 'lisp/gnus/gnus-msg.el')
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index e371db143f8..7f80f8ea049 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -723,19 +723,18 @@ If POST, post instead of mail." text) (save-excursion (set-buffer gnus-original-article-buffer) - (mm-with-unibyte-current-buffer - (setq text (buffer-string)))) + (setq text (buffer-string))) (set-buffer (gnus-get-buffer-create (generate-new-buffer-name " *Gnus forward*"))) (erase-buffer) - (mm-disable-multibyte) + (unless message-forward-show-mml + (mm-disable-multibyte)) (insert text) (goto-char (point-min)) (when (looking-at "From ") (replace-match "X-From-Line: ") ) (when message-forward-show-mml - (mm-enable-multibyte) (mime-to-mml)) (message-forward post))))) |