Mercurial > emacs
comparison lisp/mail/rmail.el @ 90201:fbb2bea03df9
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-69
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 474-484)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 88-91)
- Merge from emacs--cvs-trunk--0
- Update FSF's address in GPL notices
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 14 Jul 2005 08:02:00 +0000 |
| parents | f9a65d7ebd29 d1baae4e247f |
| children | 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
| 90200:f9a65d7ebd29 | 90201:fbb2bea03df9 |
|---|---|
| 3314 (message "Expunging deleted messages...done") | 3314 (message "Expunging deleted messages...done") |
| 3315 (if (not win) | 3315 (if (not win) |
| 3316 (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax))) | 3316 (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax))) |
| 3317 (if (not dont-show) | 3317 (if (not dont-show) |
| 3318 (rmail-show-message | 3318 (rmail-show-message |
| 3319 (if (zerop rmail-current-message) 1 nil) | 3319 (if (zerop rmail-current-message) 1 nil))) |
| 3320 (if rmail-enable-mime | 3320 (if rmail-enable-mime |
| 3321 (goto-char (+ (point-min) opoint)) | 3321 (goto-char (+ (point-min) opoint)) |
| 3322 (goto-char (+ (point) opoint)))))))) | 3322 (goto-char (+ (point) opoint)))))) |
| 3323 | 3323 |
| 3324 (defun rmail-expunge () | 3324 (defun rmail-expunge () |
| 3325 "Erase deleted messages from Rmail file and summary buffer." | 3325 "Erase deleted messages from Rmail file and summary buffer." |
| 3326 (interactive) | 3326 (interactive) |
| 3327 (when (rmail-expunge-confirmed) | 3327 (when (rmail-expunge-confirmed) |