Mercurial > emacs
comparison lisp/mail/rmailout.el @ 4058:af785cbe489a
Fix typos in previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 10 Jul 1993 05:09:45 +0000 |
| parents | 419e92a78e6f |
| children | af1bbadc70c7 |
comparison
equal
deleted
inserted
replaced
| 4057:2fe1488b503c | 4058:af785cbe489a |
|---|---|
| 167 (or count (setq count 1)) | 167 (or count (setq count 1)) |
| 168 (setq file-name | 168 (setq file-name |
| 169 (expand-file-name file-name | 169 (expand-file-name file-name |
| 170 (and rmail-last-file | 170 (and rmail-last-file |
| 171 (file-name-directory rmail-last-file)))) | 171 (file-name-directory rmail-last-file)))) |
| 172 (if (and (file-readable-p file) (rmail-file-p file-name)) | 172 (if (and (file-readable-p file-name) (rmail-file-p file-name)) |
| 173 (rmail-output-to-rmail-file file-name count) | 173 (rmail-output-to-rmail-file file-name count) |
| 174 (setq rmail-last-file file-name) | 174 (setq rmail-last-file file-name) |
| 175 (while (> count 0) | 175 (while (> count 0) |
| 176 (let ((rmailbuf (current-buffer)) | 176 (let ((rmailbuf (current-buffer)) |
| 177 (tembuf (get-buffer-create " rmail-output")) | 177 (tembuf (get-buffer-create " rmail-output")) |
| 200 (rmail-set-attribute "filed" t)) | 200 (rmail-set-attribute "filed" t)) |
| 201 (setq count (1- count)) | 201 (setq count (1- count)) |
| 202 (if rmail-delete-after-output | 202 (if rmail-delete-after-output |
| 203 (rmail-delete-forward) | 203 (rmail-delete-forward) |
| 204 (if (> count 0) | 204 (if (> count 0) |
| 205 (rmail-next-undeleted-message 1))))) | 205 (rmail-next-undeleted-message 1)))))) |
| 206 | 206 |
| 207 ;;; rmailout.el ends here | 207 ;;; rmailout.el ends here |