From: yamaoka <yamaoka>
Date: Fri, 24 Aug 2001 07:58:10 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: semi-gnus~59
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eac487746556f8dfa89b87f10f36df1a667e7796;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

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  <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
--- 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