diff options
| author | ShengHuo ZHU <zsh@cs.rochester.edu> | 2000-12-20 20:20:51 +0000 |
|---|---|---|
| committer | ShengHuo ZHU <zsh@cs.rochester.edu> | 2000-12-20 20:20:51 +0000 |
| commit | 158d6e07f0788e7de5f41758fd838d6df58241c5 (patch) | |
| tree | 13dc0922842cd95089d4fcaaa0bac9318202d8e4 /lisp/gnus/gnus-msg.el | |
| parent | 19594307c97cb7c9b9fed97f704c427d8c9c695f (diff) | |
| download | emacs-158d6e07f0788e7de5f41758fd838d6df58241c5.tar.gz emacs-158d6e07f0788e7de5f41758fd838d6df58241c5.tar.bz2 emacs-158d6e07f0788e7de5f41758fd838d6df58241c5.zip | |
* message.el (message-narrow-to-head-1): New function.
(message-narrow-to-head): Use it.
(message-reply): Ditto.
(message-cancel-news): Ditto.
(message-supersede): Ditto.
(message-make-forward-subject): Ditto.
(message-bounce): Ditto.
* gnus-msg.el (gnus-summary-mail-forward): Use original buffer.
* message.el (message-forward): Copy buffer in unibyte mode.
(message-make-forward-subject): Don't widen. Decode.
(message-forward): Don't decode subject.
* mml.el (gnus-ems): Require it.
* gnus-msg.el (gnus-summary-mail-forward):
* message.el (message-forward): Move mime-to-mml here.
* nnmbox.el (nnmbox-file-coding-system): Use binary.
(nnmbox-active-file-coding-system): Ditto.
* gnus-cus.el (gnus-group-parameters): Add posting-style.
* mm-uu.el: Require binhex.
* qp.el (quoted-printable-encode-region): Upcase QP.
Diffstat (limited to 'lisp/gnus/gnus-msg.el')
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index d9ec9a56019..91baed2029c 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -721,23 +721,8 @@ If POST, post instead of mail." (gnus-setup-message 'forward (gnus-summary-select-article) (let ((mail-parse-charset gnus-newsgroup-charset) - (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets) - text) - (save-excursion - (set-buffer gnus-original-article-buffer) - (setq text (buffer-string))) - (set-buffer - (gnus-get-buffer-create - (generate-new-buffer-name " *Gnus forward*"))) - (erase-buffer) - (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 - (mime-to-mml)) + (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets)) + (set-buffer gnus-original-article-buffer) (message-forward post))))) (defun gnus-summary-resend-message (address n) |