3316 |
(narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax))) |
(narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax))) |
3317 |
(if (not dont-show) |
(if (not dont-show) |
3318 |
(rmail-show-message |
(rmail-show-message |
3319 |
(if (zerop rmail-current-message) 1 nil) |
(if (zerop rmail-current-message) 1 nil))) |
3320 |
(if rmail-enable-mime |
(if rmail-enable-mime |
3321 |
(goto-char (+ (point-min) opoint)) |
(goto-char (+ (point-min) opoint)) |
3322 |
(goto-char (+ (point) opoint)))))))) |
(goto-char (+ (point) opoint)))))) |
3323 |
|
|
3324 |
(defun rmail-expunge () |
(defun rmail-expunge () |
3325 |
"Erase deleted messages from Rmail file and summary buffer." |
"Erase deleted messages from Rmail file and summary buffer." |