"Lars Chr. Hausmann" <[EMAIL PROTECTED]> writes:
> I am using planner and gnus every day and I am generally very very
> happy about it. It seems like it's marking unread messages as read,
> which is annoying for me, since there's a reason it was unread.
This finally got annoying enough for me to dive into the code. The
following patch seems to fix the problem for me:
--- orig/planner-gnus.el
+++ mod/planner-gnus.el
@@ -215,9 +215,12 @@
(when (cadr (split-string group ":")) ;; group contains a :
(setq group (concat (car (split-string group ":")) ":"
reg-group)))))))
- (condition-case err
- (gnus-fetch-group group planner-gnus-group-threshold)
- (error (gnus-fetch-group group)))
+ ;; Don't automatically select an article, as that might mark
+ ;; unread articles as read.
+ (let ((gnus-auto-select-first nil))
+ (condition-case err
+ (gnus-fetch-group group planner-gnus-group-threshold)
+ (error (gnus-fetch-group group))))
(mapcar
(lambda (article-id)
(gnus-summary-goto-article article-id nil t))
Magnus
_______________________________________________
Planner-el-discuss mailing list
[email protected]
https://mail.gna.org/listinfo/planner-el-discuss
