projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[gnus]
/
lisp
/
nnfolder.el
diff --git
a/lisp/nnfolder.el
b/lisp/nnfolder.el
index
811bb12
..
60ad428
100644
(file)
--- a/
lisp/nnfolder.el
+++ b/
lisp/nnfolder.el
@@
-225,7
+225,7
@@
time saver for large mailboxes.")
(let ((bufs nnfolder-buffer-alist))
(save-excursion
(while bufs
(let ((bufs nnfolder-buffer-alist))
(save-excursion
(while bufs
- (if (not (buffer-
name
(nth 1 (car bufs))))
+ (if (not (buffer-
live-p
(nth 1 (car bufs))))
(setq nnfolder-buffer-alist
(delq (car bufs) nnfolder-buffer-alist))
(set-buffer (nth 1 (car bufs)))
(setq nnfolder-buffer-alist
(delq (car bufs) nnfolder-buffer-alist))
(set-buffer (nth 1 (car bufs)))
@@
-246,7
+246,8
@@
time saver for large mailboxes.")
(equal group nnfolder-current-group))
(let ((inf (assoc group nnfolder-buffer-alist)))
(when inf
(equal group nnfolder-current-group))
(let ((inf (assoc group nnfolder-buffer-alist)))
(when inf
- (when nnfolder-current-group
+ (when (and nnfolder-current-group
+ nnfolder-current-buffer)
(push (list nnfolder-current-group nnfolder-current-buffer)
nnfolder-buffer-alist))
(setq nnfolder-buffer-alist
(push (list nnfolder-current-group nnfolder-current-buffer)
nnfolder-buffer-alist))
(setq nnfolder-buffer-alist
@@
-374,7
+375,6
@@
time saver for large mailboxes.")
(forward-line -1)
(while (re-search-backward (concat "^" nnfolder-article-marker) nil t)
(delete-region (point) (progn (forward-line 1) (point))))
(forward-line -1)
(while (re-search-backward (concat "^" nnfolder-article-marker) nil t)
(delete-region (point) (progn (forward-line 1) (point))))
- (nnmail-cache-insert (nnmail-fetch-field "message-id"))
(setq result
(car (nnfolder-save-mail
(if (stringp group)
(setq result
(car (nnfolder-save-mail
(if (stringp group)
@@
-384,8
+384,7
@@
time saver for large mailboxes.")
(when last
(save-excursion
(nnfolder-possibly-change-folder (or (caar art-group) group))
(when last
(save-excursion
(nnfolder-possibly-change-folder (or (caar art-group) group))
- (nnfolder-save-buffer)
- (nnmail-cache-close))))
+ (nnfolder-save-buffer))))
(nnmail-save-active nnfolder-group-alist nnfolder-active-file)
(unless result
(nnheader-report 'nnfolder "Couldn't store article"))
(nnmail-save-active nnfolder-group-alist nnfolder-active-file)
(unless result
(nnheader-report 'nnfolder "Couldn't store article"))