From: akr <akr>
Date: Thu, 23 Apr 1998 17:00:13 +0000 (+0000)
Subject: Sync up with main trunc.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2Funlabeled-1.19.2;p=elisp%2Fgnus.git-

Sync up with main trunc.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 79bf904..4906452 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -37,9 +37,6 @@
 (require 'std11)
 (require 'mime-view)
 
-(or (get-unified-alist mime-acting-condition '((type . text)))
-    (error "Please install latest SEMI."))
-
 (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
 (autoload 'gnus-set-summary-default-charset "gnus-i18n" nil t)
 
@@ -830,7 +827,7 @@ which it may alter in any way.")
     (?x ,(macroexpand '(mail-header-xref gnus-tmp-header)) ?s)
     (?D ,(macroexpand '(mail-header-date gnus-tmp-header)) ?s)
     (?d (gnus-dd-mmm (mail-header-date gnus-tmp-header)) ?s)
-    (?o (gnus-date-iso8601 gnus-tmp-header) ?s)
+    (?o (gnus-date-iso8601 (mail-header-date gnus-tmp-header)) ?s)
     (?M ,(macroexpand '(mail-header-id gnus-tmp-header)) ?s)
     (?r ,(macroexpand '(mail-header-references gnus-tmp-header)) ?s)
     (?c (or (mail-header-chars gnus-tmp-header) 0) ?d)
@@ -5479,6 +5476,7 @@ returned."
 		(if backward
 		    (gnus-summary-find-prev unread)
 		  (gnus-summary-find-next unread)))
+      (gnus-summary-show-thread)
       (setq n (1- n)))
     (when (/= 0 n)
       (gnus-message 7 "No more%s articles"
@@ -7424,7 +7422,7 @@ groups."
       (gnus-run-hooks 'gnus-visual-mark-article-hook))))
 
 (defun gnus-summary-edit-wash (key)
-  "Perform editing command in the article buffer."
+  "Perform editing command KEY in the article buffer."
   (interactive
    (list
     (progn
@@ -8097,7 +8095,8 @@ If prefix argument ALL is non-nil, all articles are marked as read."
   (interactive "P")
   (when (gnus-summary-catchup all quietly nil 'fast)
     ;; Select next newsgroup or exit.
-    (if (eq gnus-auto-select-next 'quietly)
+    (if (and (not (gnus-group-quit-config gnus-newsgroup-name))
+	     (eq gnus-auto-select-next 'quietly))
 	(gnus-summary-next-group nil)
       (gnus-summary-exit))))
 
@@ -9020,12 +9019,13 @@ save those articles instead."
   "mime-partial"
   "Internal method to combine message/partial messages automatically.")
 
-(set-atype 'mime-acting-condition
-	   '((type . message)(subtype . partial)
-	     (method . mime-method-to-combine-message/partial-pieces)
-	     (major-mode . gnus-original-article-mode)
-	     (summary-buffer-exp . gnus-summary-buffer)
-	     ))
+(ctree-set-calist-strictly
+ 'mime-acting-condition
+ '((type . message)(subtype . partial)
+   (method . mime-method-to-combine-message/partial-pieces)
+   (major-mode . gnus-original-article-mode)
+   (summary-buffer-exp . gnus-summary-buffer)
+   ))
 
 (set-alist 'mime-view-partial-message-method-alist
 	   'gnus-original-article-mode