Mercurial > emacs
comparison lisp/gnus/message.el @ 43075:e14b8be37d7d
* message.el (message-forward-rmail-make-body): Directly use
rmail-msg-restore-non-pruned-header to avoid calling
vertical-motion.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Sun, 03 Feb 2002 05:18:23 +0000 |
| parents | 1e4516b1d514 |
| children | 7782e54757bb 7bb2a408955b |
comparison
equal
deleted
inserted
replaced
| 43074:11c22804d5e3 | 43075:e14b8be37d7d |
|---|---|
| 4286 | 4286 |
| 4287 ;;;###autoload | 4287 ;;;###autoload |
| 4288 (defun message-forward-rmail-make-body (forward-buffer) | 4288 (defun message-forward-rmail-make-body (forward-buffer) |
| 4289 (save-window-excursion | 4289 (save-window-excursion |
| 4290 (set-buffer forward-buffer) | 4290 (set-buffer forward-buffer) |
| 4291 (let (rmail-enable-mime) | 4291 (if (rmail-msg-is-pruned) |
| 4292 (rmail-toggle-header 0))) | 4292 (rmail-msg-restore-non-pruned-header))) |
| 4293 (message-forward-make-body forward-buffer)) | 4293 (message-forward-make-body forward-buffer)) |
| 4294 | 4294 |
| 4295 ;;;###autoload | 4295 ;;;###autoload |
| 4296 (defun message-insinuate-rmail () | 4296 (defun message-insinuate-rmail () |
| 4297 "Let RMAIL uses message to forward." | 4297 "Let RMAIL uses message to forward." |