From eac487746556f8dfa89b87f10f36df1a667e7796 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 24 Aug 2001 07:58:10 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 10 ++++++++++ lisp/gnus-util.el | 1 + lisp/nnimap.el | 2 ++ 3 files changed, 13 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bc3f700..30a9df9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2001-08-24 Simon Josefsson + + * nnimap.el (nnimap-request-set-mark): Don't propagate seen flags + to server. + +2001-08-23 21:00:00 ShengHuo ZHU + + * gnus-util.el (gnus-create-info-command): Return an interactive + function. + 2001-08-23 19:00:00 ShengHuo ZHU From Katsumi Yamaoka diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 7dc2c47..08a4b7a 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -1117,6 +1117,7 @@ sure of changing the value of `foo'." (defun gnus-create-info-command (node) "Create a command that will go to info NODE." `(lambda () + (interactive) ,(concat "Enter the info system at node " node) (Info-goto-node ,node) (setq gnus-info-buffer (current-buffer)) diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 9895171..2dfcedf 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -955,6 +955,8 @@ function is generally only called when Gnus is shutting down." marks) ;; cache flags are pointless on the server (setq cmdmarks (delq 'cache cmdmarks)) + ;; seen flags are local to each gnus + (setq cmdmarks (delq 'seen cmdmarks)) ;; recent marks can't be set (setq cmdmarks (delq 'recent cmdmarks)) (when nnimap-importantize-dormant -- 1.7.10.4