Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc3f700..30a9df9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2001-08-24  Simon Josefsson  <jas@extundo.com>
+
+       * nnimap.el (nnimap-request-set-mark): Don't propagate seen flags
+       to server.
+
+2001-08-23 21:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-util.el (gnus-create-info-command): Return an interactive
+       function.
+
 2001-08-23 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
        From Katsumi Yamaoka <yamaoka@jpl.org>
 

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 7dc2c47..08a4b7a 100644 (file)
--- 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 (file)
--- 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