Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 90228:fa0da9b57058
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-82
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 542-553)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 116-121)
- Merge from emacs--cvs-trunk--0
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 19 Sep 2005 10:20:33 +0000 |
| parents | a3716f7538f2 e441782b5360 |
| children | ee12d75eb214 |
comparison
equal
deleted
inserted
replaced
| 90227:10fe5fadaf89 | 90228:fa0da9b57058 |
|---|---|
| 9559 (or (message-fetch-field "references") "") " "))) | 9559 (or (message-fetch-field "references") "") " "))) |
| 9560 ;; We only have to update this line. | 9560 ;; We only have to update this line. |
| 9561 (save-excursion | 9561 (save-excursion |
| 9562 (save-restriction | 9562 (save-restriction |
| 9563 (message-narrow-to-head) | 9563 (message-narrow-to-head) |
| 9564 (let ((head (buffer-string)) | 9564 (let ((head (buffer-substring-no-properties |
| 9565 (point-min) (point-max))) | |
| 9565 header) | 9566 header) |
| 9566 (with-temp-buffer | 9567 (with-temp-buffer |
| 9567 (insert (format "211 %d Article retrieved.\n" | 9568 (insert (format "211 %d Article retrieved.\n" |
| 9568 (cdr gnus-article-current))) | 9569 (cdr gnus-article-current))) |
| 9569 (insert head) | 9570 (insert head) |