Mercurial > emacs
comparison lisp/gnus/message.el @ 33768:8d6dc71efabb
(message-send-news): Use buffer-substring-no-properties.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Wed, 22 Nov 2000 16:37:04 +0000 |
| parents | 2827e4066e08 |
| children | ff339ba39162 |
comparison
equal
deleted
inserted
replaced
| 33767:398962ea0dfd | 33768:8d6dc71efabb |
|---|---|
| 2524 (save-excursion | 2524 (save-excursion |
| 2525 (set-buffer tembuf) | 2525 (set-buffer tembuf) |
| 2526 (buffer-disable-undo) | 2526 (buffer-disable-undo) |
| 2527 (erase-buffer) | 2527 (erase-buffer) |
| 2528 ;; Avoid copying text props. | 2528 ;; Avoid copying text props. |
| 2529 (insert (format | 2529 (insert (with-current-buffer messbuf |
| 2530 "%s" (save-excursion | 2530 (buffer-substring-no-properties |
| 2531 (set-buffer messbuf) | 2531 (point-min) (point-max)))) |
| 2532 (buffer-string)))) | |
| 2533 (message-encode-message-body) | 2532 (message-encode-message-body) |
| 2534 ;; Remove some headers. | 2533 ;; Remove some headers. |
| 2535 (save-restriction | 2534 (save-restriction |
| 2536 (message-narrow-to-headers) | 2535 (message-narrow-to-headers) |
| 2537 ;; We (re)generate the Lines header. | 2536 ;; We (re)generate the Lines header. |