projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* wl-folder (wl-folder-insert-entity): Display a message,
[elisp/wanderlust.git]
/
wl
/
wl-message.el
diff --git
a/wl/wl-message.el
b/wl/wl-message.el
index
6ce3e1e
..
2355dc5
100644
(file)
--- a/
wl/wl-message.el
+++ b/
wl/wl-message.el
@@
-420,7
+420,7
@@
Returns non-nil if bottom of message."
message-buf
strategy entity
cache-used
message-buf
strategy entity
cache-used
- header-end real-fld-num summary-win delim)
+ summary-win delim)
(setq buffer-read-only nil)
(setq cache-used (wl-message-buffer-display
folder number flag force-reload))
(setq buffer-read-only nil)
(setq cache-used (wl-message-buffer-display
folder number flag force-reload))
@@
-481,6
+481,10
@@
Returns non-nil if bottom of message."
;; buffer cache is used.
(setq cache-used t)
(with-current-buffer hit
;; buffer cache is used.
(setq cache-used t)
(with-current-buffer hit
+ ;; Rewind to the top page
+ (widen)
+ (goto-char (point-min))
+ (ignore-errors (wl-message-narrow-to-page))
(unless (eq wl-message-buffer-cur-flag flag)
(setq read t))))
;; delete tail and add new to the top.
(unless (eq wl-message-buffer-cur-flag flag)
(setq read t))))
;; delete tail and add new to the top.